Concatenar
Publicado por Felipe (1 intervención) el 16/02/2009 22:11:02
Buenas a tod@s,
Esoy intentando concatenar el rango de una celda de excel con una variable para que el rango de la celdas avance dentro de un bucle. Algo parecido a esto
Do While Not EOF(1) 'bucle para recorrer el fichero hasta la ultima linea
Line Input #1, linea 'guarda la primera linea del fichero 1 en la variable linea
pais = Left(linea, 7)
usuario = Mid(linea, 17, 5)
tipo = Mid(linea, 23, 4)
numero = Mid(linea, 39, 3)
Range("f1").FormulaR1C1 = pais
If pais = "Spanish" And tipo = "Acco" Then
Range("c' & x&'").FormulaR1C1 = numero
Range("b'&x&'") = usuario
x = x + 1
End If
Loop
En definitiva lo que intento es que cada vez que entre en la sentencia if, el rango de la celda aumente en uno, c1, c2, c3........
Gracias a todos de ante mano y disculpar si no entendeis lo que pido
Salu2
Felipe
Esoy intentando concatenar el rango de una celda de excel con una variable para que el rango de la celdas avance dentro de un bucle. Algo parecido a esto
Do While Not EOF(1) 'bucle para recorrer el fichero hasta la ultima linea
Line Input #1, linea 'guarda la primera linea del fichero 1 en la variable linea
pais = Left(linea, 7)
usuario = Mid(linea, 17, 5)
tipo = Mid(linea, 23, 4)
numero = Mid(linea, 39, 3)
Range("f1").FormulaR1C1 = pais
If pais = "Spanish" And tipo = "Acco" Then
Range("c' & x&'").FormulaR1C1 = numero
Range("b'&x&'") = usuario
x = x + 1
End If
Loop
En definitiva lo que intento es que cada vez que entre en la sentencia if, el rango de la celda aumente en uno, c1, c2, c3........
Gracias a todos de ante mano y disculpar si no entendeis lo que pido
Salu2
Felipe
Valora esta pregunta
0
