como somar 15 dias a partir de uma data especificada
3 participantes
Página 1 de 1
como somar 15 dias a partir de uma data especificada
Boa tarde
Gostaria de ir adicionando 15 dias a partir de 01.12.2008 até chegar 31.12.2012.Alguem pode me ajudar?
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
- Mensagens : 3
Data de inscrição : 28/07/2011
Re: como somar 15 dias a partir de uma data especificada
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.
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
- Mensagens : 7
Data de inscrição : 30/06/2011
Idade : 64
Localização : Paraná
Re: como somar 15 dias a partir de uma data especificada
Bom dia
Era isso mesmo que eu esperava,obrigado!!!
Era isso mesmo que eu esperava,obrigado!!!
Odacir Grahl Junior- Iniciante
- Mensagens : 3
Data de inscrição : 28/07/2011
Re: como somar 15 dias a partir de uma data especificada
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.
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
- Mensagens : 74
Data de inscrição : 04/07/2011
Localização : Joinville
Re: como somar 15 dias a partir de uma data especificada
Boa Afonso,valeu pela dica,me ajudou bastante!!!
Odacir Grahl Junior- Iniciante
- Mensagens : 3
Data de inscrição : 28/07/2011
Re: como somar 15 dias a partir de uma data especificada
Fico feliz em saber que o ajudou. Precisando, publique a sua dúvida aqui no fórum, ok ?
Abs.
Abs.
Afonso Serri- Iniciante
- Mensagens : 74
Data de inscrição : 04/07/2011
Localização : Joinville
Tópicos semelhantes
» Ajuda com DATA
» Contar e Somar Números Ímpares e Pares
» Como são os procedimentos?
» Como reparar arquivo do Excel
» Como criar Tabela Dinâmica 2 (VBA)
» Contar e Somar Números Ímpares e Pares
» Como são os procedimentos?
» Como reparar arquivo do Excel
» Como criar Tabela Dinâmica 2 (VBA)
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|