Macro Copiar Linha com determinado critério

alison.rm · 9 de setembro de 2013

Olá Srs

Estou tentando criar uma macro que limpe uma planilha... ela tem vários dados classificados por colunas. Só para exemplificar:

..........A................B................C................D................E..............

........nome.........endereço........tel..............cep............cidade.........

Gostaria de excluir todas as colunas que não contém esses dados: nome, tel, cidade. O detalhe é que nem sempre a coluna A é nome, a B é endereço etc, e nem sempre a linha 1 contém os descritivos, nome, endereço...

Qualquer ajuda é bem vinda.

Obr

alison.rm · 12 de setembro de 2013

Ninguém pode ajudar?

zinhovba · 15 de setembro de 2013

Boa noite!!

Um exemplo seria

Sub DeletarColunas() 
    Dim i As Integer, A As range 
    For i = 10 To 1 Step -1 
        Set a = Cells(1, i).Find(What:="Nome", LookIn:=xlValues) 
        If Not a Is Nothing Then a.EntireColumn.Delete 
    Next i 
End Sub

alison.rm · 16 de setembro de 2013

Boa noite!!

Um exemplo seria

Sub DeletarColunas() 
    Dim i As Integer, A As range 
    For i = 10 To 1 Step -1 
        Set a = Cells(1, i).Find(What:="Nome", LookIn:=xlValues) 
        If Not a Is Nothing Then a.EntireColumn.Delete 
    Next i 
End Sub

zinhovba, obr pelo retorno.

Esse comando apaga a colunas que contém "nome", porém eu busco o inverso, excluir as colunas que não tenha "nome".

De qualquer forma eu sei quais os títulos das colunas, então eu posso colocar o "nome" de todas as colunas que não são necessárias e ao rodar ficariam só as que quero.

Mas se puder ajudar com a instrução correta ficaria mais limpa.

Att