Hola:
Ahí va un trozo de código que rellena con un color la fila y la columna de la celda activa.
Colocarlo en Thisworkbook.
Funcionamiento:
.Rellenar una celda con un color, y efectuar doble-click encima.
.Para cambia de color, mismo procedimiento
.No respeta los colores de relleno que pudieran haber.
- Código: Seleccionar todo
Dim ActiveColor As Integer
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
ActiveColor = ActiveCell.Interior.ColorIndex
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column - 1).Select
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Cells.Interior.ColorIndex = xlNone
ActiveSheet.Rows(ActiveCell.Row).Interior.ColorIndex = ActiveColor
ActiveSheet.Columns(ActiveCell.Column).Interior.ColorIndex = ActiveColor
End Sub
Saludos
Antoni