Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Usar Enter ao inves...
 
Notifications
Clear all

Usar Enter ao inves de Clicar no Botao

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
753 Visualizações
RSS
 alex_rm
(@alex_rm)
Posts: 0
New Member
Topic starter
 

Boa noite pessoal,

Estou precisando da ajuda de vocês, em algumas planilhas, eu tenho algumas planilhas que criei um botão para atribuir uma macro filtrar o item desejado, porém gostaria de saber se é possivel usar a tecla enter apos digitar a opção que gostaria de filtrar ao inves de usar o clique no botão.

Alguem pode me explicar como eu faço isso, quando eu quiser filtrar algo na planilha, digito a opção e ao pressionar enter ja faz o filtro desejado.

Como eu sou novo nessa area, não tenho esse conhecimento, se é possivel ou não.

Alguem me ajuda com essa duvida.

Obrigado.

 
Postado : 02/11/2017 8:46 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!

Use um controle ActiveX do tipo TextBox, nele digite seu criterio aperte Enter para que o filtro seja filtrado.

Exemplo fictício.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbCr Then
        MeuFiltro
        Range("A1").Select
    End If
End Sub

Private Sub MeuFiltro()
    If Trim(TextBox1.Value) > vbNullString Then
        Range("A1").CurrentRegion.AutoFilter Field:=2, Criteria1:=TextBox1.Value
    ElseIf ActiveSheet.AutoFilterMode Then
        Range("A1").CurrentRegion.AutoFilter
    End If
End Sub

Como usar controle ActiveX
http://www.excel-easy.com/vba/activex-controls.html
Att

 
Postado : 03/11/2017 5:20 am
Forum Jump:
  Tópico Anterior
Próximo Tópico