Haftalık tarih güncelle

[ADER_34]

Merhaba arkadaşlar benim sorum söyle ister makro ile ister formül ile örnek dosyamda A sütununda dosya her açıldığında gün satırına o haftanın tarihi yazılsın,yani her satıra gün gün tarih olacak şekilde. yazılar çapraz veya düz yazılması fark etmiyor,bu mümkün mü teşekkürler iyi çalışmalar.

İndir örnek tarih xlsx

Dosyayı indir örnek tarih xlsx

dosya.co

 

[muhasebeciyiz]

Private Sub Workbook_Open()
    Dim tarih As Date
    Dim haftaninIlkGunu As Date
    
    haftaninIlkGunu = Date - Weekday(Date, vbMonday) + 1
  
    Range("A4").Value = haftaninIlkGunu
    Range("A9").Value = haftaninIlkGunu + 1
    Range("A14").Value = haftaninIlkGunu + 2
    Range("A19").Value = haftaninIlkGunu + 3
    Range("A24").Value = haftaninIlkGunu + 4
End Sub

dosyanızı hangi gün açarsanız açın, tarihler hep o haftanın Pazartesi'sinden başlayarak sıralanacaktır.

 

[Tevfik_Kursun]

Merhaba
alternatif olsun,
Tarih_Belirler_TK
silinebilir bağlantı

 

[muhasebeciyiz]

Tevfik hocam sizinki daha mantıklı günler zaten yazılı orda

 

[ADER_34]

merhaba tevfik hocam altın üye değilim, dosyayı indiremiyorum link paylaşırmısınız?

 

[muhasebeciyiz]

Tevfik kardeşin paylaştığı link mesajında zaten verilmiş

Tarih_Belirler_TK.xlsm

drive.google.com

Buradan indiriniz

 

[Tevfik_Kursun]

Bunu da deneyebilirsiniz ...
Tarih_Belirle_TK1
silinebilir bağlantı