Como generar un código autogenerado en excel VB 2016
Quiero saber como generar un código automático en este formato "A001" pero con código excel vb, debe comenzar en la celda A2 y de ahí en adelante, mediante un formulario en vb se ingresan datos uno debajo del otro y el código autogenerado debe acompañarlo y como dije debe ser automático
2 respuestas
Respuesta de Dante Amor
4
Te anexo el código:
Private Sub CommandButton1_Click()
'
'agregar lo siguiente cuando pasas los datos a la hoja
fila = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & fila).Value = "A" & Format(fila - 1, "000")
'
'aquí debes poner tu código
'
'
End Sub'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Respuesta de James Bond
3
Esta macro en cuanto carga el formulario le va asignando al textbox una secuencia con el formato que solicitas e ira incrementado el textbox cada vez que captures un numero
Private Sub CommandButton1_Click()
vacio = Range("a2") = Empty
If vacio Then
Range("a2") = TextBox1.Text
Else
r = Range("a2").CurrentRegion.Rows.Count
TextBox1.Text = "A" & Format(r + 1, "0000")
Range("a2").Rows(r + 1) = TextBox1.Text
End If
End Sub
Private Sub UserForm_Initialize()
r = Range("a1").CurrentRegion.Rows.Count
TextBox1.Text = "A" & Format(r, "0000")
End Sub