[CERRADO] Numerador de celdas

Desarrollo de Macros y programación en UNO, usar las API, llamar programas externos...

[CERRADO] Numerador de celdas

Notapor Milton Cordova » Jue Feb 13, 2020 1:58 pm

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) 6 veces
OpenOffice 3.1 en Windows Vista
Milton Cordova
 
Mensajes: 11
Registrado: Dom Ene 10, 2016 3:03 am

Re: Numerador de celdas

Notapor mauricio » Jue Feb 13, 2020 2:43 pm

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
Avatar de Usuario
mauricio
 
Mensajes: 6063
Registrado: Sab Nov 22, 2008 5:36 am
Ubicación: CDMX

Re: Numerador de celdas

Notapor Milton Cordova » Jue Feb 13, 2020 9:16 pm

Gracias y disculpas por la equivocacion.
OpenOffice 3.1 en Windows Vista
Milton Cordova
 
Mensajes: 11
Registrado: Dom Ene 10, 2016 3:03 am


Volver a Macros y API UNO

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 4 invitados