Makro İle Hücreye Gün,Ay,Yıl Yazdırma

[Hsn55]

İyi günler;
Makro ile A1 hücresindeki 02.05.2021 tarihini A2 hücresine Günü,A3 hücresine Ayı ve A4 hücresine Yılı nasıl yazdırırız?

 

[ASLAN7410]

Merhaba.

Sub Tarih()
Sheets("Sayfa1").[A1].Value = Format(Now, "dd.mm.yyyy")
Sheets("Sayfa1").[A2].Value = Format(Now, "dddd")
Sheets("Sayfa1").[A3].Value = Format(Now, "mmmm")
Sheets("Sayfa1").[A4].Value = Format(Now, "yyyy")
End Sub

 

[Hsn55]

Sayın Aslan A1'e ben 01.02.2021 yazdığım zaman A2,A3,A4 hücrelerine o tarihi atacak. Şimdiki tarihi değil. A1 de yazılan tarihi gün,Ay ve Yıl olarak atacak

 

[ASLAN7410]

Sub Tarih()
Sheets("Sayfa1").[A2].Value = Format([A1], "dddd")
Sheets("Sayfa1").[A3].Value = Format([A1], "mmmm")
Sheets("Sayfa1").[A4].Value = Format([A1], "yyyy")
End Sub

 

[ASLAN7410]

Formülle isterseniz, aşağıdaki hücrelere formülleri yapıştırın.

A2 hücresine =METNEÇEVİR(A1;"gggg")
A3 hücresine =METNEÇEVİR(A1;"aaaa")
A4 hücresine =METNEÇEVİR(A1;"yyyy")

 

[ASLAN7410]

Gün kısmı dediğiniz yeri aşağıdaki gibi değiştirebilirsiniz.

Sheets("Sayfa1").[A2].Value = Format([A1], "dd")

 

[Hsn55]

Sayın Aslan A1 örneğin 25.01.2021 yazıyor. A5 ' makro ile 25 yazdırırız?

 

[ASLAN7410]

Sub Tarih()
Sheets("Sayfa1").[A2].Value = Format([A1], "dddd")
Sheets("Sayfa1").[A3].Value = Format([A1], "mmmm")
Sheets("Sayfa1").[A4].Value = Format([A1], "yyyy")
Sheets("Sayfa1").[A5].Value = Format([A1], "dd")
End Sub

 

[ASLAN7410]

Merhaba.
"dddd" günün tamamını Perşembe yazar ,
"ddd" örneğin Per yazar
"dd" günü rakam olarak 25 yazar

diğer "mmmm" olan da aynı şekilde ay kısmında bu şekilde çalışır.