ActiveCell Row = como executar uma macro

[Felipe Paz]

Bom dia, galera. É o seguinte. Eu criei uma macro para fazer uma busca avançada e configurei o Enter para executar a macro, então, toda vez que um dado é inserido nos campos de critério, basta apenas teclar enter para realizar a busca. O problema é que, independente da célula que está ou da planilha, se pressionar enter ele executa a macro de pesquisa. O que eu preciso é como usar a activecell para definir que apenas quando estiver na linha tal a macro vai ser executada.

 

O código é:

Public Sub Pesquisa()
'
' Pesquisa Macro
'
     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
    
    If Range(Cells(Selection.Row, 1).A5, L5).Select Then
    
          Application.OnKey "~", "Pesquisa"
          Application.OnKey "{ENTER}", "Pesquisa"
          Range("A5").Select
    End If
    
    
End Sub

A linha 5 da planilha pesquisa precisa estar definida para executar o if do código.

[CasaDoHardware]

Tente assim 

 

If cells(5,coluna onde é feita a consulta) <>"" then 

 

Executa a macro

 

end if