Private Sub EXCLUIR_Click() erro1004

Question

erro de tempo de execução 1004

o método select da classe Range falhou

alguem pode me ajudar? desde ja obrigado a todos.

Private Sub EXCLUIR_Click()
Dim y As Integer
With Worksheets("BD").Range("A:A")
Set c = .Find(ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
y = MsgBox("Tem Certeza Que Desejas Excluir o Registro?", vbYesNo, "Confirmação")
If y = vbYes Then

c.Select 
Selection.EntireRow.Delete

ComboBox1.Value = Empty
TextBox1.Value = Empty
TextBox2.Value = Empty
TextBox3.Value = Empty
TextBox4.Value = Empty
TextBox5.Value = Empty
TextBox6.Value = Empty
TextBox7.Value = Empty
ComboBox2.Value = Empty
ComboBox3.Value = Empty
TextBox8.Value = Empty
TextBox9.Value = Empty
TextBox10.Value = Empty
TextBox11.Value = Empty
TextBox12.Value = Empty
TextBox13.Value = Empty
TextBox14.Value = Empty
TextBox15.Value = Empty
TextBox16.Value = Empty
TextBox17.Value = Empty
TextBox18.Value = Empty
TextBox19.Value = Empty

Image2.Picture = LoadPicture("")

ComboBox1.SetFocus
Else
MsgBox "Registro Não Será Excluido!", vbInformation
End If
Else
MsgBox "Registro Não Localizado, Digite Novamente1!"
End If
End With
Exit Sub
End Sub

Answer 1

Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

---

Você está tentando selecionar a célula c ao encontrar uma ocorrência pelo método Find. Sugiro que você faça suas ações sem precisar selecionar a célula, pois se a planilha ativa não for a BD, nesse caso, você terá erro:

Private Sub EXCLUIR_Click()
    Dim y As Integer
    
    With Worksheets("BD").Range("A:A")
        Set c = .Find(ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            y = MsgBox("Tem Certeza Que Desejas Excluir o Registro?", vbYesNo, "Confirmação")
            If y = vbYes Then
                c.EntireRow.Delete
                
                ComboBox1.Value = Empty
                TextBox1.Value = Empty
                TextBox2.Value = Empty
                TextBox3.Value = Empty
                TextBox4.Value = Empty
                TextBox5.Value = Empty
                TextBox6.Value = Empty
                TextBox7.Value = Empty
                ComboBox2.Value = Empty
                ComboBox3.Value = Empty
                TextBox8.Value = Empty
                TextBox9.Value = Empty
                TextBox10.Value = Empty
                TextBox11.Value = Empty
                TextBox12.Value = Empty
                TextBox13.Value = Empty
                TextBox14.Value = Empty
                TextBox15.Value = Empty
                TextBox16.Value = Empty
                TextBox17.Value = Empty
                TextBox18.Value = Empty
                TextBox19.Value = Empty
                
                Image2.Picture = LoadPicture("")
                
                ComboBox1.SetFocus
            Else
                MsgBox "Registro Não Será Excluido!", vbInformation
            End If
        Else
            MsgBox "Registro Não Localizado, Digite Novamente1!"
        End If
    End With
    Exit Sub
End Sub

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 2

 OBRIGADO FELIPE FICOU JÓIA, É ISSO AI QUE EU QUERIA VALEU MESMO OBRIGADO.