Excel Botão localizar corespondencia e ir para celula encontrada

[Janilson Brito]

Senhores, bom dia. Preciso de mais uma ajuda.

Tenho uma planilha onde criei um botao para ir a determinada planilha, porém gostaria, se possível, que ao clicar no botao, o mesmo verificar, o dia em que esta determinada na celula "D6" da pasta "passagem de turno I" e ir para mesma celula correspondente na planilha "DADOS - DIA"

EX: 

Na pasta "INICIO" criei um botao "Dados - Turno I" gostaria que ao clicar neste botao, o mesmo verificar a data que esta na celula "d6" da pasta "Passagem de Turno I" e localizar esta data na pasta "DADOS - DIA" e ir para a celula encontrada, por exemplo no caso do dia 23/05 estaria na celula "AA4"

Passagem de Turno.xls

[OreiaG]

Olá, @Janilson Brito
Veja se o código abaixo lhe atende.

 

Sub BuscaData()
 Dim rng As Range
  Set rng = Sheets("DADOS - DIA").Rows(4).Find(Sheets("Passagem de Turno I").[D6])
  If Not rng Is Nothing Then Sheets("DADOS - DIA").Activate: rng.Activate
End Sub

 

[Janilson Brito]

33 minutos atrás, OreiaG disse:

Olá, @Janilson Brito
Veja se o código abaixo lhe atende.

 

Sub BuscaData()
 Dim rng As Range
  Set rng = Sheets("DADOS - DIA").Rows(4).Find(Sheets("Passagem de Turno I").[D6])
  If Not rng Is Nothing Then Sheets("DADOS - DIA").Activate: rng.Activate
End Sub

 

Ficou exatamente como precisava, muito obrigado