VBA if the value same as specific Dim's name, then get the Dim of value

user_12151393 0
Viewed 32

how to link CSVTypeColumn = CSVType01 = "AL"? Its has anyway to let if CSVTypeColumn.value = CSVType01 Then CSVTypeColumn.value = "AL"?

'''''Module1
Public CSVType01 As String
       CSVType01 = "AL"

'''''Module2
For CSVTypeColumnCount = 1 To 6
Dim CSVTypeColumn As String                               
    CSVTypeColumn = "CSVType0" & CSVTypeColumnCount
Dim FindCSVType As Range
    Set FindCSVType = .Range(CSVTypeColumn & 1).Column '<-- Wrong here!
vba excel
2 Answers

Use an array:

Public CSVType(1 To 6) As String
       CSVType(1) = "AL"
' etc
For CSVTypeColumnCount = 1 To 6
Dim CSVTypeColumn As String                               
    CSVTypeColumn = CSVType(CSVTypeColumnCount)
user_36119890

That does not work. When ever you have the feeling you need no use numbers in your variable names then you are doing it wrong!

Use arrays instead.

Public CSVType(1 To 6) As String
CSVType(1) = "AL"

CSVTypeColumn = CSVType(CSVTypeColumnCount)
user_32196130
Related