Enter = executa macro

[Felipe Paz]

Galera, bom dia. No código vba que eu tenho, ao teclar enter ele executa a macro, porém, apenas em célula a macro é executada.

 

As informações que eu tenho para a pesquisa estão em A5:G5 mas apenas quando A5 está preenchida que funciona. É uma pesquisa avançada, portanto, podem ser usados vários critérios para realizar a pesquisa ou apenas um e apenas o critério contido em A5 que funciona.

 

 

Macro de pesquisa avançada

Public Sub Pesquisa()

    Sheets("PESQUISA").Select
    Sheets("basepes").Visible = True
    Sheets("PESQUISA").Select
    Sheets("basepes").Range("A1:L5900").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("PESQUISA!Criteria"), CopyToRange:=Range( _
        "PESQUISA!Extract"), Unique:=False
    Sheets("basepes").Select
    ActiveWindow.SelectedSheets.Visible = False
    Range("A5:L5").Select
    Selection.ClearContents
    Sheets("PESQUISA").Select
    Range("A5").Select

 

End Sub

 

Macro para executar a macro acima pressionando Enter

Public Sub confpesq()

Dim KeyCode As Integer
Dim Shift As Integer

If KeyCode = vbKeyReturn Then
DoCmd.RunMacro "pesquisa"
End If

End Sub

[Basole]

Pf poste sua planilha ou um exemplo

 

[Felipe Paz]

@Basole

 

          Na imagem acima tem os campos como Cod, Loja, Cidade .etc. Pode-se escolher um ou mais critérios para a busca. Um exemplo é buscar as lojas da cidade de Porto Alegre no mês de fevereiro. Clica-se em pesquisa e no campo abaixo retorna os valores com base nos critérios escolhidos. O que eu quero é ao invés de clicar no ícone de pesquisa, a macro seja executada apenas pressionando Enter. Essa macro funciona mas apenas para o campo de COD, nos demais campos como loja, cidade etc precisa clicar no ícone pesquisa para executar a macro.

 

 

Editado:

 

Testando agora os campos, a macro só funciona quando são digitados números nos campos, se digitar texto o Enter não funciona para chamar a macro.

 

Resolvido:

 

Procurando achei o erro. Estava configurado para enter do teclado "{Enter}" . Configurei agora para os dois Enter "~" e "{Enter}". Funcionando como esperado.