none
Como excluir uma linha no excel atravez do VBA

    Question

  •  

     

     

     

    Amigos gostaria da ajuda de vcs tenho um userform com alguns botões e Textbox, um dos botões tem a função de localiza o produto na planilha e jogar no Texbox a informações solicitada já tenho outro botão que tem a função de excluir a informação pesquisada que esta Texbox, o código abaixo esta fazendo essa função quase correta ele encontra a informação solicitada quando peço pra deletar ele tbm deleta a informação solicitada só que na procima consulta ele ñ faz e quando peço pra dele ela deleta a linha onde o cursor do mouse estiver parado ex. se ele excluiu a linha 5 automaticamente ele vai pula pra linha 6 .ai peço pra deleta a linha 9 ele ñ deleta a 9 e sim a linha 6 que era onde o cursor do mouse estava parado. Gostaria da ajuda de vcs ..

     

     

     

     

    Private Sub cmdExcluir_Click()
    'Declarar a variável Resp para receber uma resposta
    Dim Resp As Integer
    'Fazer a busca do registro digitado pelo usuário
    With Worksheets("Dados").Range("E:E")
    Set c = .Find(txt_Procurar.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
    Resp = MsgBox("Tem certeza que deseja excluir o registro?", vbYesNo, "Confirmação")
    If Resp = vbYes Then


    With Dados
    .Rows(DadosLinha).Delete
    End With


    'Limpar as caixas de texto
    TextBox5.Value = Empty
    TextBox6.Value = Empty
    TextBox7.Value = Empty
    TextBox8.Value = Empty
    txt_Procurar.Value = Empty
    TextBox2.Value = Empty
    TextBox3.Value = Empty
    TextBox9.Value = Empty
    TextBox10.Value = Empty
    TextBox11.Value = Empty
    TextBox4.Value = Empty
    'Colocar o foco na primeira caixa de texto
    txt_Procurar.SetFocus
    Else
    MsgBox "O registro não será excluído!"
    End If
    Else
    MsgBox "Cliente não encontrado!"
    End If
    End With
    Exit Sub

    End Sub

     

     

     Abaixo esta um link com o modelo da planilha para baixa e ter uma ideia de como estou falando.

    http://www.4shared.com/document/HcpKcJHP/Teste_excluir.html

     

     

     

    • Edited by dj vinicius Tuesday, January 11, 2011 5:21 PM
    Tuesday, January 11, 2011 2:27 PM

All replies

  • Olá, vê se este link te ajuda:

    http://www.exceldoseujeito.com.br/2011/01/10/pesquisa-personalizada-simples-3-parte-final/

     

    Acho que há, em uma parte do código, um comando para deletar a linha toda.

    • Marked as answer by dj vinicius Wednesday, January 12, 2011 12:26 AM
    • Unmarked as answer by dj vinicius Wednesday, January 12, 2011 12:27 AM
    Tuesday, January 11, 2011 2:37 PM
  • Eu vi la nesse site que vc passou tem umas linha de comando la muito boa .. mais ñ sei se é o que eu procura la .. ñ consegui adaptar na minha planilha a linha que esta la falando.. coloquei a planilha com um link para ter uma ideia

     

     

    http://www.4shared.com/document/HcpKcJHP/Teste_excluir.html

     

     

     

    Tuesday, January 11, 2011 5:33 PM