Foro Excel

MUY BUENOS DIAS SEÑORES DEL FORO

MY CONSULTA ES LA SIGUIENTE TENGO UN TEXTBOX EN EL CUAL INGRESO UN NUMERO DE FACTURA EJ: 1001001 SON 7 DIJITOS QUISIERA QUE SI DIJITO LOS 7 NUMERO LO VALIDE O SEA LO ACEPTE SI SE DIJITA MENOS DE 7 DIJITOS MUESTRE UN MEGABOX POR EJEMPLO "NUMERO DE FACTURA INCOMPLETO"
DE ANTE MANO MUCHAS GRACIAS POR LA AYUDA RECIBIDA

SALUDOS
JAIRO GAMARRA F

a ver esto:

Código: Seleccionar todo

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Len.-devuelve el número de caracteres en una cadena
If Len(TextBox1.Text) > 7 Then 'si tiene mas de 7 caracteres
      MsgBox "Texto demasiado largo,escriba hasta 7 caracteres."
      TextBox1 = Empty
      Cancel = True
ElseIf Len(TextBox1.Text) < 7 Then
      MsgBox "Texto incompleto,escriba 7 caracteres."
      TextBox1 = Empty
      Cancel = True
Else
    'dato correcto
End If
End Sub

Muchas gracias ST funciono perfecto


saludos
jairo gamarra f
colombia