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

[Mathmatic]

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.

[Reinaldo]

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

[Mathmatic]

sr. Reinaldo,

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

muito obrigado ....