Necesito hacer una lista de nombres en excel

Necesito hacer una lista para introducir nombres en excel pero al introducir los nombres con formulario, necesito que enumere cada nombre introducido, por ejemplo en la celda A necesito que aparezca el número y en la celda B aparezca el nombre. Tengo un UserForm1 con el siguiente código:

Private Sub CommandButton1_Click()
ActiveSheet.Cells(12, 2).Select
Selection.EntireRow.Insert
ActiveSheet.Cells(12, 2) = TextBox1
TextBox1 = Empty 'borra los datos ingresados en la caja de texto
TextBox1. SetFocus 'coloca el cursor en la caja de texto
ORDENAR 'llamada de la macro para ordenar datos ingresados
'convierte los datos ingresados en mayusculas
Set rango = Range("b2:b50")
Dim celda As Range
For Each celda In rango.Cells
celda.Value = UCase(celda.Text)
Next
End Sub

¿Se podría introducir un código para generar un número en una celda adyacente en el mismo botón de comando?

1

1 Respuesta

191.425 pts. Si de mis mayores gustos, mis disgustos han nacido,...

Prueba estos cambios

Set datos = Range("b2").CurrentRegion

With ActiveSheet
.Cells(12, 2).Select
Selection.EntireRow.Insert
.Cells(12, 1) = datos.Rows.Count + 1
.Cells(12, 2) = TextBox1
End With

TextBox1 = Empty 'borra los datos ingresados en la caja de texto
TextBox1.SetFocus 'coloca el cursor en la caja de texto
'ORDENAR 'llamada de la macro para ordenar datos ingresados
'convierte los datos ingresados en mayusculas
Set rango = Range("b2:b50")
Dim celda As Range
For Each celda In rango.Cells
celda.Value = UCase(celda.Text)
Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas