Anónimo
Ayuda urgente
Hola experto, tengo la siguiente necesidad y no se como resonverla, diseñe un userform para ingresar datos a una hoja excel, este userform tiene varios textox, cada uno de esos textbos tiene definida la cantidad de caracteres que soporta, entre 1 y 5 caracteres, bueno el caso es que la hoja excel esta definida como que todos los datos que ingresen sean ingresados como texto.
Entonces el textbox1 tiene definido 5 caracteres por tanto lo que ingresa a la celda A1 son 5 caracteres, si dígito "11507" en el textbox a la celda A1 de la hoja excel se ingresa "11507", hasta ahí todo bien... En el textbox dígito "00001" se pasa a la celda A1 de la hoja excel "00001", mi pregunta es ¿cómo puedo hacer que en el textbox digite solo el "1" y se traspase a la hoja excel como "00001", teniendo en cuenta que no debe ser un carácter numérico, sino un carácter alfabético?
De antemano muchas gracias
Entonces el textbox1 tiene definido 5 caracteres por tanto lo que ingresa a la celda A1 son 5 caracteres, si dígito "11507" en el textbox a la celda A1 de la hoja excel se ingresa "11507", hasta ahí todo bien... En el textbox dígito "00001" se pasa a la celda A1 de la hoja excel "00001", mi pregunta es ¿cómo puedo hacer que en el textbox digite solo el "1" y se traspase a la hoja excel como "00001", teniendo en cuenta que no debe ser un carácter numérico, sino un carácter alfabético?
De antemano muchas gracias
1 Respuesta
Respuesta de Elsa Matilde
1
Agregá esta rutina a tu textbox:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) < 5 Then
nvotext = String(5 - Len(TextBox1), "0") & TextBox1
TextBox1 = nvotext
End If
End Sub
Lo que hará es completar con 0 la cantidad de dígitos que falten
PD) Más funciones de conversión en mi manual 400MacrosPlus
Sdos. No olvides finalizar la consulta si el tema quedó resuelto
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) < 5 Then
nvotext = String(5 - Len(TextBox1), "0") & TextBox1
TextBox1 = nvotext
End If
End Sub
Lo que hará es completar con 0 la cantidad de dígitos que falten
PD) Más funciones de conversión en mi manual 400MacrosPlus
Sdos. No olvides finalizar la consulta si el tema quedó resuelto