Como validar campos en blanco en un formulario de vba en excel y si están llenos aceptar y guardar los datos.

Como puedo validar los campos en blanco ( Textbox) en un formulario de vba en excel y si están llenos los campos que permita guardar los datos de los campos, caso contrario No registre hasta que se llenen todos los campos.

2 respuestas

Respuesta
1

[Hola 

utilizar la sentencia if

if textbox1 <> "" or textbox2 <> "" then 
codigo si es verdadero 
else
código si es falso 
end if
Respuesta
1

Prueba lo siguiente:

Private Sub CommandButton1_Click()
  If TextBox1 = "" Then
    MsgBox "Captura el dato en textbox1"
    TextBox1.SetFocus
    Exit Sub
  End If
  If TextBox2 = "" Then
    MsgBox "Captura el dato en textbox2"
    TextBox2.SetFocus
    Exit Sub
  End If
  '
  'continuar con validaciones si tienes otros textbox
  '
  '
  'Código para guardar los datos.
  'Es un ejemplo, porque no sé en cuál hoja ni en cuáles columnas guardar los datos
  Dim lr As Long
  '
  With Sheets("Hoja1")
    lr = .Range("A" & Rows.Count).End(3).Row + 1
    .Range("A" & lr).Value = TextBox1.Value
    .Range("B" & lr).Value = TextBox2.Value
    '
    'guardar otros campos
    '
  End With
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas