Cara mande o arquivo que está com problema!!!!!!!!!

Boa tarde!!

gtsalikis , não é necessário!!!

Att

Eu também achava que não era necessário, mas já encontrei um caso aqui, acho que do Edcronos, onde o simples fato de inserir esse ponto deu certo (eu não tinha visto o arquivo, apenas indiquei, ele aplicou e disse que resolveu).

[]s

Boa tarde!!

O ponto neste caso não vai agregar nada, o código vai funciona com ou sem esse ponto do seu post!!!!!!!!!!!!!

Você fez o teste direto no arquivo???

Att

Alexandre,

no código vc colocou para a coluna "W" ser deletada... na verdade eu quero a coluna "L", mas alterei... e usei ao invés de delete apenas o clear...

o meu problema é que essa macro está deletando todas as informações e não está filtrando as informações das células A da Plan1.

vc colocou uma fórmula Corresp.. seria por causa dela?

Boa tarde!!

Cara tu deve está de brincadeira comigo, eu pedi seu arquivo e vc não mandou!!!

que essa macro está deletando todas as informações

Não está deletando nada!!!!!!!!!!

O código limpa!!!
Se leu bem o código, 12 é a coluna L

.Offset(, 12).ClearContents

Nós vamos ficar postando conversa, ou vamos resolver o assunto?

Att

Segue o Arquivo..

Boa tarde!!

Veja como você está equivocado!!!!!!!!!

Sub SuaAdaptacao()
    With Sheets("dados")
        With .Range("A5", .Range("A" & Rows.Count).End(xlUp)).Offset(, 22)
            .Formula = "=match(A5,'Plan1'!$A$2:$A$110,0)"
            .AutoFilter 1, "<>#N/A"
            .Offset(, 12).ClearContents
        End With
        .Columns("L").Clear 'Assim a coluna será totalmente limpa!!!!!!!!!!!!!!!!!!!!
    End With
End Sub

Sub MINHA_Adaptacao()
With Sheets("dados")
     With .Range("A5", Range("A" & Rows.Count).End(xlUp)).Offset(, 22)
          .Formula = "=match(A5,'Plan1'!$A$2:$A$110,0)"
          .AutoFilter 1, "<>#N/A"
          .Offset(, 12).ClearContents
     End With
     .Columns("W").Delete
End With
End Sub