Con este codigo resalto la fila donde me posiciono, que me le hace falta para
que resalte la columna tambien.
Option Explicit
Private Sub Worksheet_Calculate()
Resalta
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Resalta
End Sub
Private Sub Resalta()
Dim R As Long
Dim C As Long
Dim X As String
R = ActiveCell.Row
C = ActiveCell.Column
If R < 7 Or R > 15000 Or C > 12 Then
Range("a7:L15000").Interior.ColorIndex = 36
Exit Sub
Else
Range("a7:L15000").Interior.ColorIndex = 36
Range("a" & R & ":L" & R).Interior.ColorIndex = 27
End If
End Sub
Leer las respuestas