none
Excluir conteúdo de uma célula usando um combobox e um botão RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Pessoal, preciso de ajuda pra resolver o seguinte problema:

    Tenho uma planilha com dois formulários:

    1.        um cadastra itens em uma mesma coluna e depois os organiza em ordem alfabética (este funciona bem)
    2.        O outro somente exclui estes itens cadastrados (este não consigo fazer funcionar)

    O form que exclui itens mostra ao usuário através de um comboBox o item. Se o usuário clicar no botão remover o item deve ser apagado da planilha.

    Como fazer esta exclusão em vba?

    sexta-feira, 18 de setembro de 2015 16:16
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Estou considerando que não será possível cadastrar itens repetidos na planilha e que os dados se encontram na coluna A:

    Private Sub CommandButton1_Click()
    'Botão de excluir
    
    Dim MatchRow As Variant
    Dim ws As Worksheet
    
    If ComboBox1.Text = "" Then
        MsgBox "Selecione um item para excluir!", vbExclamation
        ComboBox1.SetFocus
        Exit Sub
    End If
    
    Set ws = ThisWorkbook.Worksheets("Base de Dados")
    
    MatchRow = Application.Match(MatchRow, ws.Columns("A"), 0)
    If IsError(MatchRow) Then
        MsgBox "Registro não encontrado na planilha!", vbExclamation
        ComboBox1.SetFocus
        Exit Sub
    End If
        
    ws.Rows(MatchRow).Delete
    ComboBox1.RemoveItem ComboBox1.ListIndex
    MsgBox "Registro excluído com sucesso.", vbInformation
End Sub

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

    sexta-feira, 18 de setembro de 2015 20:59
    |
    Moderador