İki Kritere göre match fonksiyonu

[tamer42]

Merhaba,
Aşağıdaki kodda iki farklı değeri (Ara1, Ara2) farklı sütunlarda aramasını ayrı-ayrı yaparak satır numarasını bulabiliyoruz.

Yalnız benim istediğim bu aranan iki değerin (Ara1, Ara2) arama sonucunda bulundukları "ortak kesiştiği" satırı bulmak

Özetle: Ara1' i B sütunda arayacak, Ara2' yi C sütununda arayacak ortak bulduğu satır bilgisini verecek bana;

Dim ara1 As String
Dim ara2 As String
Dim Rng1 As Range
Dim Rng2 As Range

Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim r1 As Integer, r2 As Integer
Dim LastRow As Integer


Set sh1 = Sayfa6
Set sh2 = Sayfa8

ara1 = Sayfa2.Range("A2").Value
ara2 = Sayfa2.Range("B2").Value

LastRow = sh1.Cells(sh1.Rows.Count, "B").End(xlUp).Row

Set Rng1 = sh1.Range("B2:B" & LastRow)
Set Rng2 = sh1.Range("C2:C" & LastRow)

r1 = WorksheetFunction.Match(ara1, Rng1, 0)
r2 = WorksheetFunction.Match(ara2, Rng2, 0)

Şimdiden teşekkürler,
iyi çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Tamer bey yine makro kaydet yöntemini kullanarak hücreye bir formül yazdım. Sonra kodu elle anlaşılacak şekilde düzenledim.

Option Explicit

Sub Ikili_Arama()
    MsgBox Evaluate("SMALL(IF(A1:A1000=F1,IF(C1:C1000=G1,ROW(A1:A1000))),1)")
End Sub

Ben aynı sayfada işlem yaptım. Siz adresleri kendi dosyanıza göre düzenlersiniz.

 

[tamer42]

Merhaba,

Tamer bey yine makro kaydet yöntemini kullanarak hücreye bir formül yazdım. Sonra kodu elle anlaşılacak şekilde düzenledim.

Option Explicit

Sub Ikili_Arama()
    MsgBox Evaluate("SMALL(IF(A1:A1000=F1,IF(C1:C1000=G1,ROW(A1:A1000))),1)")
End Sub

Ben aynı sayfada işlem yaptım. Siz adresleri kendi dosyanıza göre düzenlersiniz.

Korhan Hocam teşekkürler,
Aşağıdaki şekilde düzenlemeye çalıştım fakat hata verdi.
Nasıl yapabilirim?

iyi pazarlar.

Sub Ikili_Arama()
Dim a1 As String
Dim a2 As String

a1 = "Vardiya"

a2 = "Excel"

    MsgBox Evaluate("SMALL(IF(B2:B2000=" & a1 & ",IF(C2:C2000=" & a2 & ",ROW(A2:A1000))),1)")

End Sub

 

[Korhan Ayhan]

Değişkenleri formül içinde tırnaklar arasında göstermişsiniz. Metinsel ifadeler için tırnak sayılarını arttırıp deneme yapabilirsiniz.

 

[tamer42]

Değişkenleri formül içinde tırnaklar arasında göstermişsiniz. Metinsel ifadeler için tırnak sayılarını arttırıp deneme yapabilirsiniz.

Korhan Hocam hala işin içinden çıkamadım, gönderdiğim kod içinde uygulayabilirseniz çok makbule geçecek, teşekkürler

iyi çalışmalar.

 

[ÖmerBey]

Merhaba,

Evaluate("SMALL(IF(B2:B2000=""" & a1 & """,IF(C2:C2000=""" & a2 & """,ROW(A2:A1000))),1)")

Evaluate komutunu vermeden önce mesaj kutusu ile formülünüzün nasıl görüneceğini kontrol edebilirsiniz.

MsgBox "SMALL(IF(B2:B2000=""" & a1 & """,IF(C2:C2000=""" & a2 & """,ROW(A2:A1000))),1)"

 

[tamer42]

Merhaba,

Evaluate("SMALL(IF(B2:B2000=""" & a1 & """,IF(C2:C2000=""" & a2 & """,ROW(A2:A1000))),1)")

Evaluate komutunu vermeden önce mesaj kutusu ile formülünüzün nasıl görüneceğini kontrol edebilirsiniz.

MsgBox "SMALL(IF(B2:B2000=""" & a1 & """,IF(C2:C2000=""" & a2 & """,ROW(A2:A1000))),1)"

Çok teşekkürler Korhan Hocam
iyi ki varsınız...

 

[Korhan Ayhan]

Merhaba,

Ben kendinizin çözmesi adına sadece ipucunu paylaşmıştım. Ama son cevabı yazan @ÖmerBey'dir. Kendisine teşekkür etmeniz daha uygun olur.

 

[tamer42]

Merhaba,

Evaluate("SMALL(IF(B2:B2000=""" & a1 & """,IF(C2:C2000=""" & a2 & """,ROW(A2:A1000))),1)")

Evaluate komutunu vermeden önce mesaj kutusu ile formülünüzün nasıl görüneceğini kontrol edebilirsiniz.

MsgBox "SMALL(IF(B2:B2000=""" & a1 & """,IF(C2:C2000=""" & a2 & """,ROW(A2:A1000))),1)"

Ömer Hocam kusura bakmayın, çok teşekkür ederim.

 

[tamer42]

Merhaba,

Evaluate("SMALL(IF(B2:B2000=""" & a1 & """,IF(C2:C2000=""" & a2 & """,ROW(A2:A1000))),1)")

Evaluate komutunu vermeden önce mesaj kutusu ile formülünüzün nasıl görüneceğini kontrol edebilirsiniz.

MsgBox "SMALL(IF(B2:B2000=""" & a1 & """,IF(C2:C2000=""" & a2 & """,ROW(A2:A1000))),1)"

Korhan Hocam & Ömer Hocam eğer burada bir değer bulunmazsa hata veriyor,

On Error Resume Next

ile geçiyorum, daha profesyonel bir çözümü olabilir mi?
teşekkürler, iyi çalışmalar.

 

[Korhan Ayhan]

IFERROR eklemeyi deneyebilirsiniz.

 

[tamer42]

IFERROR eklemeyi deneyebilirsiniz.

Korhan Hocam fazla olduğumu biliyorum ama kusura bakmayın
Hücre aralığını da değişken olarak tanımlamaya çalıştım fakat yine beceremedim.

Rng = "B2:B2000"

   MsgBox Evaluate("SMALL(IF(""" & Rng & """=""" & a1 & """,IF(C2:C2000=""" & a2 & """,ROW(A2:A1000))),1)")

 

[Korhan Ayhan]

Konu çok olmak meselesi değil.

Sizlere kendinizi geliştirmek açısından anahtar kelimeleri veriyoruz ama kimse sanırım bunun için uğraşmak istemiyor.

Özellikle benimle neredeyse aynı tarihte foruma üye olan arkadaşlarım bu konuda beni şaşırtıyorlar.

Neyse siz aşağıdaki gibi bir deneyiniz.

MsgBox Evaluate("IFERROR(SMALL(IF(""" & Rng & """=""" & a1 & """,IF(C2:C2000=""" & a2 & """,ROW(A2:A1000))),1),"""")")

 

[tamer42]

Konu çok olmak meselesi değil.

Sizlere kendinizi geliştirmek açısından anahtar kelimeleri veriyoruz ama kimse sanırım bunun için uğraşmak istemiyor.

Özellikle benimle neredeyse aynı tarihte foruma üye olan arkadaşlarım bu konuda beni şaşırtıyorlar.

Neyse siz aşağıdaki gibi bir deneyiniz.

MsgBox Evaluate("IFERROR(SMALL(IF(""" & Rng & """=""" & a1 & """,IF(C2:C2000=""" & a2 & """,ROW(A2:A1000))),1),"""")")

Korhan Hocam haklısınız, bu tırnak işaretleri iyice kafamı karıştı,
birde bu kodun sonucu 0 geliyor.

 

[Korhan Ayhan]

Örnek veriyi görmek gerekir.

 

[tamer42]

Örnek veriyi görmek gerekir.

Örnek Dosya ekte Korhan Hocam

 

[Korhan Ayhan]

Sorun şu;

Çift tırnak işaretlerini sadece metinsel ifadeler için arttırmanız gerekiyor.

Hücre adresi belirtirken buna gerek yok.

Bu gibi durumlarda sorunu en güzel formülü VBA ile hücreye yazdırıp normal excel formülü gibi çalışmasını sağlayarak gözlemleyebilirsiniz. Hücreye formülü yazdığınızda olması gerektiği gibi sonuç veriyorsa sonrasında VBA tarafında EVALUATE ederek sadece sonuç vermesini sağlayabilirsiniz.

Bunları yapmak içinde sürekli denemeler yapmak gerekiyor.

Sonuç olarak bahsettiğim yazım hatasını düzeltirsek sonuç aşağıdaki gibi olmalıdır.

MsgBox Evaluate("IFERROR(SMALL(IF(" & Rng & "=""" & a1 & """,IF(C2:C1000=""" & a2 & """,ROW(A2:A1000))),1),"""")")

Not : Sizin a1 ve a2 olarak tanımladığınız kriterlerinizin ikiside metinsel ifade olduğu için 3 adet çift tırnak kullanarak bunları formül içinde kullanıyoruz. Bunlardan birisi sayısal olursa formül yine hata verecektir. Bu sebeple excelde SAYI ve METİN ifadeleri çok önemlidir.

 

[tamer42]

Sorun şu;

Çift tırnak işaretlerini sadece metinsel ifadeler için arttırmanız gerekiyor.

Hücre adresi belirtirken buna gerek yok.

Bu gibi durumlarda sorunu en güzel formülü VBA ile hücreye yazdırıp normal excel formülü gibi çalışmasını sağlayarak gözlemleyebilirsiniz. Hücreye formülü yazdığınızda olması gerektiği gibi sonuç veriyorsa sonrasında VBA tarafında EVALUATE ederek sadece sonuç vermesini sağlayabilirsiniz.

Bunları yapmak içinde sürekli denemeler yapmak gerekiyor.

Sonuç olarak bahsettiğim yazım hatasını düzeltirsek sonuç aşağıdaki gibi olmalıdır.

MsgBox Evaluate("IFERROR(SMALL(IF(" & Rng & "=""" & a1 & """,IF(C2:C1000=""" & a2 & """,ROW(A2:A1000))),1),"""")")

Not : Sizin a1 ve a2 olarak tanımladığınız kriterlerinizin ikiside metinsel ifade olduğu için 3 adet çift tırnak kullanarak bunları formül içinde kullanıyoruz. Bunlardan birisi sayısal olursa formül yine hata verecektir. Bu sebeple excelde SAYI ve METİN ifadeleri çok önemlidir.

Çok teşekkürler Korhan hocam,
iyi ki varsınız!