Bom dia,

tinha uma planilha que funcionava perfeitamente, mas com uma atualização da microsoft para o Excell apareceu o seguinte erro: Erro de compilação...."Método ou membro de dados não encontrado".

Não sei como corrigir. Alguém pode me ajudar?

Não sei como enviar anexo.

Public Sub Procurar()
Apagar
Contagem
a = 8
Set c = Plan1.Range("A2:C" & s).Find(Plan4.txtProcura.Text, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If a > 300 Then
MsgBox "A busca excedeu 250 resultados. Refine a busca.", vbExclamation + vbOKOnly, "Busca de Nomes."
Exit Do
End If
DoEvents
a = a + 1
z = c.Row
Plan4.Cells(a, 1).Value = Plan1.Cells(z, 1).Value
Plan4.Cells(a, 2).Value = Plan1.Cells(z, 2).Value
Plan4.Cells(a, 3).Value = Plan1.Cells(z, 3).Value
Plan4.Cells(a, 4).Value = Plan1.Cells(z, 4).Value
Plan4.Cells(a, 5).Value = Plan1.Cells(z, 5).Value
Set c = Plan1.Range("A2:C" & s).FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
Preencher
'Abaixo a mensagem original
'Plan4.Range("A7").Value = "Foram encontrados " & a - 8 & " resultados de um total de " & s - 1 & " itens."
Plan4.Range("A7").Select
Plan4.txtProcura.Activate
Plan4.txtProcura.SelStart = 0
Plan4.txtProcura.SelLength = 20
MsgBox "Foram encontrados " & a - 8 & " resultados de um total de " & s - 1 & " itens.", vbDefaultButton1, "Resultado da Consulta"

End Sub