Canviar dos variables en un for

[catal]

Buenas, como vereis estoy enpezando vb6 y estoy bloqueado,

Necesito canviar el primer 1 --(x, 0)-- , que en principio no tengo problema, pero, el problema viene quando quiero tambien canviar el 1 de la Range --(Ax)-- al mismo tiempo

Ex : Taula.TextMatrix(x, 0) = objLibro.Worksheets(1).Range("Ax")

La variable "Ax" no la acepta.

For x = 1 to 37
Taula.TextMatrix(1, 0) = objLibro.Worksheets(1).Range("A1")
Taula.TextMatrix(1, 1) = objLibro.Worksheets(1).Range("B1")
Taula.TextMatrix(1, 2) = objLibro.Worksheets(1).Range("C1")
Taula.TextMatrix(1, 3) = objLibro.Worksheets(1).Range("D1")
Taula.TextMatrix(1, 4) = objLibro.Worksheets(1).Range("E1")
Taula.TextMatrix(1, 5) = objLibro.Worksheets(1).Range("F1")
Taula.TextMatrix(1, 6) = objLibro.Worksheets(1).Range("B1")
Next x

Igual la solucion es sencilla, pero como os digo, estoy bloqueado.
Gracias por todo.

[luiski]

Hola una pregunta tu kieres ke el numero ke acompaña a la A,B... vaya variando?? porke si le pones como tu dices (ke si es asi ya te lo explicaria) "Ax" te haria desde "A1"...hasta "A37" eso eslo ke kieres o lo kieres dejar fijo??? ke siempre sea 1 ???

Tu lo ke kieres hacer es esto???:

Código:

Dim rango as String
Dim x as Integer
x = 1

For x = 1 to 37
rango = "A" & x & ""    ' & es para concatenar
Taula.TextMatrix(1, 0) = objLibro.Worksheets(1).Range(rango)
rango = "B" & x & ""
Taula.TextMatrix(1, 1) = objLibro.Worksheets(1).Range(rango)
rango = "C" & x & ""
Taula.TextMatrix(1, 2) = objLibro.Worksheets(1).Range(rango)
rango = "D" & x & ""
Taula.TextMatrix(1, 3) = objLibro.Worksheets(1).Range(rango)
rango = "E" & x & ""
Taula.TextMatrix(1, 4) = objLibro.Worksheets(1).Range(rango)
rango = "F" & x & ""
Taula.TextMatrix(1, 5) = objLibro.Worksheets(1).Range(rango)
rango = "G" & x & ""
Taula.TextMatrix(1, 6) = objLibro.Worksheets(1).Range(rango)
Next x

[catal]

Gracias, funciona perfectamente. Y es exactamente lo que queria.
Gracias de nuevo.

[catal]

Otra pregunta .....

i si quisiera canviar ........... ??? el 4 de,
Taula4.........

For x = 1 To 39
Taulax.TextMatrix(1, 0) = objLibro.Worksheets(4).Range("A1")
Next x