Soru 2020 yılındaki tüm pazartesi gün tarihlerini nasıl bulurum?

[assenucler]

Değerli Dostlar;

Örneğin; "6 Oca 2020 Pzt" biçiminde formülle ya da makroyla çözümünü rica edebilir miyim?

 

[Tevfik_Kursun]

Merhaba,
İşinizi görür mü? (sonrası 7 ekleyerek)
Kolay gelsin

 

[Korhan Ayhan]

Alternatif;

A1 dışında boş bir hücreye aşağıdaki DİZİ formülü uygulayıp deneyiniz.

=EĞERHATA(KÜÇÜK(EĞER(HAFTANINGÜNÜ(SATIR(DOLAYLI(TARİH(2020;1;1)&":"&TARİH(2020;12;31)));2)=1;SATIR(DOLAYLI(TARİH(2020;1;1)&":"&TARİH(2020;12;31))));SATIR(A1));"")

 

[Trilenium]

Sub gunbul()
sonsat = Range("A" & Rows.Count).End(xlUp).Row + 1
tar = "01/01/2020"

For i = 1 To 365

yeni = DateAdd("d", 1, tar)

hangigun = Weekday(yeni, vbMonday)

If hangigun = 1 Then
Range("A" & sonsat).Value = yeni
tar = yeni
sonsat = sonsat + 1
Else
tar = yeni
End If
Next i






End Sub

 

[assenucler]

Sayın Korhan Ayhan,
Sayın Tevfik Kursun,
Sayın Trilenium

Emek ve paylaşımınız için ayrı ayrı teşekkür ederim.
Sağ olun, var olun.

 

[Hepgel]

Deneyebilir misiniz.
Formülde sadece yıl rakamını değiştirip kullanabilirsiniz.
Herhangi bir hücreye uygulanıp aşağı doğru kopyalayınız
Yılın ilk pazartesi günü için >>

=TARİH(2020;1;0)+8-HAFTANINGÜNÜ(TARİH(2020;1;0);2)

Listeleme için >>

=TARİH(2020;1;0)+8-HAFTANINGÜNÜ(TARİH(2020;1;0);2)+(SATIR(A1)-1)*7

 

[assenucler]

Sayın Hepgel,

Yardımınız ve katkınız için içten teşekkürler.

 

[Hepgel]

Rica ederim
İyi Çalışmalar.

 

[assenucler]

ÇÖZÜLDÜ