Saludos estimados Master tenha la gentileza de ayudarme con esta macro: tengo tres rangos A5:A20 C5:C20 E5:E20 lo que deseo es que al dar doble clic en el A5:A20 empiece la numeracion en cualquier celda empezando desde el numero 11 hasta llegar al 19 y luego no me permita mas, de la misma manera para el rango C5:C20 con la numeracion desde 21 hasta el 30 y para E5:E20 con la numeracion desde 31 al 40.

finalmente si quiero eliminar algun numero puedo hacer clic derecho y borrar el numero de la celda, y cuando sigo con cl clic este numero se debe restaurar actualizado el conteo.

Gracias

DOBLE CLIC RANGOS NUMERADOR AUTOMATICO.xls

adjunto la macro la cual solo funciona para el primer rango A5:A20

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    On Error GoTo fin
    Dim celda As Range
    If WorksheetFunction.Max(Range("A5:A20")) = 0 Then

'ingresa el numero con el que desea empezar
    Target = 11
    SendKeys "{ENTER}", True
    Exit Sub
    Else
    num = WorksheetFunction.Max(Range("A5:A20"))
    If Target = "" Then Target = num + 1
    SendKeys "{ENTER}", True
    End If

If WorksheetFunction.Max(Range("C5:C20")) = 0 Then
'ingresa el numero con el que desea empezar
    Target = 21
    SendKeys "{ENTER}", True
    Exit Sub
    Else
    num = WorksheetFunction.Max(Range("A5:A20"))
    If Target = "" Then Target = num + 1
    SendKeys "{ENTER}", True
    End If
fin:
    SendKeys "{ENTER}", True
Exit Sub
    End Sub

 

@Milton Cordova
 como q en cualquier celda? . No he entendido nada...

Yo he entendido esto.

Dobleclick para numerar y dobleclick para borrar.

DOBLE CLIC RANGOS NUMERADOR AUTOMATICO.xls

Estimado Antoni gracias por el aporte, tengo una consulta final si tengo un filtro aplicado ya no funciona.

adjunto actualizacion

Gracias

DOBLE CLIC RANGOS NUMERADOR AUTOMATICO.xls

¿Y como se supone que tiene que funcionar?, porqué, con filtro o sin filtro, funciona de acuerdo a lo que yo he entendido.

Gracias Antoni, excelente aporte y ayuda, es gratificante saber que hay Masters que tienen excelencia y carisma para ayudar y trasmitir conocimientos

Tema Cerrado Solucionado