Bulunduğumuz AYA göre tarih değiştirmek

[bulentkars]

Merhaba,

"D4" Hücresinde "01.01.1900" tarih mevcuttur, yapmak istediğim makroyu çalıştırıdığımda bulunduğumuz ay hangisi ise ayı değiştirecek.

Örneğin.
Ocak ayında olduğumuz için 01.01.1900
Şubat ayı için 01.02.1900
Mart ayı için 01.03.1900
Nisan Ayı için 01.04.1900

D4 Hücresi bulunduğumuz aya göre değişmesini istiyorum.
Yardımcı Olabilirseniz sevinirim.
Şİmdiden Teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Range("D4") = DateSerial(Year(Range("D4")), Month(Date), 1)

 

[bulentkars]

Korhan Bey Merhaba,

Hata alıyorum.

 

[Korhan Ayhan]

Aşağıdaki ifadesine göre paylaştığınız gorseldeki hatanin oluşması normaldir.

"D4" Hücresinde "01.01.1900" tarih mevcuttur,

 

[bulentkars]

Korhan Bey Merhaba,
Aynı şekilde hata verdi.. kodun başına on error resume next yazdığımda düzeldi. Teşekkürler

 

[Korhan Ayhan]

Böyle deneyiniz.

Sub Test()
    Range("D4") = DateSerial(Year(Range("D4").Text), Month(Date), 1)
End Sub

 

[bulentkars]

Teşekkürler Korhan Bey, Elinize sağlık