Jump to content
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