Resaltar filas o columnas
Tengo una tabla que uso en una presentación y quisiera, si es posible, que al marcar una fila o columna se resaltase con un color que yo quisiese.
1 Respuesta
Respuesta de Elsa Matilde
1
La rutina que te adjunto la debes colocar en el Editor de macros, en el objeto HOJa donde quieras que se iluminen las col (o fils)
Option Explicit
Dim col As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If col <> 0 Then
Range(col & ":" & col).EntireColumn.Interior.ColorIndex = xlNone '(ver***)
col = 0
End If
If Target.EntireColumn.Select Then
col = Selection.Column
With Selection.Interior
.ColorIndex = 6 'amarillo
.Pattern = xlSolid
End With
End If
End Sub
Está diseñada para iluminar la col, si prefieres fila, cambia las instrucciones donde dice Column por Row y en la que aparece la llamada (ver***) deja esta:
Range("A" & col).EntireRow.Interior.ColorIndex = xlNone
Option Explicit
Dim col As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If col <> 0 Then
Range(col & ":" & col).EntireColumn.Interior.ColorIndex = xlNone '(ver***)
col = 0
End If
If Target.EntireColumn.Select Then
col = Selection.Column
With Selection.Interior
.ColorIndex = 6 'amarillo
.Pattern = xlSolid
End With
End If
End Sub
Está diseñada para iluminar la col, si prefieres fila, cambia las instrucciones donde dice Column por Row y en la que aparece la llamada (ver***) deja esta:
Range("A" & col).EntireRow.Interior.ColorIndex = xlNone
