Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Format(Now, "D...
 
Notifications
Clear all

Format(Now, "DD/MM/YYYY") como número.

 
2024 - VBA & Macros
Post Recente por Wagner Morel 7 anos atrás
2 Posts
2 Usuários
0 Reactions
703 Visualizações
RSS
carlosrgs
 carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
Topic starter
 

Boa tarde.

Com o código abaixo o valor da Célula G5 fica com o formato da data corretamente, porém o formato da célula fica como TEXTO

Sub Data()
    i = Format(Now, "DD/MM/YYYY")
    Range("G5").Select
    ActiveCell.FormulaR1C1 = i
End Sub

Tem como inserir os dados como se fosse número ?

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 29/06/2017 11:49 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

carlosrgs,

Boa Tarde!

Sim. Assim:

Sub Data()
    i = Format(Now, "DD/MM/YYYY")
    Range("G5").Select
    ActiveCell.FormulaR1C1 = CDate(i)
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 29/06/2017 12:19 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico