Soru kesişim

[sirkülasyon]

ekli dosyamda modül1' de birinci,ikinci ve üçüncü kodlar ayrı ayrı tabloları göstermesine rağmen, aynı değeri veriyor.
Rica etsem Kontrol edebilir misiniz?

 

[YUSUF44]

Kodlarda ay bilgisi hep 2. satırda aranıyor, dolayısıyla da ilk bulduğu yerdeki sonucu getiriyor. Aşağıdaki kodları deneyin:

Function KatSayiBul(YIL, AY) As Double
    r = Application.Match(YIL, ThisWorkbook.Worksheets("Sayfa3").Range("A:A"))
    c = AY + 1
    If IsError(r) Or IsError(c) Or YILAY > 12 Or AY < 1 Then
        KatSayiBul = -1
    Else
        KatSayiBul = ThisWorkbook.Worksheets("Sayfa3").Cells(r, c)
    End If
End Function
Function TabanKatSayiBul(YIL1, YILAY1) As Double
    a = Application.Match(YIL1, ThisWorkbook.Worksheets("Sayfa3").Range("N:N"))
   b = YILAY1 + 14
    If IsError(a) Or IsError(b) Or YILAY1 > 12 Or YILAY1 < 1 Then
        TabanKatSayiBul = -1
    Else
        TabanKatSayiBul = ThisWorkbook.Worksheets("Sayfa3").Cells(a, b)
    End If
End Function
Function YanKatSayiBul(YIL2, YILAY2) As Double
    c = Application.Match(YIL2, ThisWorkbook.Worksheets("Sayfa3").Range("AA:AA"))
   d = YILAY2 + 27
    If IsError(c) Or IsError(d) Or YILAY2 > 12 Or YILAY2 < 1 Then
        YanKatSayiBul = -1
    Else
        YanKatSayiBul = ThisWorkbook.Worksheets("Sayfa3").Cells(c, d)
    End If
End Function

 

[sirkülasyon]

Yusuf abi
Teşekkür ederim. Sağ olasın

 

[sirkülasyon]

Yusuf Abi
Yan ödeme katsayı 2020 yılı için yanlış değer veriyor.Bakabilir misiniz

 

[YUSUF44]

Muhtemelen makro ilk satırındaki As Double ibaresinden kaynaklanıyor. Onu silince doğru sonuç veriyor.