............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Insertar X automaticamente en rango

Ver el tema anterior Ver el tema siguiente Ir abajo

Insertar X automaticamente en rango

Mensaje por Milton Cordova el Miér Oct 26, 2016 2:48 am

Saludos, deseo ayuda para esta macro:
Esta macro funciona para un rango horizontal ingresa una X en B2:F2, haciendo doble clik en cualquier celda borra la exitente en el rango e inserta en la celda activa.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B2:F2")) Is Nothing Then Exit Sub Else Cancel = True
Cells(Target.Row, 2).Resize(, 5).ClearContents: Target = "X"
End Sub

Trato de que esto se realice para un rango A2:A5 mediante esta macro
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:A5")) Is Nothing Then Exit Sub Else Cancel = True
Cells(2, Target.Column).Resize(5, Target.Column).ClearContents: Target = "X"
End Sub
estas macros funcionan ya sea para al rango horizontal y vertical, pero cuando deseo que funciones para los 2 rangos me da error
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B2:F2")) Is Nothing Then Exit Sub Else Cancel = True
Cells(Target.Row, 2).Resize(, 5).ClearContents: Target = "X"

If Intersect(Target, Range("A2:A5")) Is Nothing Then Exit Sub Else Cancel = True
Cells(2, Target.Column).Resize(5, Target.Column).ClearContents: Target = "X"
End Sub

Milton Cordova

Masculino Cantidad de envíos : 11
Edad : 61
Ciudad - Pais : Quito - Ecuador
Version de Excel : 2003
Fecha de inscripción : 31/12/2009

Volver arriba Ir abajo

Re: Insertar X automaticamente en rango

Mensaje por Tatayayan el Sáb Nov 26, 2016 12:38 pm

Hola, este código no me da errores:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:F2")) Is Nothing Then Cancel = True
Cells(Target.Row, 2).Resize(, 5).ClearContents: Target = "X"

If Not Intersect(Target, Range("A2:A5")) Is Nothing Then Cancel = True
Cells(2, Target.Column).Resize(5, Target.Column).ClearContents: Target = "X"
End Sub

Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Insertar X automaticamente en rango

Mensaje por Milton Cordova el Sáb Nov 26, 2016 2:33 pm

Gracias he solucionado el tema o debate
doy por cerrado el debate

Milton Cordova

Masculino Cantidad de envíos : 11
Edad : 61
Ciudad - Pais : Quito - Ecuador
Version de Excel : 2003
Fecha de inscripción : 31/12/2009

Volver arriba Ir abajo

Re: Insertar X automaticamente en rango

Mensaje por Contenido patrocinado Hoy a las 1:34 pm


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.