Validar que todos los TextBox de un formulario estén informados

[Antoni]

Hola:

Os dejo esta macro que comprueba que todos los TextBox de un formulario contienen información.

Los errores son remarcados con fondo amarillo.

Si hay errores, el cursor se posiciona en el primer TextBox erróneo.

Private Sub ValidarTextBox()

Dim Errores As Integer, Campo As Control, Control As Control


For Each Control In Controls

   If TypeOf Control Is MsForms.TextBox Then

      Control.BackColor = vbWhite

      If Control.Value = Empty Then

         If Campo Is Nothing Then

            Set Campo = Control

         End If

         Control.BackColor = vbYellow

         Errores = Errores + 1

      End If

   End If

Next


If Errores > 0 Then

   Campo.SetFocus

   MsgBox "Debe rellenar todos los campos", , "Depuración de datos"

   Exit Sub

End If


End Sub



[/CODE]

Saludos a todos

[Enigma25]

Muy buena idea!!!

Mil gracias maestro!

[itzy alonso]

excelente asi ya no tendre q enumerarlos es perfecto, gracais por ese aporte