Método .Find VBA Excel

Fechado
Denunciar
-
Boa tarde,

Eu estou escrevendo um código para localizar um nome de uma base de dados e trazer as outras informações,

Para isso criei um Formulário.

O código estava funcionando e parou de repente, segue o codigo

Private Sub CmdLocalizar2_Click()

Sheets("BD").Range("d3").Select (O Erro aparece nessa linha)

With Worksheets("BD").Range("D:D")
Set c = .Find(TxtCachorro2.Value, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then

c.Activate (Quanto eu tiro a primeira linha de erro, o erro aparece nessa)
TxtCachorro2.Value = c.Value
TxtTutor2.Value = c.Offset(0, 1).Value
'trazer os dados de producao
TxtConsdia.Value = c.Offset(0, 16).Value
TxtQtdporc.Value = c.Offset(0, 17).Value
TxtTotalprod.Value = c.Offset(0, 18).Value
TxtPack.Value = c.Offset(0, 19).Value
TxtFrete.Value = c.Offset(0, 20).Value
TxtTotalPorc.Value = c.Offset(0, 21).Value
TxtReceita.Value = c.Offset(0, 22).Value
TxtObsProd.Value = c.Offset(0, 23).Value


Else

MsgBox ("Cachorro não encontrado"), vbInformation, "Aviso"

End If
End With

End Sub


Obrigado pela ajuda

Assine nossa newsletter!

Receba toda semana o melhor conteúdo

Assine nossa newsletter!