Tengo la siguiente macro que sombrea fila y columna pero necesito que se desplace una fila abajo ya que borra mis encabezados

La siguiente macro sombré la fila y columna donde está posicionado el cursor, pero en la fila 1 tengo mis encabezados con formato al correr la macro borra el formato de la primera fila, lo que requiero es que se desplace una fila abajo y de ahí comience:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.EntireRow.Interior.ColorIndex = 6
ActiveCell.EntireColumn.Interior.ColorIndex = 6
End Sub

1

1 Respuesta

4.667.825 pts. Sancho, si los perros ladran ...

H o l a:

Te anexo la macro actualizada

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Act.Por.Dante Amor
    Range(Cells(2, 1), Cells(Rows.Count, Columns.Count)).Interior.ColorIndex = xlColorIndexNone
    If Target.Row > 1 Then ActiveCell.EntireRow.Interior.ColorIndex = 6
    Range(Cells(2, Target.Column), Cells(Rows.Count, Target.Column)).Interior.ColorIndex = 6
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas