Takvim ile ilgili

[FatherJose]

Merhaba.

Varsayalım, işlerimin bir listesi var. Bu işlerin yapılmaları için son günleri var. Ben önümdeki bir haftada hangi işlerimin son günü olduğunu görmek istiyorum. Bunu sağlayayabilecek bir makro veya işlev var mıdır? Yardımcı olursanız sevinirim.

Teşekkürler

 

[Levent Menteşoğlu]

Elbette böyle bir makro oluşturulabilir, kesin cevap için bir örnek dosya eklermisiniz.

 

[FatherJose]

Basit bir liste yolluyorum. Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu denermisiniz. Kod için de bulunduğumuz haftaya göre değerlendirme yapar ve J sütununda dosya nolarını listeler. Dosyanızdaki tarihler içinde bulunduğumuz haftadan çok sonra olduğu için işlem yapmayacaktır. Bu sebeple pcnizi tarihini örneğin 24 aralık gibi bir tarihe ayarlayarak deneyin.

Sub listele()
[j2:j65536].ClearContents
For a = 2 To [g65536].End(3).Row
If Format(Cells(a, "g"), "ww") = Format(Date, "ww") Then
c = c + 1
Cells(c + 1, "j") = Cells(a, "c")
End If
Next
If [j2] = "" Then MsgBox "Uygun veri bulunamadı."
End Sub

 

[FatherJose]

Deneyip sonucu bildiririm. Tekrar teşekkürler yardım için. Kolay gelsin.

 

[FatherJose]

Listedeki tarihleri biraz değiştirdim. İşler artık tarih sırasına göre değil. Bir de buna göre birşey bulabilir misiniz?

 

[Levent Menteşoğlu]

Yukarıda verdiğim kodda küçük bir hata vardı düzelttim şimdi deneyin. Tarihlerin sıralı olması önemli değildir.

 

[FatherJose]

Ancak girdim nete. Teşekkürler tekrar

 

[FatherJose]

Vallahi olmuş bu sefer. Eyvallah saolasın.