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

Dosyayı indir örnek tarih

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ı

 

[ADER_34]

Tevfik hocam tam istediğim gibi olmuş çok teşekkür ederim iyi çalışmalar.

 

[ADER_34]

Tevfik hocam tam istediğim gibi olmuş çok teşekkür ederim iyi çalışmalar.

muhasebiyiz arkadaşım sanada ayrıca teşekkür ediyorum işime yaradı hepsi,iyi çalışmalar