Bo tarde!!

Precisa disso em VBA???

Ou postou no lugar errado errado?

Vou move-lo!

Att

Supondo que a data esteja na célula A1, utilize essa fórmula:

=MÁXIMO(SE(DIA.DA.SEMANA(A1+LIN($A$1:$A$15))=2;A1+LIN($A$1:$A$15)))

Ctrl + Shift + Enter

Qualquer coisa da o grito.

Bo tarde!!

Precisa disso em VBA???

Ou postou no lugar errado errado?

Vou move-lo!

Att

É em VBA mesmo!

Supondo que a data esteja na célula A1, utilize essa fórmula:

=MÁXIMO(SE(DIA.DA.SEMANA(A1+LIN($A$1:$A$15))=2;A1+LIN($A$1:$A$15)))

Ctrl + Shift + Enter

Qualquer coisa da o grito.

Amigo, me refiro a VBA, tenho um form onde informo a data de envio do documento, e alimentará o proximo textbox com a data de vencimento atendendo a regra informada acima.

Grato pelo retorno!

Boa noite!!

Agora que você está deixando entender algo com VBA, pois citou o nome Form, não vamos adivinha, o que quer, se não especificar.

Vou move lo de volta!!

mas sem detalhes, espero que alguém entenda, eu não sei se você está usando Txt, ou outro controle, espero que alguém compreenda o que quer

Att

Ok Vamos aos detalhes!

Tenho um textbox1 onde digito uma data, preciso que em outro textbox2 a data da segunda feira da outra semana, ex.: data digitada 06/03/2012, e preciso que na data ao lado apareça a próxima segunda-feira depois de uma semana. O resultado esperado para a data informada é 19/03/2012.

Boa noite!!

Tente..

Private Sub TextBox2_Enter()

Me.TextBox2 = CDate(TextBox1.Value) - Weekday(TextBox1.Value) + 15

End Sub

Por um acaso não seria + 16 ?

[]s

E quando a data for outra? Não pode ser um contador fixo, pois na sequencia abaixo reforça mais uma vez o que estou atras.

A data informada serve como referencia para que após dois domingos informe a data da segunda-feira.

Data Vencimento
05/03/2012 19/03/2012
06/03/2012 19/03/2012
07/03/2012 19/03/2012
08/03/2012 19/03/2012
09/03/2012 19/03/2012
10/03/2012 19/03/2012
12/03/2012 26/03/2012
13/03/2012 26/03/2012
14/03/2012 26/03/2012
15/03/2012 26/03/2012
16/03/2012 26/03/2012
17/03/2012 26/03/2012

Problem? risos

Bom dia!!

Afinal, testou minha postagem??

Não consegue adaptar???

Att

Bom dia!!

Afinal, testou minha postagem??

Não consegue adaptar???

Att

Bom dia Alexandre, não testei porque havia entendido que o +15 era fixo e não atenderia a necessidade, pois pensava que era necessário que checasse todos os dias até passar dois domingos.

Vou dar uma estudada aqui no código pra ver se é isso mesmo.

Forte abraço!

Perfeito

Segue o código!!

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextBox2 = CDate(TextBox1.Value) - Weekday(TextBox1.Value) + 16
End Sub

Bom dia!!
Que bom que deu certo!!

Abraços e at++++