Macro para digitar ciertos números en textbox y copiar los dígitos en diferentes celdas
Buenas noches.
Necesito de su ayuda
Tengo un formato de registro de notas en excel 2013, lo cual tengo que digitar el documento de identidad que es de 8 dígitos, pero el problema es que tengo llenar cada dígito en cada celda.
Mi idea es crear un formulario con un textbox y un button, como se adjunto en la imagen
Gracias por su valioso tiempo.
Respuesta de csarxex fmv
1
2 respuestas más de otros expertos
Respuesta de Freddy Maihuire
1
En tu botón insertar por este código
Private Sub CommandButton1_Click()
Dim UltLinea As Long
Dim i As Byte
'Ultima posicion vacia
UltLinea = Range("C" & Rows.Count).End(xlUp).Row + 1
Cells(UltLinea, 1).Value = "a"
'Insertar registros en las celdas
'C,D,E,F,G,H,I,J
For i = 1 To Len(txtDNI.Text)
Cells(UltLinea, i + 2) = Mid(txtDNI.Text, i, 1)
Next i
End SubY esto coloca en el evento Initialize para que solo te permita ingresar 8 digitos.
Private Sub UserForm_Initialize() Me.txtDNI.MaxLength = 8 End Sub
