RE: Buscar data útil anterior a feriados

Osvaldomp — Wed, 15 Apr 2026 14:05:20 +0000

A sua explicação ficou meio confusa e você postou apenas "pedaços" do código VBA, o que não ajuda a entender a sua demanda.

Sugestão: anexe aqui no fórum uma cópia do seu arquivo Excel com exemplos, com a solução desejada e com o código VBA completo instalado no arquivo.

Se não conseguir anexar aqui no fórum (este fórum é zuado ... ☹️ ), anexe em algum site de hospedagem e coloque o link aqui.

Buscar data útil anterior a feriados

Bautto — Tue, 14 Apr 2026 19:14:57 +0000

Na planilha (print abaixo), uso a rotina para colar dado de outra planilha, referente a data anterior.

Ocorre que após finais de semanas e feriados, o dado fica em dia sem movimentação e preciso corrigir manualmente.

Gostaria de inserir na rotina uma busca, e selecionar a linha correta para colocar o dado do dia útil anterior ao(s) feriados.

Agradeço qualquer colaboração.

Print da tabela: onde "F" é Feriado, "S" é Sábado e "D" é domingo.

Rotina que utilizo, mas sempre em "T" & ultimaLinha -1.Select, não são considerados feriados, sábados e domingos...

' Esta rotina seleciona e copia a célula (Q6-DI Acum) atualizada em "Evol_Dia"

Sheets("Diário").Select

Range("Q6").Select

Selection.Copy

Sheets("Evol_Dia").Select

Sheets("Evol_Dia").Range("T" & ultimaLinha - 1).Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("A1").Select