UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

Por favor antes de hacer su consulta lean "Recomendaciones para hacer preguntas." Den Click aquí

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Miltonm


Por favor ayuda a la siguiente macro:
en un rango A19:A24 necesito al dar boble clic ingresar una "X".
Lo que no puedo es al hacer clic otra vez en otra celda del rango se borre la X y se registre la X en la celda activa

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("G19:G24")) Is Nothing Then Exit Sub Else Cancel = True
  Cells(19, 7).Resize(7, 24).ClearContents: Target = "X"
End Sub

Igtelo

avatar
Hola Milton.

Da gusto ver que has estudiado...No es claro tu planteamiento ni redacción ni con macro, por tanto, revisa rangos y "tal vez" ya te funcione,

Saludos
Ignacio Téllez

Miltonm


Saludos estimado Ignacio, encontre la solucion la comparto.
Hasta pronto
Gracias
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A19:A24")) Is Nothing Then Exit Sub Else Cancel = True
Cells(19, 1).Resize(6, 1).ClearContents: Target = "X"
End Sub

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.