Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Inserir o período e...
 
Notifications
Clear all

Inserir o período em determinada célula após rodar macro.

 
2024 - VBA & Macros
Post Recente por Fabiosp 11 anos atrás
5 Posts
2 Usuários
0 Reactions
829 Visualizações
RSS
 Fabiosp
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

Bom dia senhores

Estou elaborando uma nova planilha para gerar um relatório e surgiu uma dúvida.
Após rodar a macro que cola as informações na plan relatório tenho que inserir o período na célula E16.
Tipo se a data que consta na célula B27 a primeira informação for referente o ano de 2012 inserir na célula E16 a seguinte informação 2012-01-01 a 2012-12-31
A Informação deve ser alterada conforme a data que aparecer na célula B27.

Seria possível executar esta tarefa via macro ou fórmula ?

Desde já agradeço a ajuda

Abraços

Fabiosp

relatorio 2014.rar
 
Postado : 15/04/2014 7:02 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente:
E16=TEXTO(DATA(ANO(B27);1;1);"aaaa-mm-dd") & " ~ " &TEXTO(DATA(ANO(B27);12;31);"aaaa-mm-dd")

 
Postado : 15/04/2014 7:42 am
 Fabiosp
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

Reinaldo boa tarde.
Muito obrigado pela dica funcionou.
Mas esqueci de falar que a célula E16 tem que estar livre para editar a data caso seja necessário.
Então se deixar formula nesta célula será deletada caso for editada.
Se eu incluir esta formula na macro que copia as informações sera que funcionaria?
Coisa do tipo Range ("E16").Formula = "E16=TEXTO(DATA(ANO(B27);1;1);"aaaa-mm-dd") & " ~ " &TEXTO(DATA(ANO(B27);12;31);"aaaa-mm-dd")"

Desde já agradeço.

Abraços.

 
Postado : 15/04/2014 9:23 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

No Codigo utilize
Range("E16").Formula = "=TEXT(DATE(YEAR(R[11]C[-3]),1,1),""aaaa-mm-dd"") & "" ~ "" &TEXT(DATE(YEAR(R[11]C[-3]),12,31),""aaaa-mm-dd"")"

 
Postado : 15/04/2014 9:57 am
 Fabiosp
(@fabiosp)
Posts: 291
Reputable Member
Topic starter
 

Bom dia Reinaldo

Fiz algumas adaptações conforme a necessidade da minha planilha e deu certo.
Muito obrigado pela costumeira ajuda.

Abraços.

Fabio sp

 
Postado : 16/04/2014 4:57 am
Forum Jump:
  Tópico Anterior
Próximo Tópico