Marcar con un click del mouse

04/05/2007 - 19:36 por jaraya | Informe spam
Hola, a ver si alguien me puede ayudar.
Necsito ir verificando un listado y lo voy recorriendo con el puntero del
"mouse", como podria con un click del "mouse" introducir en la celda de la
fila revisada, alguna marca o tilde o color de celda, si la informacion de la
linea es correcta.
Es decir poder introducir algun tipo de marca en yna celda de una columna
solo con el click del mouse.
gracias
jaraya
 

Leer las respuestas

#1 Héctor Miguel
05/05/2007 - 05:38 | Informe spam
hola, 'anonimo/a' !

Necsito ir verificando un listado y lo voy recorriendo con el puntero del "mouse"
como podria con un click del "mouse" introducir en la celda de la fila revisada
alguna marca o tilde o color de celda, si la informacion de la linea es correcta.
Es decir poder introducir algun tipo de marca en yna celda de una columna solo con el click del mouse.



si suponemos que una celda 'cualquiera' de las que estas revisando pudiera/debiera/... 'restringirse' a las columnas A:C
podrias aprovechar los eventos del mouse en el modulo de codigo de cada hoja [como el click-secundario/derecho]...
[p.e.] prueba copiando/pegando las siguientes instrucciones en el modulo de codigo de 'esa' hoja:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Columns("a:c")) Is Nothing Then Exit Sub Else Cancel = True
With ActiveCell.Interior
If .ColorIndex = xlColorIndexNone _
Then .ColorIndex = 6 Else .ColorIndex = xlColorIndexNone
End With
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares