Ürün Yapıtaşı Tespiti

[1Al2Ver]

Merhaba,

Ek'li dosyamda,

Açılır Liste ile seçilen yapıtaşına göre, büyükten küçüğe yemekler sıralanıyor.

Ben, aynı zamanda, açılır liste ile seçilen yapıtaşına ait malzemeleri de, büyükten küçüğe sıralamak istiyorum.

Teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
"SIRALI_FİLTRE" adlı kodları aşağıdakilerle değiştirin.
Bir de Ana Veri sayfasındaki başlıkları kontrol edin birbiri ile uyuşmuyor.
"YEMEKLER" başlıklarında "Vit.C" yazıyor, "MALZEMELER" başlıklarında sadece "C" yazıyor.
Böyle farklı olunca hata veriyor farklı olanları kontrol edip düzeltmelisiniz.

Sub SIRALI_FİLTRE()
    Set av = Sheets("ANA_VERİ"): Set s = Sheets("YAPITAŞI_SÜZ")
    If s.[C1] = "" Or WorksheetFunction.CountIf(av.Range("1:1"), s.[C1]) = 0 Then Exit Sub
    son = Sheets("ANA_VERİ").Cells(Rows.Count, 2).End(3).Row
    sut = WorksheetFunction.Match(s.[C1], av.Range("1:1"), 0)
    av.Range("A2:B" & son).Copy s.[B4]
    av.Range(av.Cells(1, sut), av.Cells(son, sut)).Copy s.[D3]
    s.Range("C4:D" & son + 3).Sort s.[D3], xlDescending
    
    son = Sheets("ANA_VERİ").Cells(Rows.Count, "AI").End(3).Row
    sut = WorksheetFunction.Match("MALZEMELER", av.Range("1:1"), 0)
    sut = sut + WorksheetFunction.Match(s.[C1], av.Range("AI1:BL1"), 0) - 2
    av.Range("AI2:AJ" & son).Copy s.[F4]
    av.Range(av.Cells(1, sut), av.Cells(son, sut)).Copy s.[H3]
    s.Range("G4:H" & son + 3).Sort s.[H3], xlDescending
End Sub

 

[1Al2Ver]

Sayın dalgalikur merhaba,

Çözüm, tespit ve önerileriniz için teşekkür ederim.

Saygılarımla.