Anónimo
Rellenar celdas
Hola ... Quisiera saber como hacer esto... Estoy filtrando con la lista de un combobox en la columna A y quiero que me rellene con algún tipo de color solo las celdas que quedan visibles, las de la columna B, que son las que corresponden al filtro.
Tengo este código, lo hace pero a veces se queda bloqueado. Y no se si es el código... Gracias
Set s = Range("B1:B100").SpecialCells(xlCellTypeVisible).Rows
For Each rngCelda In s
Range("B2:B100").Interior.ColorIndex = 3
Next rngCelda
Tengo este código, lo hace pero a veces se queda bloqueado. Y no se si es el código... Gracias
Set s = Range("B1:B100").SpecialCells(xlCellTypeVisible).Rows
For Each rngCelda In s
Range("B2:B100").Interior.ColorIndex = 3
Next rngCelda
1 respuesta
Respuesta de Elsa Matilde
1
Gracias... probé el código y me rellena todas la celdas del rango y yo quiero que solo me rellene las que corresponden al filtro ej: si filtro el 2 me rellene las celdas que correspondan a ese numero... gracias
No rellena todas las del rango pero sí las que siguen luego del último registro.
Agregá 1 línea para obtener el fin del rgo filtrado:
Sub RellenaPlantilla()
finfil = Range("B65536").End(xlUp).Row
Set s = Range("B2:B" & finfil).SpecialCells(xlCellTypeVisible).Rows
For Each rngCelda In s
rngCelda.Interior.ColorIndex = 3
Next rngCelda
End Sub
Agregá 1 línea para obtener el fin del rgo filtrado:
Sub RellenaPlantilla()
finfil = Range("B65536").End(xlUp).Row
Set s = Range("B2:B" & finfil).SpecialCells(xlCellTypeVisible).Rows
For Each rngCelda In s
rngCelda.Interior.ColorIndex = 3
Next rngCelda
End Sub