Soru hücre birleştirme

[orduali]

merhaba arkadaşlar;
6 sütundan oluşan bir listem var ,
ödeme tarihi / banka / ödeme türü / şirket / döviz sütunları aynı olan satırların meblağlarının toplanıp tek bir satırda yazılması gerekiyor.
yani 24 satırlık bir listeyi 9 satıra düşürmek istiyorum.
yardımlarınızdan dolayı şimdiden teşekkür ederim. Örnek dosyayı ekledim. İyi çalışmalar.

 

[YUSUF44]

Ekli dosyadaki gibi özet tablo ile yapabilirsiniz. Formüller sekmesinde ad tanımlamayı, özet tablonun özelliklerini ve özet tablodaki alanların özelliklerini inceleyin:

 

[orduali]

Ekli dosyadaki gibi özet tablo ile yapabilirsiniz. Formüller sekmesinde ad tanımlamayı, özet tablonun özelliklerini ve özet tablodaki alanların özelliklerini inceleyin:

çözüm öneriniz için teşekkür ederim. bu şekilde 6 farklı tablom var ve bunlar bir sayfaya entegre dolayısıyla pivot tablo işimi görmüyor. örnek dosyadan yola çıkarsak "sonraki hali"nden sonra 2. hatta 3. bir işleme girecek bu tablolar sonuç olarak pivotsuz bir çözüm umuyorum.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub rapor()
    son = WorksheetFunction.Max(2, Cells(Rows.Count, "A").End(3).Row)
    eski = WorksheetFunction.Max(2, Cells(Rows.Count, "I").End(3).Row)
    Application.ScreenUpdating = False
        Range("I2:O" & eski).Clear
        For i = 2 To son
            If WorksheetFunction.CountIfs(Range("B1:B" & i), Cells(i, "B"), Range("C1:C" & i), Cells(i, "C"), _
                Range("D1:D" & i), Cells(i, "D"), Range("E1:E" & i), Cells(i, "E"), Range("G1:G" & i), Cells(i, "G")) = 1 Then
                yeni = WorksheetFunction.Max(2, Cells(Rows.Count, "I").End(3).Row + 1)
                Range("A" & i & ":G" & i).Copy Cells(yeni, "I")
                Cells(yeni, "I") = yeni - 1
                Cells(yeni, "N") = WorksheetFunction.SumIfs(Range("F1:F" & son), Range("B1:B" & son), Cells(i, "B"), Range("C1:C" & son), Cells(i, "C"), _
                Range("D1:D" & son), Cells(i, "D"), Range("E1:E" & son), Cells(i, "E"), Range("G1:G" & son), Cells(i, "G"))
            End If
        Next
        Columns("I:O").EntireColumn.AutoFit
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamlandı!", vbInformation
End Sub

 

[orduali]

tam olarak istediğim buydu teşekkür ederim Allah sizden razı olsun.
makro sonunda 9. satırda bitmesine rağmen 10. satırı da boş olarak veriyor onu engelleme şansımız var mı acaba şu şekilde

 

[YUSUF44]

Asıl verilerinizde, alttaki boş satırları silmeniz gerekir.

 

[orduali]

Asıl verilerinizde, alttaki boş satırları silmeniz gerekir.

sildiğim halde çıkıyor yusuf bey;

 

[YUSUF44]

Silmemişsinizdir. Ben sildim, özet tablo da makro da düzgün çalıştı. Örnek dosyanızda 26-75. satırlarda daha önce veri varken sadece içerik silinmiş muhtemelen, o satırları tamamen silerseniz makronun ilk hali düzgün çalışacaktır.

Aşağıdaki kodu kullanırsanız B sütunu boş olan satırları dikkate almaz:

Sub rapor()
    son = WorksheetFunction.Max(2, Cells(Rows.Count, "A").End(3).Row)
    eski = WorksheetFunction.Max(2, Cells(Rows.Count, "I").End(3).Row)
    Application.ScreenUpdating = False
        Range("I2:O" & eski).Clear
        For i = 2 To son
            If Cells(i, "B") <> "" Then
                If WorksheetFunction.CountIfs(Range("B1:B" & i), Cells(i, "B"), Range("C1:C" & i), Cells(i, "C"), _
                    Range("D1:D" & i), Cells(i, "D"), Range("E1:E" & i), Cells(i, "E"), Range("G1:G" & i), Cells(i, "G")) = 1 Then
                    yeni = WorksheetFunction.Max(2, Cells(Rows.Count, "I").End(3).Row + 1)
                    Range("A" & i & ":G" & i).Copy Cells(yeni, "I")
                    Cells(yeni, "I") = yeni - 1
                    Cells(yeni, "N") = WorksheetFunction.SumIfs(Range("F1:F" & son), Range("B1:B" & son), Cells(i, "B"), Range("C1:C" & son), Cells(i, "C"), _
                    Range("D1:D" & son), Cells(i, "D"), Range("E1:E" & son), Cells(i, "E"), Range("G1:G" & son), Cells(i, "G"))
                End If
            End If
        Next
        Columns("I:O").EntireColumn.AutoFit
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamlandı!", vbInformation
End Sub

 

[orduali]

teşekkür ederim bu makroyu ilgili yere attığımda rakamlar hariç diğer tüm verileri "0" veriyor tabloda formül üzerinden çalışıyor ondan mı acaba

attığım dosya da "AO" sütunu ile "CI" sütunu arasında ki verileri yapmış olduğunuz makro ile "CK" ile "EE" sütunlarına sadeleştirerek (birleştirerek atması) gerek ama "0" veriyor

 

[YUSUF44]

Dosyanızda makro yok ve ilk dosyanızla yapı olarak uyuşmuyor. Verdiğim makro makroda belirtilen hücrelerde işlem yapar. O hücreler de ilk dosyanızda A:F sütunu arasındaki verilerdir. Halbuki şimdiki dosyanızda verileriniz AO:CI arasında diyorsunuz, makronun bu bunlara göre güncellenmesi gerekir. Muhtemelen makroyu olduğu gibi kullanmak istediniz. Örnek dosyanızla asıl dosyanızın aynı yapıda olması ve tam olarak ne istediğinizi bilmemiz bunun için önemli.

Son durumda yapmak istediğinizi anladım ancak bana mantıksız geldi. Yani verileri A:N arasına girip, sonra bunlardan hafta hafta formüllerle özel çıkarıp, sonra yine bu özetlerden yine hafta hafta ayrı bir özet çıkarmak istemeniz excelin çalışma mantığına uygun değil. Bir dosyada o kadar çok veri ve formül olması ilerde sıkıntı çıkarabilir. Yerinizde olsam her hafta özetini ayrı ayrı göstermektense sadece istediğim haftanın özetini gösterecek şekilde düzenleme yapardım.

Bu arada belirttiğiniz işlem de yapılabilir ama bir önceki paragrafta bahsettiğim sorun nedeniyle tavsiye etmem.

 

[orduali]

Dosyanızda makro yok ve ilk dosyanızla yapı olarak uyuşmuyor. Verdiğim makro makroda belirtilen hücrelerde işlem yapar. O hücreler de ilk dosyanızda A:F sütunu arasındaki verilerdir. Halbuki şimdiki dosyanızda verileriniz AO:CI arasında diyorsunuz, makronun bu bunlara göre güncellenmesi gerekir. Muhtemelen makroyu olduğu gibi kullanmak istediniz. Örnek dosyanızla asıl dosyanızın aynı yapıda olması ve tam olarak ne istediğinizi bilmemiz bunun için önemli.

Son durumda yapmak istediğinizi anladım ancak bana mantıksız geldi. Yani verileri A:N arasına girip, sonra bunlardan hafta hafta formüllerle özel çıkarıp, sonra yine bu özetlerden yine hafta hafta ayrı bir özet çıkarmak istemeniz excelin çalışma mantığına uygun değil. Bir dosyada o kadar çok veri ve formül olması ilerde sıkıntı çıkarabilir. Yerinizde olsam her hafta özetini ayrı ayrı göstermektense sadece istediğim haftanın özetini gösterecek şekilde düzenleme yapardım.

Bu arada belirttiğiniz işlem de yapılabilir ama bir önceki paragrafta bahsettiğim sorun nedeniyle tavsiye etmem.

emeğiniz ve yardımlarınız için teşekkür ederim. son verdiğiniz makroyu tabloma uyarladım ve çalıştı. iyi çalışmalar dilerim.