Üç Hücredeki veriye göre listeleme

[cimcoz]

Merhaba,

Hediye paketleri listemde, B4,C4 ve D4 hücrelerindeki değeri sağlayan 4.ve 5.(E4 ve F4) hücredeki değerlerin listesini yazdırmak istiyorum.

Yani I4, J4 ve K4 hücrelerine yazdığım 3 ürünü (sıralı olması lazım) sağlayan ürünlere göre M4 ve N4'e liste çıkarmak istiyorum.

Örnek dosya ektedir.

Yardımlarınız için şimdiden teşekkür ederim.

Saygılarımla,

 

[Emir Hüseyin Çoban]

. . .

Altın üyesiniz dosyanızı forumada yükleyebilirsiniz.

Virüs programlarının güvenlik seviyesinden dolayı bir çok dosya yükleme sitesinde uyarı verir. Tıpkı şuanda benim bilgisayarımda (eset) olduğu gibi..

. . .

 

[cimcoz]

Yeni üye olmuştum.

Örnek buraya dosyayı yükledim.

Teşekkürler.

 

[Ziynettin]

Merhaba,

M4

=EĞER(SATIRSAY($1:1)<=TOPLA.ÇARPIM(($B$4:$B$18=$I$4)*($C$4:$C$18=$J$4)*($D$4:$D$18=$K$4));İNDİS($E$4:$E$18;KÜÇÜK(EĞER(($B$4:$B$18=$I$4)*($C$4:$C$18=$J$4)*($D$4:$D$18=$K$4);SATIR(DOLAYLI("1:"&SATIRSAY($B$4:$B$18))));SATIRSAY($1:1)));"")

N4

=EĞER(SATIRSAY($1:1)<=TOPLA.ÇARPIM(($B$4:$B$18=$I$4)*($C$4:$C$18=$J$4)*($D$4:$D$18=$K$4));İNDİS($F$4:$F$18;KÜÇÜK(EĞER(($B$4:$B$18=$I$4)*($C$4:$C$18=$J$4)*($D$4:$D$18=$K$4);SATIR(DOLAYLI("1:"&SATIRSAY($B$4:$B$18))));SATIRSAY($1:1)));"")

Dizi formulu. Ctrl+Shift+Enter

 

[antonio]

Alternatif olarak;
Makro ile aşağıdaki kodları deneyebilirsiniz.

Sub listele_sirala()
Dim sh As Worksheet, ss As Long, a1 As Range, a2 As Range

Set sh = Sheets(Sheets(1).Name)
ss = sh.Range("C" & Rows.Count).End(3).Row

Set a1 = sh.Range("B2:D" & ss)
Set a2 = sh.Range("E2:F" & ss)
sat1 = a1.Rows.Count
sut1 = a1.Columns.Count

sat2 = a2.Rows.Count
sut2 = a2.Columns.Count
sh.Range("I3:K56789").ClearContents
sh.Range("M3:N56789").ClearContents

sh.Range("I2").Resize(sat1, sut1).Value = a1.Value
sh.Range("M2").Resize(sat2, sut2).Value = a2.Value

MsgBox "İşlem tamamlandı", vbInformation, "antonio"
Set sh = Nothing
Set a1 = Nothing
Set a2 = Nothing
End Sub

 

[cimcoz]

Sayın Ziynettin ve Antonia Bey,

Yardımlarınız için çok teşekkür ederim. Ellerinize sağlık..

Saygılar,

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki dizi formülünüde alternatif olarak kullanabilirsiniz.

M4 hücresine uygulayın.Yana ve aşağıya doğru kopyalayın.
Dizi formülüdür. CTRL+SHIFT+ENTER ile kapatmayı unutmayın.

=EĞERHATA(İNDİS(E$4:E$18;KÜÇÜK(EĞER($B$4:$B$18&$C$4:$C$18&$D$4:$D$18=$I$4&$J$4&$K$4;SATIR($4:$18);"");SATIR(A1))-3);"")