NO, en ese punto todo está como antes y tiene que estar, hasta el txtbox4 que es lo que me interesa, porque los textbox 5,6,7,8 son codigo y numero para telefonos secundarios (extras) y se agregan cuando los hay, es decir que si tu tienes 2 numeros de telefono, ya el segundo va el codigo en el textbox 5 y el numero en el 6. Si no hay numeros extras, entonces siempre me pediria en que los textbox 5,6,7,8 no pueden quedar vacios y eso no me daba la talla. Un numero siempre lo integras, para eso es la lista, lo que no sabes es si hay dos o 3 numeros pero el primer (textbox3 y 4) si OBLIGATORIAMENTE TIENES QUE INTRODUCIR EL NUMERO
Lo que hice fue eliminar el codigo
TODO este codigo referente a los textbox 5,6,7,8
Cita: 'Este campo solo puede ser numerico
If Not IsNumeric(TextBox7) Then
MsgBox prompt:="Debe ingresar un valor numerico, en el campo de CODIGO", Buttons:=vbOKOnly, Title:="VALOR NULO"
TextBox7 = Empty
Exit Sub
End If
y colocar este a los textbox 5,6,7 y 8
Cita: Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not (KeyAscii >= 48 And KeyAscii <= 57) Then
KeyAscii = 0
MsgBox "Solo puede ingresar numeros", vbOKOnly + vbInformation, "AVISO"
End If
End Sub
anda de pinga
Pruebalo si quieres ver. Ya solo me falta eliminar el codigo referente a exportar a acces y su boton, vere si me sale bien para la lista telefonica.
No lo he echo antes porque tengo tiempo limitado para estas cosas pero me gusta