Excel Pesquisa com valores exato VBA

[franchinni]

Bom dia  pessoal, 

 

Preciso muito da ajuda de vocês, estou com este código abaixo funcionando porém ele não trás o nome exato na pesquisa, preciso que seja exato alguém me ajuda? 

Private Sub TextBoxModelo_AfterUpdate()
If Me.TextBoxModelo = " " Then
Exit Sub
End If

 

Dim linha As Integer
Dim codigo As String

codigo = TextBoxModelo

Sheets("DADOS").Select

On Error GoTo não_encontrado

linha = Sheets("DADOS").Range("A:A").Find(codigo).Row

TextBoxFabricante = Sheets("DADOS").Cells(linha, 2)
TextBoxTecnologia = Sheets("DADOS").Cells(linha, 3)

[Visitante]

 

Acrescente o parâmetro em vermelho, conforme abaixo.

 

linha = Sheets("DADOS").Range("A:A").Find(codigo, lookat:=xlWhole).Row

[franchinni]

@osvaldomp obrigado!!!!! funcionou!!