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
[CERRADO] Numerador de celdas
-
- Mensajes: 11
- Registrado: Dom Ene 10, 2016 3:03 am
[CERRADO] Numerador de celdas
- Adjuntos
-
- Numerador y registro de X para celdas en un rangos.xls
- (50.5 KiB) Descargado 133 veces
OpenOffice 3.1 en Windows Vista
Re: Numerador de celdas
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
"Todo cuanto no podemos dar nos posee". - André Gide
LibreOffice 6.2 | ArchLinux | Gnome3
No respondo preguntas privadas, por favor, usa el foro
-
- Mensajes: 11
- Registrado: Dom Ene 10, 2016 3:03 am