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

Macro registra y elimina x

Recommended Posts

Saludos, tengo una macro que deseo modificarla para que funcione solamente en el rango B10:B200 de la Hoja "PRESUPUESTOS".

Lo que hace la macro es que al dar doble clic en nuna celda se registra o inserta la "X", al dar un clic elimina la "X", deseo ajustarla solamente para un rango:

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

Target = "X"

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target

If Columns.Count > 2 Then Exit Sub

If .Value = "X" Then .ClearContents

End With

End Sub

Share this post


Link to post
Share on other sites

Buenas,

Incluye las líneas siguientes.....

Y cuentas si te ha servido.......


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("b10:b200")) Is Nothing Then [COLOR=#0000cd]'esta es la que marca el rango[/COLOR]
Target = "X"
End If [COLOR=#0000cd]'aquí cerramos el If[/COLOR]
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("b10:b200")) Is Nothing Then [COLOR=#0000cd]'esta es la que marca el rango[/COLOR]
With Target
If .Columns.Count >= 2 Then Exit Sub [COLOR=#0000cd]'aquí le he puesto un punto antes de "Columns" que faltaba y un igual al >2[/COLOR]
If .Value = "X" Then .ClearContents
End With
End If [COLOR=#0000cd]'aquí cerramos el If[/COLOR]
End Sub
[/CODE]

Un saludo,

Tese

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