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.
| 01/04/2026 |
U |
0,0543 |
| 02/04/2026 |
U |
0,1086 |
| 03/04/2026 |
F |
| 04/04/2026 |
S |
| 05/04/2026 |
D |
| 06/04/2026 |
U |
0,1629 |
| 07/04/2026 |
U |
0,2172 |
| 08/04/2026 |
U |
0,2716 |
| 09/04/2026 |
U |
0,3260 |
| 10/04/2026 |
U |
0,3805 |
| 11/04/2026 |
S |
| 12/04/2026 |
D |
| 13/04/2026 |
U |
|
| 14/04/2026 |
U |
|
| 15/04/2026 |
U |
|
| 16/04/2026 |
U |
|
| 17/04/2026 |
U |
|
| 18/04/2026 |
S |
| 19/04/2026 |
D |
| 20/04/2026 |
U |
|
| 21/04/2026 |
F |
| 22/04/2026 |
U |
|
| 23/04/2026 |
U |
|
| 24/04/2026 |
U |
|
| 25/04/2026 |
S |
| 26/04/2026 |
D |
| 27/04/2026 |
U |
|
| 28/04/2026 |
U |
|
| 29/04/2026 |
U |
|
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
Postado : 14/04/2026 4:14 pm