Pintar filas
Hola Tavopz!
Primero que nada saludos y abrazos para ti y tu familia.
Quiero pedirte ayuda sobre el código de como:
Tengo un lista de varios productos con su descripción.
Pero para leerlos mejor pinto un fila "si" y un fila "no" de color amarillo.
Cuando son 10 0 20 registros esta bien.
Pero cuando son más si esta un poco tedioso hacerlo.
Por lo prontro utilizo este código
Range("A9:D9,A11:D11,A13:D13,A15:D15,A17:D17,A19:D19").Select
Range("A19").Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Pero igual es un poco complicado, por que cuando utilizo más registro los demás no los pinta.
No se si se pueda hacer que desde un rango determinado vaya pintando un fila si y otra no.
De Antemano Gracias!
Saludos
Primero que nada saludos y abrazos para ti y tu familia.
Quiero pedirte ayuda sobre el código de como:
Tengo un lista de varios productos con su descripción.
Pero para leerlos mejor pinto un fila "si" y un fila "no" de color amarillo.
Cuando son 10 0 20 registros esta bien.
Pero cuando son más si esta un poco tedioso hacerlo.
Por lo prontro utilizo este código
Range("A9:D9,A11:D11,A13:D13,A15:D15,A17:D17,A19:D19").Select
Range("A19").Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Pero igual es un poco complicado, por que cuando utilizo más registro los demás no los pinta.
No se si se pueda hacer que desde un rango determinado vaya pintando un fila si y otra no.
De Antemano Gracias!
Saludos
1 respuesta
Respuesta de tavopz
1
Puedes hacerlo de varias formas, pero si vas a hacerlo mediante código deberías mejor usar un ciclo (loop) con el fin de que te sirva siempre. Algo como:
===============
ini = InputBox("Digite el número de la fila de inicio")
fin = InputBox("Digite el número de la fila final")
y = 1
For x = Int(ini) To Int(fin)
If y = 1 Then
Range("A" & LTrim(Str(x)) & ":D" & LTrim(Str(x))).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
y = 2
Else
y = 1
End If
Next x
===============
Otra manera de hacerlo, y de hecho me parece más elegante, es que utilizaras formato condicional, con lo que lo único que tendrías que hacer es agregar en una columna (que puede estar oculta) una combinación de 1 y 0, donde puede ser 1 para color y 0 sin color, y luego con el formato condicional colocas color a los que deseas.
Espero que esto responda tu pregunta, sino, no dudes en formularla nuevamente.
PD.:
===============
ini = InputBox("Digite el número de la fila de inicio")
fin = InputBox("Digite el número de la fila final")
y = 1
For x = Int(ini) To Int(fin)
If y = 1 Then
Range("A" & LTrim(Str(x)) & ":D" & LTrim(Str(x))).Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
y = 2
Else
y = 1
End If
Next x
===============
Otra manera de hacerlo, y de hecho me parece más elegante, es que utilizaras formato condicional, con lo que lo único que tendrías que hacer es agregar en una columna (que puede estar oculta) una combinación de 1 y 0, donde puede ser 1 para color y 0 sin color, y luego con el formato condicional colocas color a los que deseas.
Espero que esto responda tu pregunta, sino, no dudes en formularla nuevamente.
PD.:
