Numeracion rangos automatica

Milton Cordova · el 18 de noviembre

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

Milton Cordova · el 19 de noviembre

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