Como destaco las celdas seleccionadas con el mouse

Hola Koke:

Eso que pretendes se puede hacer con mediante un evento, pero tienes que
evaluar el beneficio de hacerlo.

Te pondo tres rutinas que te pueden servir, pruebalas poniendolas en el
codigo de la página, pero no las vayas a poner juntas, para probar, ponlas en
el codigo de diferentes hojas.

Procedimiento:
1. Clic derecho en la etiqueta de la hoja 1 y selecciona "Ver codigo".
2. Al abrir la hoja de codigo, pegas el codigo #1.

Repite el procedimiento para la hoja 2 y 3 poniendo el codigo #2 y #3
respectivamente.


Codigo #1
Dim rLastCell
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' If UCase(Range("Highlight")) = "N" Then Exit Sub
If Not IsObject(rLastCell) Then Set rLastCell = ActiveCell
With rLastCell
.EntireRow.Interior.ColorIndex = xlNone
.EntireColumn.Interior.ColorIndex = xlNone
End With
With Target
ActiveCell.Interior.ColorIndex = 6
' .EntireColumn.Interior.ColorIndex = 6
End With
Set rLastCell = Target
End Sub

' Fin de la primer rutina


Codigo #2
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Rows.Interior.ColorIndex = xlNone 'unshade all cells
Rows(Target.Row).Interior.ColorIndex = 34 ' shade current row
End Sub

' Fin de la segunda rutina

Codigo #3

Dim rLastCell
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not IsObject(rLastCell) Then Set rLastCell = ActiveCell
With rLastCell
.EntireRow.Interior.ColorIndex = xlNone
.EntireColumn.Interior.ColorIndex = xlNone
End With
With Target
.EntireRow.Interior.ColorIndex = 6
.EntireColumn.Interior.ColorIndex = 6
End With
Set rLastCell = Target
End Sub

' Fin de la tercera rutina


Por favor, comentanos si esto te fue de utilidad.

Saludos
Servando Villalon


"KOKE" wrote:

No tengo posibilidades de cambiar la opción del color de fondo a las celdas
que selecciono en una hoja Excel