Mevcut aya benzer en yakın ayı bulmak

[kobayhan]

Herkese selamlar,

Bir öngörü yapabilmek adına içinde bulunduğumuz aya en çok benzeyen ayı bulmalıyım.

Örnek olarak;

Bugün (01.11.2022) ayın 1. günü, salıya denk geliyor ve bu ay 30 çekiyor. Bu üç kriteri aynı anda karşılayan en yakın geçmiş ayı bulmalıyım. Bunun da örneği 2021 'in Haziran ayı.

Dosyamı ekledim ama kolay olsun diye görüntüyü de ekliyorum.

Kontrol hücresi aşağıdaki yeşik "OK" leri sayıyor. Bu sonuç 3 olana kadar formül çubuğunda gözüken işlemi -1 'den başlayarak birer ay geri giderek yeniden denemeli.

Bir sürü Eğer koydum fakat beceremedim.

Destek olabilirseniz çok memnun olurum.

Kolaylıklar dilerim.

 

[bmutlu966]

Yanlış anlamadıysam aşağıdaki kod işinizi görür. Deneyiniz.

Sub bul()

For t = 1 To 10000
    Range("F8") = WorksheetFunction.EDate(Range("F7"), -t)
    If Range("L7") = 3 Then Exit For
Next

End Sub

 

[kobayhan]

Yanlış anlamadıysam aşağıdaki kod işinizi görür. Deneyiniz.

Sub bul()

For t = 1 To 10000
    Range("F8") = WorksheetFunction.EDate(Range("F7"), -t)
    If Range("L7") = 3 Then Exit For
Next

End Sub

Muhteşem çalışıyor, ellerinize sağlık.