Excel RESOLVIDO Comando de Busca em VBA Excel

[Middas 1]

Caras, primeiramente peço desculpas caso eu esteja postando isso no local errado.

 

Mas é o seguinte, estou montando uma planilha no excel e preciso da seguinte situação:

 

Em uma celula, no caso J2, eu tenho uma data, e ao clicar em um botão preciso que o código  faça uma busca nas linhas da

coluna I, e ao encontrar a data que coincide (no caso, somente uma data nessa coluna irá coincidir), este retorne o numero da linha em que foi encontrado.

 

já tentei usando Find mas não consegui, sou leigo no assunto e necessito de ajuda. Desde já agradecido a quem puder ajudar.

Editado 16 de dezembro de 2017 por DiF

[Basole 642]

Segue um exemplo:

Sub BuscaLinha()
    Dim rng      As Range
    Dim suaData  As Date

    With ThisWorkbook.Sheets("nome da sua aba")
    
       suaData = .Range("J2")
        Set rng = .Columns("I").Find(suaData, LookIn:=xlValues, Lookat:=xlWhole)
          If Not rng Is Nothing Then
              MsgBox suaData & "-> encontrada na linha:  " & rng.Row, 0, ""
          Else
              MsgBox " Não encontrado"
          End If
    End With
End Sub

 

[Middas Autor do tópico 1]

25 minutos atrás, Basole disse:

Segue um exemplo:

Sub BuscaLinha()
    Dim rng      As Range
    Dim suaData  As Date

    With ThisWorkbook.Sheets("nome da sua aba")
    
       suaData = .Range("J2")
        Set rng = .Columns("I").Find(suaData, LookIn:=xlValues, Lookat:=xlWhole)
          If Not rng Is Nothing Then
              MsgBox suaData & "-> encontrada na linha:  " & rng.Row, 0, ""
          Else
              MsgBox " Não encontrado"
          End If
    End With
End Sub

 

 

Cara muito obrigado, é exatamente o que eu preciso.

Valeu pelo seu tempo.