VBA to variant returns string through iteration

[RodrigoFinguer]

Hello guys, i am beating my head here

need your help... i have 2 strings and i want a variant to call this string through an iteration, but i can't get it.

Sub teste()
Dim i As Integer


For i = 1 To 2


var1 = "Empresa"
var2 = "Material"


desc = "var" & i


l = Application.Match(desc, Range("A1:A100"), 0)
Columns(l).Select
Next


End Sub

My "desc" is returning "var1" and not "Empresa" as i need.

 

[RoryA]

Use an array:

Sub teste()
Dim i As Integer
Dim var(1 to 2) as string
var(1) = "Empresa"
var(2) = "Material"

For i = 1 To 2

desc = var(i)


l = Application.Match(desc, Range("A1:A100"), 0)
Columns(l).Select
Next


End Sub

 

[RodrigoFinguer]

Use an array:

Sub teste()
Dim i As Integer
Dim var(1 to 2) as string
var(1) = "Empresa"
var(2) = "Material"

For i = 1 To 2

desc = var(i)


l = Application.Match(desc, Range("A1:A100"), 0)
Columns(l).Select
Next


End Sub

Worked, but for my i = 2 i got and error 2042 in my "l = Application.Match(desc, Range("A1:A100"), 0)"

 

[RoryA]

That means the value wasn't found.