Tarih ayırmada (birleştirmede) "0" sıfırlar

[sarigozoglu]

Tarihi belli bir hücreye aradan noktaları kaldırarak yazdırmak istiyorum fakat bu seferde 06/04/2017 tarihi 642017 şeklinde geliyor "0" sıfırlar bana lazım.
Kullandığım şekli :
Cells(7, "b").Value = Day(Date) & Month(Date) & Year(Date)

Yardımlarınızı bekliyorum

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Cells(7, "b").Value = Format(Date, "'ddmmyyyy")

.

 

[sarigozoglu]

Çok teşekkür ederim.