Kosula gore yeni tablo olusturma

[cliff]

Merhaba,

Ekte yer alan endeks tablosundan baz ve güncel ay bilgileri girilerek ilgili tablodaki o aralıktaki ayları ve aylara denk gelen endeksleri çekmek istiyorum. Aylara denk gelen endeksleri bir şekilde çekebilirim sanıyorum ama sadece ilk ay ve son ay verileri girilerek ilgili aralıktaki bilgileri otomatik getirebileceğim bir kurgu yapamadım maalesef.

Ek'te veriler, ulaşılmak istenen tablo ve gerekli bilgileri koyuyorum.

 

[dEdE]

Merhaba,
Aşağıdaki kodu örnek dosyanızda bir modüle yapıştırarak dener misiniz?

Sub Endeks_Bul()
myMonth = DateDiff("m", Range("F7").Value, Range("F8").Value)
myAy = Int(Month(Cells(7, 6)))
    ss = Cells(Rows.Count, "A").End(3).Row
    Range("A19:B" & ss) = ""
    Range("A19") = CDate(Cells(7, 6))
    Range("A19:A" & 19 + myMonth).DataSeries , xlChronological, xlMonth
    For i = 1 To myMonth + 1
        Cells(i + 18, 2) = Range("B8") * Cells(2, myAy + i) / Range("K2") + Range("B9") * Cells(3, myAy + i) / Range("K3")
    Next i
End Sub

 

[cliff]

Calisti, farkli varyasyonlari deniyorum suan. tesekkur ederim.

 

[dEdE]

Örnek dosyanızda hata vermiyor.