Jump to content

Mensaje de "Error" al introducir dato erroneo en Useform


Recommended Posts

Posted

Muy buenas de nuevo foreros! De nuevo vuelvo a pedir consejo a vosotros, genios del excel!

Os explico un poco lo que me sucede. Tengo un Useform (funciona perfectamente), que por medio de cinco textbox me pide diferentes datos:

Textbox1 es de tipo numerico

Textobox2 y 3 de tipo texto

Textbox 5 y 5 de tipo fecha

Y ademas tengo 5 optionbutton.

Para completar el useform, tengo el boton de "aceptar", que lo valida todo y el de cancelar, que lo cancela (obvio, no?)jeje. Bueno, al grano. Todo me funciona a la perfeccion, pero, para mejoralo un poco, me gustaria que si se introdujese en un campo algo erroneo (por ejemplo, en el textbox1 texto), saliese un mensaje de error.

Me da igual que el mensaje salga al dar al boton de aceptar o nada mas introducirlo en el textobox, pero lo que si que quiero es que si hay varios campos metidos y se introduce uno erroneo, no borrase del useform los que estan bien introducidos. ¿Me explique con claridad?

Os dejo el codigo que tengo. ¡Y muchas gracias por vuestro tiempo!

Private Sub CommandButton1_Click()

Dim c As Range

Call visualizarplantilla

Application.ScreenUpdating = False

Fila2 = Cells(1000000, 2).End(xlUp).Row

Fila3 = Fila2 + 1

Range("A" & Fila3) = CCur(TextBox1)

Range("A" & Fila3).Select

Selection.NumberFormat = "General"

Range("B" & Fila3) = LTrim(TextBox2)

Range("B" & Fila3).Select

For Each c In Selection

c.Value = StrConv(c.Value, vbUpperCase)

Next c

Range("C" & Fila3) = LTrim(TextBox3)

Range("D" & Fila3) = CDate(TextBox4)

Range("D" & Fila3).NumberFormat = "dd/mm/yyyy"

Range("E" & Fila3) = CDate(TextBox5)

Range("E" & Fila3).NumberFormat = "dd/mm/yyyy"

Range("B" & Fila3).Select

For Each c In Selection

c.Value = StrConv(c.Value, vbUpperCase)

Next c

Call anadirfila

Call anadirpestana

Call hipervincular

Call actualizarpestana

Call copiarformato

Call ocultarplantilla

End

Fila3 = 0

Fila2 = 0

ActiveSheet.DisplayPageBreaks = True

End Sub

Posted

Has de utilizar las funciones de comprobación de tipo de dato IsNumeric() e IsDate(), ejemplo:



If IsDate(Textbox1) = False Then
MsgBox "Fecha errónea"
Exit Sub
End If


If IsNumeric(Textbox2) = False Then
MsgBox "Importe erróneo"
Exit Sub
End If


[/CODE]

Posted

Muchas gracias por responder Macro Antonio, pero sigo teniendo dificultades. Por ejemplo, ¿como hago para que, si no introduzco nada en el textbox2 (que por cierto, lo tengo definido como texto), me salga una ventanita de "no hay nada en el 2º", y me vuelva a pedir todos los datos?

Ejemplo: (tengo 5 textbox)

T1: 152

T2: en blanco

T3: jandepor

T4: 15/12/2012

T5:15/12/2012

Si pongo esto y le doy a aceptar, me deberia de aparecer otra vez el useform, porque el T2 esta enblanco. ¿Me he explicado con claridad?

Posted

Fijate que yo tengo un codigo que tal vez te sirva, lo anexo, este te avisa si falta algo y te regresa al textbox, igual valida que el textbox numero solo acepte numeros, saludos cordiales.

Private Sub CommandButton1_Click()

If Me.TextBox1.Value = "" Then

MsgBox "Falta Nombre"

Me.TextBox1.SetFocus

Exit Sub

End If

If Me.TextBox2.Value = "" Then

MsgBox "Falta Dirección"

Me.TextBox2.SetFocus

Exit Sub

End If

If Me.TextBox3.Value = "" Then

MsgBox "Falta Télefono"

Me.TextBox3.SetFocus

Exit Sub

End If

If Not IsNumeric(TextBox3.Value) Then

MsgBox "El campo es numerico"

TextBox3.Text = ""

Me.TextBox3.SetFocus

Exit Sub

End If

If Me.TextBox4.Value = "" Then

MsgBox "Falta Ciudad"

Me.TextBox4.SetFocus

Exit Sub

End If

End Sub

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy