aylık düşey ara

[excellkurdu]

merhaba arkadaşlar,
düzey aramada rakamsal değerlerde "=TOPLA(EĞER(AY(T7:T500)=AY(T6);EĞER(YIL(T7:T500)=YIL(T6);T7:T500;"")))" bunu kullanabiliyoruz.
Aynı şekilde yine ay ve yıl önemli olarak metin arama nasıl yapabiliriz?

Örneğin ayın 1 ile 30 u arasında herhangi bir tarih girince 4 sütün sağındaki metni bulmak istiyorum.
Düşey aramada 0 tam değer, 1 ise yaklaşık değer olduğundan isteğim arama sonucu her zaman çıkmıyor.
Şimdiden teşekkür ederim.

 

[ZorBey_]

Merhaba
İyi ÇAlışmalar
Dosyanız Ektedir

 

[excellkurdu]

hocam uğraşmısınız yordum sizi, sanırım izah edemedim tam. dosyamı gönderiyorum. R4, T4, U4 gibi bunları yaptım. fakat AB4 ü yapamadım. AB1 deki tarihe ait 01.04.2013 den 30.04.2013 yani tüm aya ait herhangi bir tarih yazınca o aya ait 4. ayın "cc" yi getirmeli. 5. aya ait herhangi bir tarih yazınca da "dd" bulmalı.
yardımınız için şimdiden teşekkür ederim

 

[YUSUF44]

İlgili sayfanın kod bölümüne aşağıdaki kodları yapıştırınız. AB1 hücresini seçtiğinizde ya da değiştirdiğinizde istediğiniz sonucu AB4'e yazacaktır:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("ab1")) Is Nothing Then Exit Sub
For i = 7 To Cells(Rows.Count, 20).End(xlUp).Row
If Month(Target) = Month(Cells(i, 20)) Then
[ab4] = Cells(i, 28)
GoTo 10:
End If
Next
10:
End Sub

Yalnız bulduğu ilk tarihin karşılığını getirir. Aynı aya ait farklı sonuçlar varsa sonraki hücreleri dikkate almaz.

 

[mgurten]

extradan makrosuz şu şekilde de yapabilirsiniz
AB2 hücresine şu formülü yazabilirsiniz

yalnız bu bir dizin formülüdür yazdıktan sonra enter tuşuna ctrl ve shift tuşlarıyla beraber basın

{=İNDİS(AB7:AB18;KAÇINCI(METNEÇEVİR(AB1;"aa");METNEÇEVİR($T$7:$T$18;"aa");0);1)}

 

[excellkurdu]

extradan makrosuz şu şekilde de yapabilirsiniz
AB2 hücresine şu formülü yazabilirsiniz

yalnız bu bir dizin formülüdür yazdıktan sonra enter tuşuna ctrl ve shift tuşlarıyla beraber basın

{=İNDİS(AB7:AB18;KAÇINCI(METNEÇEVİR(AB1;"aa");METNEÇEVİR($T$7:$T$18;"aa");0);1)}

Yusuf hocam sizin verdiğiniz kodu faklı amaçla kullanabilirim.
Bana uygun olan {=İNDİS(AB7:AB18;KAÇINCI(METNEÇEVİR(AB1;"aa");METNEÇEVİR($T$7:$T$18;"aa");0);1)} formül.
Fakat sadece ay için yazılmış. 2013 ocak ile 2012 ocak ta aynı verileri buluyor. Buna ay ve yıl ikisi bir arada eklenebilir mi?

 

[excellkurdu]

mgurten hocamın yol gösterdiği formülden yola çıkarak sanırım çözdüm gibi.
=EĞERHATA(İNDİS(AB7:AB18;KAÇINCI((BİRLEŞTİR(METNEÇEVİR(AB1;"aa");".";METNEÇEVİR(AB1;"yyyy")));(BİRLEŞTİR(METNEÇEVİR($T$7:$T$18;"aa");".";METNEÇEVİR($T$7:$T$18;"yyyy")));0);1);0)

 

[YUSUF44]

Siz daha önce yıldan bahsetmediğiniz için biz de yılı dikkate almadık tabi. Aşağıdaki kodlar yılı da dikkate alıyor, ayrıca o yıl ve ay listede yoksa ab4 hücresini boş bırakıyor:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("ab1")) Is Nothing Then Exit Sub
For i = 7 To Cells(Rows.Count, 20).End(xlUp).Row
If Month(Target) = Month(Cells(i, 20)) And Year(Target) = Year(Cells(i, 20)) Then
[ab4] = Cells(i, 28)
GoTo 10:
Else
[ab4] = ""
End If
Next
10:
End Sub