Macro procurar

2024 - VBA & Macros

Post Recente por P@tropi 5 anos atrás

3 Posts

3 Usuários

0 Reactions

1,410 Visualizações

RSS

Raike

(@raike)

Posts: 12

Active Member

Topic starter

Pessoal preciso de uma ajuda simples com a macro abaixo, aonde esta escrito "CARLOS" eu precisava que ela entendesse qualquer terxo que estivesse digitado na celula G8 Plan1 para assim pesquisar na planilha "Férias" e não como ficou gravado com o nome que estava atualmente

Sub Macro8()
'
' Macro8 Macro
'
    Range("G8").Select
    Selection.Copy
    Sheets("FÉRIAS").Select
    Range("A6").Select
    Cells.Find(What:="CARLOS", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub

Postado : 31/10/2019 7:58 am

srobles

(@srobles)

Posts: 231

Estimable Member

Raike,

Experimente :

Sub Macro8()
Dim valorPesquisado As String

valorPesquisado= Range("G8")

Sheets("FÉRIAS").Select
Range("A6").Select
Cells.Find(What:=valorPesquisado, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub

Ou teste o modelo do link : https://www.sendspace.com/file/y9fakf

Espero ter ajudado.

Abs.

Saulo Robles

Postado : 02/11/2019 4:12 pm