[CERRADO] Numerador de celdas

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...
Cerrado
Milton Cordova
Mensajes: 11
Registrado: Dom Ene 10, 2016 3:03 am

[CERRADO] Numerador de celdas

Mensaje por Milton Cordova »

Saludos alguna ayuda para que en tres rangos hacer lo siguiente:
A5:A20 con boble clic numerar las celdas indistintamente y para borrar igual con doble clic
C4:C20, E5:C20 con doble clic ingresar "X" y para borrar igual con doble clic.
adjunto para numerado si funciona lo que no puedo es para los otros rangos
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("A5:A20"), Target) Is Nothing Then Exit Sub

x = Application.Max(Range("A5:A20"), 0)
If Target = "" Then
If Range("Z1") <> 0 And Range("Z1") < x Then
Target = Range("Z1")
SendKeys "{ENTER}", True
Range("Z1") = Empty
Else
Target = x + 1
SendKeys "{ENTER}", True
End If
Else
Range("Z1") = Target: Target = ""
SendKeys "{ENTER}", True
End If
SendKeys "{ENTER}", True
End Sub

Gracias
Adjuntos
Numerador y registro de X para celdas en un rangos.xls
(50.5 KiB) Descargado 131 veces
OpenOffice 3.1 en Windows Vista
Avatar de Usuario
mauricio
Mensajes: 6092
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX
Contactar:

Re: Numerador de celdas

Mensaje por mauricio »

Como te comente en otro de tus temas, no damos soporte a Excel en estos foros.
______________________________________________
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
Milton Cordova
Mensajes: 11
Registrado: Dom Ene 10, 2016 3:03 am

Re: Numerador de celdas

Mensaje por Milton Cordova »

Gracias y disculpas por la equivocacion.
OpenOffice 3.1 en Windows Vista
Cerrado