Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Esses procedimentos (macros) do aplicativo Microsoft Excel VBA(Visual Basic Application), limpa todos objetos Textboxes de um determinado objeto Userform, observe que poderá também usar o código, fazer um macro para também limpar os objetos textboxes quando chamados.
Espero que o exemplo possa lhe ser útil. Fique com Deus, Expedito Marcondes.

Private Sub CommandButton1_Click()
Dim T As Control
TextBox1.SetFocus
For Each T In UserForm1.Controls
    If TypeName(T) = "TextBox" Then
       T.Value = ""
    End If
Next Z
End Sub

Private Sub CommandButton2_Click()
limpar_todos_textoboxes
MsgBox ("textbox foram limpados com macros"), vbInformation, "Saberexcel"
TextBox1.SetFocus
End Sub

Private Sub Label1_Click()
Unload Me
UserForm2.Show
End Sub

Private Sub UserForm_Initialize()
TextBox1.SetFocus
End Sub
'- - - - - - - - - - - - - - - - - - - - - - - -
veja o macro que voce poderá fazer para chamar a partir de um módulo comum
para diversos userforms.

Sub limpar_todos_textoboxes()
Dim T As Control
UserForm1.TextBox1.SetFocus
For Each T In UserForm1.Controls
    If TypeName(T) = "TextBox" Then
       T.Value = ""
    End If
Next T

End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



  Baixe o exemplo de planilha contendo os procedimentos e macro acima:
Excel vba planilha usf textboxes limpar todas (86.02 KB)