Contar TextBox NO vacíos y listar en un listbox
Tengo un formulario con varios textbox a rellenar, mucho de los cuales pueden estar vacíos sin problemas, pero necesito saber cuantos hay rellenados. Es decir, tengo 5 textbox a rellenar, solo escribo en 2, y en otro listBox me tiene que salir 2.
La cosa, es que tengo otra casilla que suma las cantidades de esos textbox, pero no me se como se podrían contar los escritos.
No se si me he explicado bien.
1 respuesta
Respuesta de Adriel Ortiz Mangia
1
H o l a
Te paso la macro
Private Sub CommandButton1_Click() 'Por Adriel n = 0 ListBox1.Clear For Each j In Me.Controls If TypeOf j Is MSForms.TextBox Then If TypeName(j) = "TextBox" Then If j.Value <> "" Then n = n + 1 End If End If End If Next MsgBox "Campos no vacíos " & n, vbCritical, "AVISO" ListBox1.AddItem n End Sub
Valora Excelente o bueno para finalizar saludos!
