como somar 15 dias a partir de uma data especificada

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

como somar 15 dias a partir de uma data especificada

Mensagem por Odacir Grahl Junior em Sex Ago 12, 2011 1:42 pm

Boa tarde
Gostaria de ir adicionando 15 dias a partir de 01.12.2008 até chegar 31.12.2012.Alguem pode me ajudar?

Odacir Grahl Junior
Iniciante
Iniciante

Mensagens : 3
Data de inscrição : 28/07/2011

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: como somar 15 dias a partir de uma data especificada

Mensagem por Patropi em Dom Ago 14, 2011 5:28 pm

Boa noite Odacir

Se eu entendi o que vc deseja:

Digite a data de 01/12/2008 na célula "A1", na célula A2 digite a fórmula =A1+15 e arraste para as demais células até a linha 100.

Dê retorno.

Um abraço.

Patropi
Iniciante
Iniciante

Mensagens : 7
Data de inscrição : 30/06/2011
Idade : 57
Localização : Paraná

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: como somar 15 dias a partir de uma data especificada

Mensagem por Odacir Grahl Junior em Seg Ago 15, 2011 6:54 am

Bom dia
Era isso mesmo que eu esperava,obrigado!!!

Odacir Grahl Junior
Iniciante
Iniciante

Mensagens : 3
Data de inscrição : 28/07/2011

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: como somar 15 dias a partir de uma data especificada

Mensagem por Afonso Serri em Seg Ago 15, 2011 2:13 pm

Boa tarde.

Odacir, vi que o Patropi resolveu o seu problema, porém, não sei se tu já percebeu, mas se partir da data inicial 01/01/2008, ir adicionando 15, tu não conseguirás chegar a data 31/12/2012 e sim 25/12/2012, ok ?
Enfim, segue abaixo a minha contribuição. Ressalto que a solução do Patropi é mais simples e funcional do que a minha, porém, caso tenha um período muito grande e não queiras arrastar a fórmula para as demais linhas, eis uma alternativa:

Sub Calcular_Data()

Dim DataRef

DataRef = Application.InputBox(Prompt:="Favor informar a data de referência no formato dd/mm/aaaa", _
Type:=10)

ActiveCell = DataRef

ActiveCell.Offset(1, 0) = DataRef + 15

Do Until ActiveCell = "25/12/2012"

ActiveCell.Offset(1, 0) = ActiveCell + 15

Selection.End(xlDown).Select

Loop

MsgBox ("FIM DO PROCESSAMENTO."), vbExclamation

If MsgBox("DESEJA CALCULAR UMA NOVA DATA ?", vbYesNo) = vbYes

Then

ActiveCell.Offset(1, 0).Select

Call Calcular_Data

Else

ActiveCell.Select

End If

End Sub


Abraços.

Afonso Serri
Iniciante
Iniciante

Mensagens : 74
Data de inscrição : 04/07/2011
Localização : Joinville

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: como somar 15 dias a partir de uma data especificada

Mensagem por Odacir Grahl Junior em Seg Ago 15, 2011 3:46 pm

Boa Afonso,valeu pela dica,me ajudou bastante!!!

Odacir Grahl Junior
Iniciante
Iniciante

Mensagens : 3
Data de inscrição : 28/07/2011

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: como somar 15 dias a partir de uma data especificada

Mensagem por Afonso Serri em Ter Ago 16, 2011 9:57 am

Fico feliz em saber que o ajudou. Precisando, publique a sua dúvida aqui no fórum, ok ?

Abs.

Afonso Serri
Iniciante
Iniciante

Mensagens : 74
Data de inscrição : 04/07/2011
Localização : Joinville

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Re: como somar 15 dias a partir de uma data especificada

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum