Düşeyara - Aranan kritere ait ikinci değer

[tamer42]

Merhaba,
Ekli dosyada belirtildiği üzere Aranan kritere dair birden fazla sonuç var, DÜŞEYARA formülü ilk değeri getirmekte;
Burada bulunan ilk değer yerine 2. değeri getirmesini nasıl sağlayabiliriz?



teşekkürler,
iyi Çalışmalar.

 

[Korhan Ayhan]

Merhaba,

DÜŞEYARA yerine İNDIS+KÜÇÜK+EĞER+SATIR kombinasyonu ya sa İNDİS+TOPLAMA+SATIR kombinasyonunu araştırmanızı tavsiye ederim.

 

[ÖmerFaruk]

Korhan beyin yol gösterdiği üzere
=İNDİS(Data!B:B;KÜÇÜK(EĞER(A2=Data!A:A;SATIR(Data!A:A);"");2))

 

[tamer42]

Korhan beyin yol gösterdiği üzere
=İNDİS(Data!B:B;KÜÇÜK(EĞER(A2=Data!A:A;SATIR(Data!A:A);"");2))

teşekkürler,

 

[tamer42]

Merhaba,

DÜŞEYARA yerine İNDIS+KÜÇÜK+EĞER+SATIR kombinasyonu ya sa İNDİS+TOPLAMA+SATIR kombinasyonunu araştırmanızı tavsiye ederim.

Korhan& Ömer Hocam öncelikle ilginiz için teşekkürler,
Bu durumu kod ile çözmek istersek nasıl bir kod düzeni yapmamız gerekir?

iyi Çalışmalar.

 

[Korhan Ayhan]

@ÖmerFaruk beyin önerdiği formülü makro koduna çevirip kullanabilirsiniz.

 

[tamer42]

@ÖmerFaruk beyin önerdiği formülü makro koduna çevirip kullanabilirsiniz.

Korhan Hocam bu dizi formülü olduğu için
=İNDİS(Data!B:B;KÜÇÜK(EĞER(A2=Data!A:A;SATIR(Data!A:A);"");2))

Kodun içine yazarken; nasıl bir düzenleme yapmak gerekir?

 

[Korhan Ayhan]

Bu olayı her zaman belirtiyoruz..

MAKRO KAYDET ile ilgili kodlar elde edebilirsiniz. Elde ettiğiniz kodları biraz kurcalarsanız çözüm bulabileceğinizi düşünüyorum.

 

[yusuf1284]

Hocam şu şekilde yapılabilir.

Sub FindNext_Kullanma()
Dim Aranan, ilkAdres As String
Dim KoNTroLYeRi, Bulunan As Range
Aranan = "Ahmet"
    Set KoNTroLYeRi = Range("A1:A10")
    Set Bulunan = KoNTroLYeRi.Find(Aranan)
    If Bulunan Is Nothing Then
        Debug.Print "Not found"
        Exit Sub
    End If
ilkAdres = Bulunan.Address
    Do
        Debug.Print "Bulundu: " & Bulunan.Address
        Set Bulunan = KoNTroLYeRi.FindNext(Bulunan)
    Loop While ilkAdres <> Bulunan.Address
End Sub