Guru do Excel e Power BI

Enviado: **05 Jan 2018 às 09:32**

Gostaria de limpar todos os componentes de um formulário (TextBox, ComboBox, etc) através de uma função. Encontrei o seguinte código na internet, porém quando eu executo limpa apenas os combobox do meu formulário, os textbox continuam com o conteúdo digitado pelo usuário. O que será que está errado?

Código: Selecionar todos

Public Function LimparComponentes(formulario As UserForm)
    
    Dim controle As Control
    Dim i As Integer

    For i = 0 To formulario.Controls.Count - 1
    
        Set controle = formulario.Controls(i)

        If TypeOf controle Is TextBox Then

            controle.Text = Empty
    
        End If
        
        If TypeOf controle Is ComboBox Then
        
            controle.Text = Empty
        
        End If

    Next i

End Function

Enviado: **05 Jan 2018 às 18:44**

sugestão - disponibilize uma amostra do seu arquivo Excel.

Enviado: **06 Jan 2018 às 15:45**

Olá Osvaldo,

Primeiramente, obrigado pela disposição em ajudar.

Coloquei um arquivo exemplo em anexo.

Abraço!

Enviado: **06 Jan 2018 às 16:30**

Olá, Marcelo.

Segue uma alternativa sem utilizar Function.
Coloque o código abaixo no lugar do código atual vinculado ao botão "limpar".

Código: Selecionar todos

Private Sub CommandButton1_Click()
 Dim controle As Control
  For Each controle In Me.Controls
   If TypeName(controle) = "TextBox" Or TypeName(controle) = "ComboBox" Then
    controle.Text = ""
   End If
  Next controle
End Sub

Enviado: **06 Jan 2018 às 20:53**

Viva Marcelo.

Caso prefira também pode optar pela sugestão que anexo; acciona o gravador de macros, dá um nome à macro, seleciona os campos que pretende limpar e desliga o gravador.

Espero ter ajudado.
Amado

Enviado: **06 Jan 2018 às 21:58**

Outra possibilidade, alterando sua função conforme segue:

Código: Selecionar todos

Public Function LimparComponentes(formulario As UserForm)
Dim controle As Control
Dim i As Integer

For i = 0 To formulario.Controls.Count - 1
    
    Set controle = formulario.Controls(i)

    If TypeOf controle Is msforms.TextBox Then
        controle.Text = Empty
    End If
        
    If TypeOf controle Is msforms.ComboBox Then
        controle.Text = Empty
    End If

Next
End Function

Enviado: **08 Jan 2018 às 09:15**

Bom dia Pessoal!!!

Agradeço imensamente a todos pela ajuda, mas a solução do Reinaldo foi a mais adequada para o que eu preciso. Funcionou certinho.

Abraços.

Guru do Excel e Power BI

Limpar todos os componentes de um formulário

Limpar todos os componentes de um formulário

Re: Limpar todos os componentes de um formulário

Limpar todos os componentes de um formulário

Re: Limpar todos os componentes de um formulário

Re: Limpar todos os componentes de um formulário

Re: Limpar todos os componentes de um formulário

Limpar todos os componentes de um formulário