Colorear fila y columna de celda activa
Necesito una macro para colorear fila y columna de una celda activa dentro de un rango de celdas y que al salir del rango las filas y las columnas regresen a su estado original
Ejemplo:
Tengo el rango de B7:T1000
Al seleccionar cualquier celda dentro de ese rango la fila y la columna de la celda activa se coloree de amarillo y fuente en negritas
Y al seleccionar por ejemplo C3 (que esta fuera de ese rango), las filas y las columnas regresen a su estado original
1 Respuesta
.10/08/16
Buenas noches, Ramón
Haz click con el botón derecho del mouse sobre la pestaña de la hoja donde quieres que ocurra lo que solicitas. Elije la opción "Ver Código" y pega el siguiente código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Ramón, modifica aquí el rango donde debe accionar la rutina: RangoIN = "B7:T1000" Cells.Interior.Pattern = xlNone Cells.Font.Bold = False Set ISECT = Application.Intersect(Range(RangoIN), Target) If Not ISECT Is Nothing Then With ActiveCell .EntireColumn.Interior.Color = 65535 .EntireRow.Interior.Color = 65535 .EntireColumn.Font.Bold = True .EntireRow.Font.Bold = True End With End If Set ISECT = Nothing End Sub
Hasta donde probé hace lo que solicitas.
Espero que te haya ayudado.
Un abrazo
Fernando
(Buenos Aires, Argentina)
.
