Resaltar varias celdas
Quisiera resaltar varias filas con color de fondo al hacer clic en varias celdas
Me explico tengo datos en el rango A1: K30 si yo hago clic en cualquier celda la fila a que corresponda esa celda se coloree, y que pase lo mismo si hago clic en otra celda pero con la condición que no se borre la anterior y así sucesivamente. Y por ultimo un botón para que se borre todo lo seleccionado y quede igual que al principio (es decir sin colorear).
Saludos
Me explico tengo datos en el rango A1: K30 si yo hago clic en cualquier celda la fila a que corresponda esa celda se coloree, y que pase lo mismo si hago clic en otra celda pero con la condición que no se borre la anterior y así sucesivamente. Y por ultimo un botón para que se borre todo lo seleccionado y quede igual que al principio (es decir sin colorear).
Saludos
1 Respuesta
Respuesta de Elsa Matilde
1
Te dejo una rutina extraída de mi manual 400MacrosPlus.
Entrá al Editor. Seleccioná con doble clic el objeto HOJA (panel a tu izquierda) donde quieras aplicar esto, y cppiala ajustando el nro de color (en este ej es rojo)
Public fila As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'x Elsamatilde
'solo se controla el rango A1:30
If Intersect(Target, Range("A1:K30")) Is Nothing Then Exit Sub
'se controla si fila aún no tiene valor por ser la primera vez que se colorea 1 selección
On Error Resume Next
Cells(fila, 1).EntireRow.Interior.ColorIndex = xlColorIndexNone
Target.EntireRow.Interior.ColorIndex = 3
fila = Target.Row
End Sub
Pruébala y regresá aquí para finalizar la consulta si el tema quedó resuelto.
Entrá al Editor. Seleccioná con doble clic el objeto HOJA (panel a tu izquierda) donde quieras aplicar esto, y cppiala ajustando el nro de color (en este ej es rojo)
Public fila As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'x Elsamatilde
'solo se controla el rango A1:30
If Intersect(Target, Range("A1:K30")) Is Nothing Then Exit Sub
'se controla si fila aún no tiene valor por ser la primera vez que se colorea 1 selección
On Error Resume Next
Cells(fila, 1).EntireRow.Interior.ColorIndex = xlColorIndexNone
Target.EntireRow.Interior.ColorIndex = 3
fila = Target.Row
End Sub
Pruébala y regresá aquí para finalizar la consulta si el tema quedó resuelto.
