Jump to content
Milton Cordova

Numeracion rangos automatica

Recommended Posts

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

Share this post


Link to post
Share on other sites

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

 

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png