[albino10]

Penso que fiz quase todos os códigos para acionar o botão Excluir, pois todas as mensagens aparecem normalmente, só que a linha buscada não é excluida, poderiam ajudar-me por favor? hoje é o 2º dia inteiro que continuo pesquisando a solução e não acho.  Segue anexo o arquivo para melhor entendimento.

Private Sub BtExcluirCad_Click()

On Erro GoTo Erro

Plan6.Activate

Dim plan As String

plan = Plan6.Name

 

Dim confirmar As String

confirmar = MsgBox(“Deseja realmente EXCLUIR este registro?”, vbYesNo, “EXCLUIR”)

 

If confirmar = vbNo Then

MsgBox “Exclusao cancelada!”, vbInformation, “EXCLUIR”

Exit Sub

End If

Dim c

With Worksheets(plan).Range(“A:A”)

Set c = .Find(resp, LookIn:=xlValues, lookat:=xlWhole)

 

If Not c Is Nothing Then

c.Activate

Selection.EntireRow.Delete

MsgBox “Exclusao efetuada com sucesso!”, vbInformation, “EXCLUIR”

Else

End If

 

End With

Exit Sub

Erro:

MsgBox “Erro!”, vbCritical, “ERRO”

End Sub

[albino10]

reenviando o arquivo

[Autor]

Artigos