Boa noite!!

talvez isso funcione

Option Explicit

Sub AleVBA_DeletColuna_8665()
     
    Dim c As Range, rngCol
     
    Set rngCol = Range("A1", Range("IV1").End(xlToLeft))
     
    For Each c In rngCol
        If c.Value = "FRACO" Or c.Value = "FORTE" Then
            c.EntireColumn.Delete
        End If
    Next c
End Sub

Prezados,

Ressuscitando este tópico, preciso de uma macro que apague colunas quando encontre determinada palavra em alguma célula da coluna (exemplo a palavra DELETAR).
As macros colocadas acima, funcionaram parcialmente bem. Testei as duas e apresentaram o mesmo problema, que é: quando a palavra escolhida (DELETAR) aparece na mesma linha em colunas vizinhas a macro apaga uma coluna mas deixa a outra.

Valeu

Boa tarde Wagner,

Não entendi bem qual é o seu problema.
Coloque uma planilha de exemplo, assim fica mais fácil ajudar.

att,

Bruno,

Veja a planilha anexa.
Tenho uma aba "Despachos". A macro que estou usando era pra fazer o seguinte:
- Copia a aba "Despachos" e cria a "Despachos(2)" - ok
- Verificar as colunas que possuem a palavra "DELETAR" e apagar essas colunas. Porém, quando duas células vizinhas possuem a palavra DELETAR a macro apaga uma e pula pra seguinte.
Exemplo 1: Se as celulas A1 e B1 possuirem a palavra "DELETAR" a macro apagará a coluna A1 e manterá B1.
Exemplo 2: Se as celulas A1, B1 e C1 possuirem a palavra "DELETAR" a macro apagará a coluna A1, manterá B1 e apagará C1

A palavra DELETAR aparecerá nas células quando a fórmula verificar que o campo reservado para o despacho estiver em branco.

Deu pra captar?

Valeu!

Boa tarde Wagner,

Teste o código do arquivo em anexo, está no módulo 3.

O código cria uma nova planilha e depois na rotina de repetição vai deletando as colunas.
Veja se o resultado final é o esperado.

att,

Bruno,

Bom dia!
Cara, a macro não resolveu o problema. Ela continua apagando a 1ª coluna e deixando a vizinha quando ocorre de ter colunas vizinhas com a palavra DELETAR na linha 25.
Observe na planilha DESPACHO original que as colunas que tem a palavra DELETAR são as dos seguintes despachos (Linha 7): DESPACHO 2, DESPACHO 3, DESPACHO 4, DESPACHO 6, DESPACHO 7, DESPACHO 10, DESPACHO 11 e DESPACHO 12.
A macro apagou as colunas dos seguintes despachos: DESPACHO 2, DESPACHO 4, DESPACHO 6, DESPACHO 10, DESPACHO 12
E manteve as colunas mesmo com as palavras DELETAR: DESPACHO 3, DESPACHO 7 e , DESPACHO 11.
Veja que por alguma razão ela apaga a primeira coluna da sequência de vizinhas e não apaga a do lado.

Solução proposta.

Solução proposta.

Funcionou perfeitamente! Muito obrigado!!
Obrigado também ao Bruno pela atenção!