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

Alternativas

Recommended Posts

Saludos, solicito ayuda para completar una macro que haga lo siguiente

Deseo colocar una X con boble click en un rngo A3:C300 esto esta funcionando

Si tengo ingresado una X en A13, al hacer click en la celda A14 se ingrese la X y que automatocamente se borre todo lo que exista en B14 y C14

el archivo no pudo subirlo es mas pesado del permitido

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

If Intersect(Target, Range("A13:A300,B13:B300,C13:C300")) Is Nothing Then Exit Sub

Cancel = True

Select Case Target.Value

Case vbNullString, ""

Target.Value = "X"

Case "X"

Target.Value = ""

End Select

End Sub

Gracias

Share this post


Link to post
Share on other sites

Añadir este codigo haria lo que solicitas, y lo puedes arreglar dependiendo de tus respuestas a lo anterior.

    With Target
If .Offset(-1) = "X" And .Column = 1 And .Row > 13 Then
.Offset(, 1).Resize(, 2).ClearContents
End If
End With
[/PHP]

Saludos

Share this post


Link to post
Share on other sites

Hola [uSER=73198]@Milton Cordova[/uSER]

Una opcion mas

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A13:A300,B13:B300,C13:C300")) Is Nothing Then
With Target
If Cells(.Row - 1, "A") = "X" And .Column = 1 Then _
.Offset(, 1).Resize(, 2).ClearContents
.Value = "X"
Cancel = True
End With
End If
End Sub[/PHP]

[b]Pd: [uSER=73198]@Milton Cordova[/uSER] por favor utiliza las etiquetas para envolver códigos[/b]

Saludos a ambos!

Share this post


Link to post
Share on other sites

saludos entiendo que no me he sido lo sufiente explicito:

Lo que deseo es que al hacer dodble clic en el rango a13:C300 se ingrese una X.

con la macro que envie esto funciona

Lo que deseo me ayuden es que cuando en una celda A13 esta la X, al momento darle doble clic en cualquiera de las celdas B13 o C13 se ingrese una X ya sea en B13 o C13 y automaticamente borre la X que esta en A13, y asi sucesivamente para cada fila del rango.

Debe quedar una sola X por fila en las tres columnas

Gracias

Share this post


Link to post
Share on other sites
Debe quedar una sola X por fila en las tres columnas

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("a13:c30")) Is Nothing Then Exit Sub Else Cancel = True
Cells(Target.Row, 1).Resize(, 3).ClearContents: Target = "X"
End Sub[/CODE]

saludos,

hector.

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