Otra pregunta Respecto a pintar filas
Hola Tavopz!
Molestándote otra vez, mira mi pregunta el la siguiente de acuerdas que la otra vez me ayudaste con el código para pintar una fila de color amarillo.
Pues mira me gusto mucho la forma de como me pide el numero de inicio y de fin, solo que ahora quisiera que también me pidiera el numero de columna, es decir si los datos están de "A" a "C" o de "A" a "G"
Ya he tratado:
Inputbox
ini = InputBox("Digite el número de la fila de inicio")
fin = InputBox("Digite el número de la fila final")
inicio = InputBox("inicio")
final = InputBox("Final")
Pero en la fórmula:
Original:
Range("A" & LTrim(Str(x)) & ":B" & LTrim(Str(x))).Select
modificada:
Range((inicio) & LTrim(Str(x)) & (":final") & LTrim(Str(x))).Select
Aquí no puedo, pues marca error, solo puedo modificar la primera letra "A" por "inicio" pero "C" no por "Final"
No se si se pueda hacer.
De antemano gracias!
Saludos
Florens's
Molestándote otra vez, mira mi pregunta el la siguiente de acuerdas que la otra vez me ayudaste con el código para pintar una fila de color amarillo.
Pues mira me gusto mucho la forma de como me pide el numero de inicio y de fin, solo que ahora quisiera que también me pidiera el numero de columna, es decir si los datos están de "A" a "C" o de "A" a "G"
Ya he tratado:
Inputbox
ini = InputBox("Digite el número de la fila de inicio")
fin = InputBox("Digite el número de la fila final")
inicio = InputBox("inicio")
final = InputBox("Final")
Pero en la fórmula:
Original:
Range("A" & LTrim(Str(x)) & ":B" & LTrim(Str(x))).Select
modificada:
Range((inicio) & LTrim(Str(x)) & (":final") & LTrim(Str(x))).Select
Aquí no puedo, pues marca error, solo puedo modificar la primera letra "A" por "inicio" pero "C" no por "Final"
No se si se pueda hacer.
De antemano gracias!
Saludos
Florens's
1 Respuesta
Respuesta de tavopz
1
Lo que pasa es que tienes un error, final es una variable y la estás expresando como string.
Debería ser algo como:
Range(inicio & LTrim(Str(x)) & ":" & final & LTrim(Str(x))).Select
Por otro lado, si sigue sin funcionarte, revisa colocarle la función LTrim a las variables inicio y final, para evitar que queden con algún espacio en blanco, así:
Range(LTrim(inicio) & LTrim(Str(x)) & ":" & Ltrim(final) & LTrim(Str(x))).Select
Debería ser algo como:
Range(inicio & LTrim(Str(x)) & ":" & final & LTrim(Str(x))).Select
Por otro lado, si sigue sin funcionarte, revisa colocarle la función LTrim a las variables inicio y final, para evitar que queden con algún espacio en blanco, así:
Range(LTrim(inicio) & LTrim(Str(x)) & ":" & Ltrim(final) & LTrim(Str(x))).Select
