Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Limpar TextBox.
 
Notifications
Clear all

Limpar TextBox.

 
2024 - VBA & Macros
3 Posts
1 Usuários
0 Reactions
756 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!

Utilizo o código abaixo para limpar os dados de todas as textbox e combobox e optionbuttons do meu formulário, mas gostaria de deixar um textbox (textboxData) com os dados, alguém pode me dar uma luz por favor?

Private Sub cmbLimpar_Click()
    
    Dim ctl As MSForms.Control

    For Each ctl In Me.Controls
        Select Case TypeName(ctl)
            Case "TextBox"
                ctl.Text = ""
            Case "CheckBox", "OptionButton", "ToggleButton"
                ctl.Value = False
            Case "ComboBox", "ListBox"
                ctl.ListIndex = -1
        End Select
    Next ctl
    Frame1.SetFocus
    Me.TextBox1 = Date
    Me.TextBox1.Enabled = False
    

End Sub

Obrigado!

Doni

 
Postado : 13/04/2016 6:54 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia Doni,

Tenta assim:

Option Explicit

Private Sub cmbLimpar_Click()
Dim ctl As MSForms.Control

    For Each ctl In Me.Controls
        If Not ctl.Name = "textboxData" Then
            Select Case TypeName(ctl)
                Case "TextBox":         ctl.Text = Empty
                Case "CheckBox":        ctl.Value = False
                Case "OptionButton":    ctl.Value = False
                Case "ToggleButton":    ctl.Value = False
                Case "ComboBox":        ctl.ListIndex = -1
                Case "ListBox":         ctl.ListIndex = -1
            End Select
        End If
    Next ctl
    
    Frame1.SetFocus
    Me.TextBox1 = Date
    Me.TextBox1.Enabled = False

End Sub

Qualquer coisa da o grito.
Abraço

 
Postado : 13/04/2016 7:09 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Perfeito Bernardo!

Valeu Obrigado!

Doni

 
Postado : 13/04/2016 7:15 am
Forum Jump:
  Tópico Anterior
Próximo Tópico