Hola buenos días:

En una hoja tengo una lista de diferentes nombres y con un consecutivo inicial, pero por diferentes movimientos al día, estos cambian de numeración, 

Esto lo hago manual y a veces son más de 100 nombres a cambiar o a veces menos:

Un ejemplo:

En mi celda D4 inicia mi lista:

En D4= tengo el consecutivo 1. y el nombre y después D5=el 2. Nombre. y así varios más de manera consecutivo, que pueden ser de 1 a 20 o hasta 100.

Lo que yo cambio manual es el consecutivo, que puede iniciar con cualquier No.

ejemplo 7. el cambio serio así: D4=7. el nombre. y D5 sería 8 y así con todos los demás.

La idea es que yo indique en la celda E3 el numero con el que iniciara el consecutivo y que se cambien los números de manera automatica y consecutiva.

Muchas gracias

 

 

 

Cambio automatico de numeros.xlsx

Prueba y comenta

Private Sub Worksheet_Change(ByVal Objetivo As Range)

    With Hoja1
        If Not Intersect(Objetivo, .Range("E3")) Is Nothing Then
            Application.EnableEvents = False
            nuevoValor = Objetivo
            ultimaFila = .Cells(.Rows.Count, "D").End(xlUp).Row
    
            For i = 4 To ultimaFila
                textoActual = .Cells(i, "D")
                posicionPunto = InStr(1, textoActual, ".")
                    If posicionPunto > 0 Then
                        textoDespuesPunto = Mid(textoActual, posicionPunto + 1)
                        .Cells(i, "D") = nuevoValor & "." & textoDespuesPunto
                    End If
                nuevoValor = nuevoValor + 1
            Next i
            Application.EnableEvents = True
        End If
    End With
    
End Sub

 

Cambio automatico de numeros.xlsm

Hola JSDJSD:

wow, he quedado sorprendido, una gran solución, es increible como en excel podemos realizar increíbles soluciones para hacer más rápido el trabajo.

 

Muchas gracias por la ayuda.