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

  • Pergunta

  • 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

  • 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