Değişgen liste birleştirme ve toplama

[McDregin]

Merhaba arkadaşlar,
Ekteki dosyada göreceğiniz üzere PİVOT ta sadece alt alta yazılmasını istiyorum fakat olmuyor.
Yana kırılımlı çıkıyor.
Birde boşları göstermemesi lazım ama onları da yemek gibi sıralıyor.
Yardım edebilir misiniz.
Teşekkürler.

 

[McDregin]

Tekrar merhaba,
Bu işlemi fonksiyon ile yapmanın bir yolu var ise o da olabilir.
Görüşü olan var mı acaba ?

 

[McDregin]

Merhaba,
Satır Etiketleri / Sağ Clik / Pivot Table Seçenekleri / Düzen Ve Biçim / Sıkıştırılmış Form Girintisinde Satır Etiketleri "1" karakteri "0" yapınca liste tek kolon a indi.
Bu işlem tamam.
Boş olan hücreleri "boş" olarak göstermemesinin listede görünmemesinin yolunu bilen var mıdır ?

 

[McDregin]

:???: 655 kişi ye danıştık çözüm ne olaki acaba ?

 

[veyselemre]

Makroyla çözüm isterseniz. İnceleyin.

Sub gruplandir()
    Set sM = Sheets("MENÜ KAYIT")
    Set sU = Sheets("ÜRETİM MUTFAK PLAN-ÖĞLE")
    sonM = sM.Range("a" & Rows.Count).End(3).Row
    With CreateObject("scripting.dictionary")
        For Each huc In sM.Range("c2:I" & sonM).SpecialCells(xlCellTypeConstants, 23)
            toplm = .Item(huc.Value)
            .Item(huc.Value) = toplm + sM.Cells(huc.Row, 2)
        Next huc
        sU.Range("b2:c65536").ClearContents
        sU.Range("b2").Resize(.Count, 2).Value = Application.Transpose(Array(.keys, .items))
    End With
    sU.Select
    Set sM = Nothing: Set sM = Nothing: Set huc = Nothing
End Sub

 

[McDregin]

Merhaba Veysel EMRE bey,
Destek için teşekkürler.
Lakin sadece sayı toplamak yetmiyor yan tarafa da yemekleri isimlerini benzersiz olarak sıralaması gerekli..
Evet test ettim bunu da yapıyor.
Pivot a alternatif olarak deneyebilirim sanırım..
Fakat farklı tablolarda kullanıcılar için adapte etmem gerek.
Çok teşekkür ederim.
Kolay gelsin.

 

[McDregin]

Veysel bey,
Aktarım denedim ama bir şeyi yanlış değiştiriyorum sanırım.
Fark edeceğiniz üzere
Öğle Dağıtım Formu Verilerini alıp
..Öğle Üretim Tablosu .. haline getirmeye çalışıyordum.
Ayni işlemi Akşam ve Gece için.
Her bir öğün için ayrı bir tablo var.
Bu tabloya göre adapte etmeniz mümkün müdür ? Makro butonu ile ?
Teşekkürler.

 

[veyselemre]

L:O sütunlarını da ekledim.
12 satırı dikkate almayacaktır. c11-c12 birleştirilmiş.

Sub gruplandir()
    Set sM = Sheets("ÖĞLE DAĞITIM FORMU")
    Set sU = Sheets("ÖĞLE ÜRETİM TABLOSU")
    sonM = sM.Range("a" & Rows.Count).End(3).Row - 1
    With CreateObject("scripting.dictionary")
        For Each huc In Union(sM.Range("d3:I" & sonM), sM.Range("L3:O" & sonM)).SpecialCells(xlCellTypeConstants, 23)
            toplm = .Item(huc.Value)
            .Item(huc.Value) = toplm + sM.Cells(huc.Row, 3)
        Next huc
        sU.Range("b2:c65536").ClearContents
        sU.Range("b2").Resize(.Count, 2).Value = Application.Transpose(Array(.keys, .items))
    End With
    sU.Select
    Set sM = Nothing: Set sM = Nothing: Set huc = Nothing
End Sub

 

[McDregin]

Veysel bey,
Adapte ettim teşekkür ederim.
İsimler elden direkt girilmeli gördüğüm kadarıyla.
Link ile gelen isimler tanınamadığı için listelenemiyor.