
Estoy intentando codificar con colores columnas en blanco en una hoja de trabajo según la cantidad de filas que tengo en mi conjunto de datos. Tengo una macro existente que ordena y formatea mis datos, pero quiero agregar código para hacer esta parte. El número de filas puede variar entre 50 y 50 000 y no quiero colorear toda la columna hasta el final de la hoja. ¿Hay alguna manera de hacer esto con código vba? Probé este código pero colorea toda la columna, no solo las 100 filas que tengo.
Range(Range("H13"), Range("H13").End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Interior.Color = vbBlue
Respuesta1
Estás cerca
Sub test()
Dim lrow As Integer
lrow = Cells(Rows.Count, "H").End(xlUp).Row
Range("H13:H" & lrow).Interior.Color = vbBlue
End Sub
Estás usando xldown, que toma la última celda y luego baja hasta el final de la hoja. Intente usar xlup. Además, trate de dejar el hábito de consumirlo selection
, ya que normalmente nunca es necesario.