Tarih den ay ve yıl esasından; tablodaki verideki karşılığı tespit

[erseldemirel]

Arkadaşlar ekteki excelde üfe adlı sekme var. birde data adlı sekme var. data adlı sekmede tarihler var. buradaki tarihlerden ay ve yıla göre üfe tablosundaki verinin tespit edilmesi lazım. bu formül ve makro kodu ile ayrı ayrı çözülürse çok işime yarayacak. teşekkür ederim


https://s2.dosya.tc/server25/4763tw/TEST.xlsm.html

[uygaroz]

Şu formülü deneyebilir misiniz.
C2 hücresi

Kod: Tümünü seç

=DÜŞEYARA(YIL($B2);ÜFE!$A$1:$M$32;AY($B2)+1;0)

[erseldemirel]

Makro ile yaptım; yaptıgınız formülde güzel oldu teşekkürler

[Tarkan VURAL]

Merhaba,
Uygar bey zaten çözümü sunmuş. Ben de sevdiğim TOPLA.ÇARPIM formülü ile bir örnek geliştirdim. Aynı zamanda hem makro hem de KTF ile ilgili farklı mantıklarda çözümler düzenledim.

Dosya ekinden kontrol edebilirsiniz.

Kod: Tümünü seç

Sub YillaraGoreUfeSonuc()
With Sheets("DATA")
For Each Kayit In .Range("b2:b" & .Range("b65536").End(3).Row)
    ay = Month(Kayit) + 1
    Set Hedef = Sheets("ÜFE").Range("a:A").Find(Year(Kayit), , , 1)
    If Not Hedef Is Nothing Then
        Kayit.Offset(0, 3).Value = Sheets("ÜFE").Cells(Hedef.Row, ay)
    End If
Next
End With
End Sub

Kod: Tümünü seç

Function UFE(ByVal Hedef As Range)
With Sheets("ÜFE")
yil = .Range("a:a").Find(Year(Hedef.Value), , , 1).Row
ay = .Range("b1:m1").Find(UCase(MonthName(Month(Hedef.Value))), , , 1).Column
UFE = .Cells(yil, ay).Value
End With
End Function