Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

Sign in to follow this  
Milton Cordova

Insertar "X" en celdas con doble clic

Recommended Posts

re: Insertar "X" en celdas con doble clic

Hola Milton, me da gusto verte por aca.

Te di en el otro foro un codigo mas simple que el que muestras:

Target = IIf(Target = "X", "", "X")[/CODE]

Las celdas combinadas deben evitarse como la peste, generalmente es mejor centrar en seleccion o aumentar el tamaño de la fila o columna para evitar el problema que enfrentas.

Share this post


Link to post
Share on other sites

re: Insertar "X" en celdas con doble clic

Hola a rodos:

Armando, tu solución no funciona, ello es debido a que la variable Target contiene la totalidad del rango seleccionado, por lo que no podemos utilizar esta variable como una única celda.

Podemos usar cualquiera de estas 2 soluciones:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("C5:C19")) Is Nothing Then
Cancel = True
ActiveCell = IIf(ActiveCell = "X", "", "X")
End If

End Sub
[/CODE]

[CODE]
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("C5:C19")) Is Nothing Then
Cancel = True
Target(1, 1) = IIf(Target(1, 1) = "X", "", "X")
End If

End Sub
[/CODE]

Saludos

Share this post


Link to post
Share on other sites

re: Insertar "X" en celdas con doble clic

Macro, si funciona en el codigo completo proporcionado a Milton en el otro foro, lo que publique aqui fue solo una linea.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
Target = IIf(Target = "X", "", "X")
Target.Offset(, 1).Select
End Sub[/HTML]

Share this post


Link to post
Share on other sites

re: Insertar "X" en celdas con doble clic

Gracias por las contestaciones, lo que necesito es obligatoriamente que un rango seleccionado que se compone de celdas unicas y combinadas, ejm. C5:C19 con celdas C1,C2:C3,C4,C5,C6:C7...... al hacer doble clic funcione tanto para las celdas unicas y combinadas del rango seleccionado en la macro.

Revisar el documento subido al foro con el nombre "Ingresa y elimina X en celdas y rangos"

Hasta pronto

Milton

Share this post


Link to post
Share on other sites

re: Insertar "X" en celdas con doble clic

Saludos, grcias po la ayuda muy importante e interesante.

Doy por resuelto este debate.

Hasta pronto, felicidades

Favor indicarme como debo hacer para que este debate asome en el listado del foro como RESUELTO

Miltonm

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png