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