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 Respuesta
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 WithTextBox1 = 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
