Soru hücre birleştirme

Katılım
31 Ağustos 2016
Mesajlar
11
Excel Vers. ve Dili
Microsoft Office Plus 2013 - Türkçe
Altın Üyelik Bitiş Tarihi
13-11-2021
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.
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Ekli dosyadaki gibi özet tablo ile yapabilirsiniz. Formüller sekmesinde ad tanımlamayı, özet tablonun özelliklerini ve özet tablodaki alanların özelliklerini inceleyin:
 

Ekli dosyalar

Katılım
31 Ağustos 2016
Mesajlar
11
Excel Vers. ve Dili
Microsoft Office Plus 2013 - Türkçe
Altın Üyelik Bitiş Tarihi
13-11-2021
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki makroyu deneyiniz:

PHP:
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
 
Katılım
31 Ağustos 2016
Mesajlar
11
Excel Vers. ve Dili
Microsoft Office Plus 2013 - Türkçe
Altın Üyelik Bitiş Tarihi
13-11-2021
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

213238
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Asıl verilerinizde, alttaki boş satırları silmeniz gerekir.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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:

PHP:
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
 
Katılım
31 Ağustos 2016
Mesajlar
11
Excel Vers. ve Dili
Microsoft Office Plus 2013 - Türkçe
Altın Üyelik Bitiş Tarihi
13-11-2021
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
 

Ekli dosyalar

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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.
 
Katılım
31 Ağustos 2016
Mesajlar
11
Excel Vers. ve Dili
Microsoft Office Plus 2013 - Türkçe
Altın Üyelik Bitiş Tarihi
13-11-2021
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.
 
Üst