Autonumericos en Excel desde Formulario al hacer click en Boton

[DREAMERMX]

Hola a todos!

Tengo un formulario en VBA para registrar datos en una tabla de excel. Lo que necesito, es que cada vez que se hace click en el botón "Registrar" de mi formulario, en la primera celda de cada fila vaya generando algo así como un Autonumerico con formato "REG-0001" y al volver a cargar datos en el formulario y al apretar nuevamente dicho botón, lo haga con el código "REG-0002" ...03,04 y así sucesivamente....

¿Alguien me puede guiar? ¡Gracias!

[Antoni]

Suponiendo que el correlativo empiece en A2:

If Range("A2") = "" Then
   Range("A2") = "REG-0001"
Else
   Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = _
      "REG-" & Format(Right(Range("A" & Rows.Count).End(xlUp), 4) + 1, "0000")
End If

Otra vía podría ser usando el formato de la celda:

   With Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1)
      .Value = WorksheetFunction.Max(Columns("A")) + 1
      .NumberFormat = """REG-"" 0000"
   End With

 

[DREAMERMX]

Hola Antoni, muchísimas gracias por tu código. Sabrás disculpar mi ignorancia, pero no sé mucho de programación, me doy un poco de maña nomas, por ello te consulto: Ese código, va en el área Módulo? ¿O directamente en el evento clic del botón?
Gracias
DreamerMX

[Antoni]

Hace 2 horas, DREAMERMX dijo:

Hola Antoni, muchísimas gracias por tu código. Sabrás disculpar mi ignorancia, pero no sé mucho de programación, me doy un poco de maña nomas, por ello te consulto: Ese código, va en el área Módulo? ¿O directamente en el evento clic del botón?
Gracias
DreamerMX

En el evento click del botón.

[DREAMERMX]

Hola Antoni, gracias por tu respuesta. Lamentablemente no he tenido éxito.
Como la primera celda a insertar dicho autonumerico es la A5, he reemplazado A2 por A5, supongo esta bien.

El problema es que lo "Inyecta" sólo una vez al presionar el botón registrar (en donde está el código) pero recién lo hace al cerrar TODO el Formulario, por ende, si no lo cierro y sigo registrando (Pues tiene una función para limpiar) otros valores no lo hace (lo deja en blanco)...Y si cierro y abro constantemente tras Registrar, "inyecta" siempre el mismo valor: REG-001 Te dejo mi código a ver si encuentras mi error?
 

Private Sub CommandButton1_Click()
'Selecciona la Hoja "FORMULARIO"
Sheets("FORMULARIO").Select

'Selecciona la celda "B5" la Hoja "FORMULARIO" para insertar a partir de ahí en toda la fila
Range("B5").EntireRow.Insert

'Selecciona la celda "B5" la Hoja "FORMULARIO" para insertar a partir de ahí los valores ingresados en el Form

Range("B5") = NroN.Value
Range("C5") = Nombre.Value
Range("D5") = ADisp.Value
Range("E5") = ADNro.Value
Range("F5") = Dep.Value
Range("G5") = Us.Value
Range("H5") = FechaF.Value
Range("I5") = LugarF.Value
Range("J5") = Vi.Value
Range("K5") = Ca.Value
Range("L5") = Rve.Value
Range("M5") = R13.Value
Range("N5") = Uf.Value
Range("O5") = Ipe.Value
Range("P5") = Dep2.Value
Range("Q5") = AP.Value
Range("R5") = Observaciones.Value

MsgBox "Los datos se han registrado con exito!"

'Limpia el formulario de entrada de datos

NroN= Empty
Nombre = Empty
ADisp = Empty
ADNro = Empty
Dep = Empty
Us = Empty
FechaF = Empty
LugarF = Empty
Vi = Empty
Ca = Empty
RVe = Empty
R13 = Empty
Uf = Empty
Ipe = Empty
Dep2 = Empty
AP = Empty
Observaciones = Empty

End Sub

Private Sub CommandButton2_Click()

'Asigna la Macro creada "SiNo"
SiNo


'Genera Autonumericos en la Celda
If Range("A5") = "" Then
   Range("A5") = "REG-0001"
Else
   Range("A" & Range("A" & Rows.Count).End(xlUp).Row + 1) = _
     "REG-" & Format(Right(Range("A" & Rows.Count).End(xlUp), 4) + 1, "0000")
End If
'Genera Autonumericos en la Celda

End Sub

 

Desde ya, muchas gracias por tu atención. Saludos, Dreamermx

[DREAMERMX]

... y el segundo codigo va sumando, pero por cada click me inserta una fila en blanco adelante...

Algo debo estar haciendo mal?

[Antoni]

Sube tu archivo y explícate con un ejemplo.

[DREAMERMX]

Te respondi y envie un link, pero el sistema no me lo permite por mi nivel... Gracias de todos modos. Saludos!

[JSDJSD]

Súbelo a Drive y comparte el enlace

[DREAMERMX]

No se por que razon ayer no me permitio subirlo. Gracias!

[Janlui]

Este tema ya se te resolvió en TodoExcel. 

[DREAMERMX]

Hace 6 minutos , Janlui dijo:

Este tema ya se te resolvió en TodoExcel. 

Estimado, aquí trato de resolver otra alternativa muy diferente que es generar un autonumerico con la máscara  "REG-0001", veo difícil que sea la misma solución y tras frustrados intentos no logre resolverlo y la idea es aprender un poco de ambas alternativas. Yo no soy programador y tampoco me dedico a esto, pero soy entusiasta y me gusta generar cosas nuevas y útiles y ese tipo de problema siempre es con el que me he topado. generar una numeracion automatica de forma simple. Gracias por tu interés. Saludos!

[Janlui]

Espero te sirva

REG-0001.xlsm

[DREAMERMX]

Hace 9 horas, Janlui dijo:

Espero te sirva

REG-0001.xlsm 21.97 kB · 2 descargas

Hola Janlui! Excelente solucion, mucho mas sencilla que otras que he visto y con solo 2 lineas de codigo.  Me ha ayudado mucho a enterlo. Mil Gracias! Abrazo. Dreamermx.-