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