Planilha Excel VBA Shapes 39 busca botoes autofiltro
Excel VBA Shapes 39 busca Planilha botões auto filtro
BUSCA AUTOFILTRO ATRAVES DE BOTÕES LETRA
Com ste Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),Autofiltro usando Shapes(Botões), que ficam negritos e coloridos ao responder a chamada (escolha) fiz mais dois sisteminha de busca além dos botões:
(com TextBox e ComboBox) .
Abaixo – Baixe o exemplo de planilha do excel contendo macros botões com letras para autofiltro de dados.
Fique com Deus, Expedito Marcondes
‘//===========’
Sub sbx_autofiltro_botao_letra()
i = 2
For Each c In ActiveSheet.Shapes
If c.Type = 8 And Left(c.Name, 4) <> “sbx” Then
c.TextFrame.Characters(Start:=1, Length:=1).Font.Bold = False
c.TextFrame.Characters(Start:=1, Length:=1).Font.ColorIndex = 0
End If
Next c
NomeShape = Application.Caller
‘[A1] = ActiveSheet.Shapes(NomeShape).TextFrame.Characters.Text
ActiveSheet.Shapes(NomeShape).TextFrame.Characters(Start:=1, Length:=1).Font.Bold = True
ActiveSheet.Shapes(NomeShape).TextFrame.Characters(Start:=1, Length:=1).Font.ColorIndex = 3
‘— AutoFiltro
Letra = ActiveSheet.Shapes(NomeShape).TextFrame.Characters.Text
criterio = “=” & Letra & “*”
Range(“B4”).Select
Selection.AutoFilter Field:=1, Criteria1:=criterio
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.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
 Excel VBA Shapes 39 busca Planilha botões auto filtro |
| << No seu Email: Verifique a Caixa de Itens Excluídos Também >> |
Excel VBA Shapes 39 busca Planilha botões auto filtro
