none
Private Sub EXCLUIR_Click() erro1004 RRS feed

  • Pergunta

  • 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

    sábado, 2 de maio de 2015 00:09

Respostas

  • 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

    segunda-feira, 4 de maio de 2015 12:45
    Moderador

Todas as Respostas

  • 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

    segunda-feira, 4 de maio de 2015 12:45
    Moderador
  •  OBRIGADO FELIPE FICOU JÓIA, É ISSO AI QUE EU QUERIA VALEU MESMO OBRIGADO.
    terça-feira, 5 de maio de 2015 20:37