Condicionales para Guardar en un Userform

[eduar5]

Buen día nuevamente,

Agradeciendo y al mismo tiempo aprovechando la buena voluntad de ayuda. Necesito un código que realice lo siguiente: Que no pueda guardar si los primieros tres textbox se encuentran vacios y si por lo menos uno de los textbox tiene valor que sí me permita hacerlo, conseguí un cod. pero solamente me funciona con el textbox1.

Otro punto sería condicionar los primeros textbox a que acepten solamente números, eso tomando en cuenta que en ellos he colocado un cód. que me permite sumar dentro de cada textbox.

Por su ayuda muy agradecido.

Condicional p G.rar

[Toldeman]

Hola.

Para que acepte solo números prueba este código:

Private Sub TextBox1_Change()
If Not IsNumeric(Me.TextBox1.Value) Then
MsgBox "solo numeros"
x = VBA.Len(Me.TextBox1.Value) - 1
Me.TextBox1.Value = VBA.Left(Me.TextBox1.Value, x)
End If
End Sub

Y para que no se añada ningún registro si los tres primeros TextBox están vacíos prueba este otro:

If Me.TextBox1 = "" And Me.TextBox2 = "" And Me.TextBox3 = "" Then Exit Sub

Saludos.

[Antoni]

Lo que se dice en este post, también te puede ser útil , si no ahora, si puede ahorrarte la próxima consulta.

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/poner-diagonal-textbox-despues-cierta-cantidad-caracteres-26138/