Este fórum está sendo desativado

[carlosroston]

Boa Tarde a todos os amigos.

Pessoal alguém poderia me ajudar a solucionar este problema? Quero calcular a data do mês seguinte levando em consideração o dia da semana.

Ex: 02/12/2019 (1ª segunda feira do mês) ---> qual seria a data da 1ª segunda feira do mês seguinte (jan 2020, ou fev 2020, etc)?

Como expressar isso numa fórmula ou vba?

Anexo uma planilha que ilustra bem esse problema.

[osvaldomp]

Para a data que está em B10 (02/12/2019) a fórmula abaixo retorna 06/01/2020.

Código: Selecionar todos

=DATA(ANO(B10);MÊS(B10)+1;1+7*(INT((DIA(B10)-1)/7)+1))-DIA.DA.SEMANA(DATA(ANO(B10);MÊS(B10)+1;8-DIA.DA.SEMANA(B10)))

Para a data que está em B13 (12/12/2019) a fórmula abaixo retorna 09/01/2020 (é diferente do resultado que você colocou na planilha pois o seu resultado está incorreto)

Código: Selecionar todos

=DATA(ANO(B13);MÊS(B13)+1;1+7*(INT((DIA(B13)-1)/7)+1))-DIA.DA.SEMANA(DATA(ANO(B13);MÊS(B13)+1;8-DIA.DA.SEMANA(B13)))

[Estevaoba]

Outra opção de fórmula:
Para F10:

Código: Selecionar todos

=FIMMÊS(B10;0)+ÍNDICE({1;7;6;5;4;3;2};CORRESP(DIA.DA.SEMANA(FIMMÊS(B10;0));{1;2;3;4;5;6;7};0))

Para F13:

Código: Selecionar todos

=FIMMÊS(B13;0)+ÍNDICE({4;3;2;1;7;6;5};CORRESP(DIA.DA.SEMANA(FIMMÊS(B13;0));{1;2;3;4;5;6;7};0))+7

Good luck!

[carlosroston]

Perfeito pessoal. Resolveu perfeitamente.

Muito obrigado.