ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

[Resolvido] VBA para Limpar todos os botões txtBox.Text

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

[Resolvido] VBA para Limpar todos os botões txtBox.Text

Mensagem por Mathmatic » Sáb Fev 29, 2020 2:03 pm

Saudações,

encontrei um ótimo modelo de filtro automático usando lista suspensa com botões txtBox.Text neste: Link aqui.

vai tudo bem quanto ao uso dos filtros, mas minha necessidade para agir mais rápido nas novas consultas, seria conseguir um código VBA para Limpar todos os botões txtBox.Text dos filtros, sem ter que ir em um por um e limpá-los.

se eu conseguisse um código VBA que Limpasse todos os filtros automaticamente para que eu possa fazer uma nova consulta, seria de grande ajuda.

até tentei usar a idéia deste link, mas não funcionou.

também seria de grande ajuda se eu conseguisse melhorar o código que filtra a coluna C, ou seja, para cada Letra que eu digitar neste filtro, então o código VBA existente já deve filtrar todas as situações que começam até a Letra digitada ou começam até as Letras digitadas.

segue em anexo a planilha que baixei do primeiro Link, onde deixei filtrado a coluna B e C para possíveis testes.

agradeço desde já pela ajuda.
Anexos
Filtro automático.rar
(50.68 KiB) Baixado 73 vezes
Editado pela última vez por Mathmatic em Dom Mar 01, 2020 12:49 pm, em um total de 1 vez.


Mathmatic

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1424
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: VBA para Limpar todos os botões txtBox.Text

Mensagem por Reinaldo » Sáb Fev 29, 2020 2:37 pm

Uma possibilidade

Código: Selecionar todos

Sub limpaObj()
Dim objX As OLEObject
With Sheets("Lista")
    For Each objX In .OLEObjects
        'MsgBox objX.Name
        .OLEObjects(objX.Name).Object.Value = ""
    Next
End With
End Sub


Reinaldo
:oops: :D :mrgreen: :geek:

Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

[Resolvido] VBA para Limpar todos os botões txtBox.Text

Mensagem por Mathmatic » Sáb Fev 29, 2020 3:48 pm

sr. Reinaldo,

ficou perfeito o código vba para LImpar os botões txtBox.Text .... :)

muito obrigado .... :)


Mathmatic

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder