Excel - Código VBA Busca número exato

[COMPRADOR]

Bom dia

 

Tenho a seguinte código:

 

Private Sub Worksheet_Change(ByVal Target As range)

    Dim c As range

 

    

    If Target.Count > 1 Then Exit Sub

    If Target.Address <> "$D$3" Or Target.Value = "" Then Exit Sub

     

     

    With Sheets("Registro")

    

      Set c = .range("A:A").Find([d3])

      

                                                  

      If Not c Is Nothing Then

      

        range("D4").Resize(16).Value = _

                Application.Transpose(.Cells(c.Row, 2).Resize(, 16).Value)

 

          [D6] = "=IFERROR(INDEX(Tabela9[Área],MATCH(D4,Tabela9[servidor],0)),"""")"

          [D14] = "=IFERROR(INDEX(TABELA_CIDADES_REGIONAIS[Regional],MATCH(Inclusão!D13,TABELA_CIDADES_REGIONAIS[Cidade],0)),"""")"

          

    End If

    

        

    End With

End Sub

 

 

O que acontece é que quando busco o código 288 (0288) na D3, ele me retorna os dados do registro 4288. Ou seja não está fazendo a busca exata.

Como faço para alterar o código acima para esta busca exata do número?

Obrigada

[Visitante]

Substitua esta linha:

Set c = .Range("A:A").Find([d3])

Por esta:

Set c = .Range("A:A").Find([d3], lookat:=xlWhole)

[COMPRADOR]

Deu certíssimo, muito obrigada mais uma vez Osvaldo!!