none
Excluindo Coluna com Critério VBA RRS feed

  • Pergunta

  • Ola Pessoal

    Preciso de ajuda no seguinte caso:

    Tem uma planilha com algumas colunas. Essas colunas possuem Títulos. Eu gostaria de excluir a coluna inteira de acordo com o título selecionado. 

    Exemplo:

    Coluna A = Título A

    Coluna B = Título B

    Clicando no botão da macro ele deveria abrir uma Userform com um TextBox onde eu digito o titulo e automaticamente a coluna correspondente seria excluída.

    Aceito também opiniões melhores e outras formas de fazer.

    Desde já grato

    segunda-feira, 12 de outubro de 2015 03:49

Respostas

  • Ola Cezário, 

    Fiz este código que atende essa sua necessidade, para utiliza-lo basta apertar ALT + F11 para acessar o editor do Visual Basic, clicar em Inserir -> Módulo e colar o código.

    Sub excluiColuna()
    
    Dim colunaExcluir As String
    Dim ultimaColuna As Long
    Dim colunasExcluidas As Long
    
    Const LINHA_TITULO = 1
    
    colunasExcluidas = 0
    colunaExcluir = InputBox("Qual coluna você deseja excluir?", "Exclusão de colunas")
    
    ultimaColuna = ActiveSheet.Range("A1").End(xlToRight).Column
    
    For i = 1 To ultimaColuna
        If Cells(LINHA_TITULO, i).Value = colunaExcluir Then
            Columns(i).Select
            Selection.Delete Shift:=xlToLeft
            
            colunasExcluidas = colunasExcluidas + 1
            
        End If
    Next i
    
    If colunasExcluidas = 0 Then
        MsgBox "Nenhuma coluna foi encontrada com o título: " & colunaExcluir, vbInformation + vbOKOnly, "Exclusão de Colunas"
    Else
        MsgBox "Coluna Excluída", vbInformation + vbOKOnly, "Exclusão de Colunas"
    End If
    
    End Sub
    

    segunda-feira, 12 de outubro de 2015 12:42