toplam aldırma

[beconzi]

Öncelikle herkese sağlıklı bir gün dilerim.
Eklediğim tabloda farklı sayfalardaki farklı adlara ait miktar toplamlarını toplam sayfasına nasıl aldırabilirim.
Ayrıca sayfalardaki isimleri toplam sayfasına getirmek mümkün olabilir mi?
Yardımlarınız için teşekkür ederim.

 

[KuTuKa]

istediğiniz bu şekilde mi

 

[beconzi]

İlginize teşekkür ederim.
Ancak sayfa sayısı çok fazla olduğunda daha pratik bir çözüm bulunabilir mi?

 

[KuTuKa]

Merhaba,
Excel dosyasını kullanırken aşağıdaki yöntemi uygulamanız yeterli olacaktır.
Amaç:
Çalışma kitabındaki farklı sayfalarda yer alan “adı” ve “miktar” verilerini tek bir toplam görünümde birleştirmek.
Nasıl çalışır?

1. Her kaynak sayfa aynı yapıda olmalıdır:
   • sütun A: adı
   • sütun B: miktar
2. Yeni sayfa ekleyeceğinizde, bu sayfanın adı Ayarlar sayfasındaki listeye eklenmelidir.
3. Ardından BirleşikVeri tablosu güncellenmeli ve Özet sayfası otomatik olarak yeni toplamları göstermelidir.

Örnek senaryo

• 500 sayfa varsa da aynı mantık uygulanır.
• Her sayfada veri varsa, sistem onları tek bir birleşik tabloya taşır.
• Sonuçlar Özet sayfasında görülebilir.

Önemli Not

• Bu dosya, tek tek sayfaları manuel olarak toplamaya göre daha pratik ve daha hızlı bir yapı sunar.
• Eğer sayfa sayısı çok artarsa, analiz sürecini daha da kolaylaştırmak için ileride Power Query veya otomatik birleştirme yöntemi eklenebilir.

 

[beconzi]

Üzerinde çalışayım, takıldığım konu olursa rahatsız ederim.
Teşekkürler.

 

[Seyit Tiken]

Bu şekilde bir deneyin!
Not : Çoklu bağlantılı sayfalarda formüllü çözümler işlevsiz kalabilir, bunun can simidi VBA kod çözümleridir!

Sub VerileriTopla()
Dim dict As Object
Dim ws As Worksheet, wsToplam As Worksheet
Dim sonSatir As Long, i As Long
Dim veriDizisi As Variant, ciktiDizisi As Variant
Dim anahtar As Variant
Dim satir As Long
Set dict = CreateObject("Scripting.Dictionary")
dict.CompareMode = vbTextCompare '
On Error Resume Next
Set wsToplam = ThisWorkbook.Sheets("Toplam")
On Error GoTo 0
If wsToplam Is Nothing Then
MsgBox "'Toplam' adında bir sayfa bulunamadı. Lütfen sayfa adını kontrol edin", vbCritical
Exit Sub
End If
wsToplam.Range("A2:B" & wsToplam.Rows.Count).ClearContents
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Toplam" Then
sonSatir = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
If sonSatir > 1 Then
veriDizisi = ws.Range("A2:B" & sonSatir).Value
For i = 1 To UBound(veriDizisi, 1)
If Not IsEmpty(veriDizisi(i, 1)) Then
If dict.Exists(veriDizisi(i, 1)) Then
dict(veriDizisi(i, 1)) = dict(veriDizisi(i, 1)) + veriDizisi(i, 2)
Else
dict.Add veriDizisi(i, 1), veriDizisi(i, 2)
End If
End If
Next i
End If
End If
Next ws
If dict.Count > 0 Then
ReDim ciktiDizisi(1 To dict.Count, 1 To 2)
satir = 1
For Each anahtar In dict.keys
ciktiDizisi(satir, 1) = anahtar
ciktiDizisi(satir, 2) = dict(anahtar)
satir = satir + 1
Next anahtar
wsToplam.Range("A2").Resize(dict.Count, 2).Value = ciktiDizisi
MsgBox "Veriler başarıyla derlendi ve toplandı!", vbInformation
Else
MsgBox "Toplanacak veri bulunamadı", vbExclamation
End If
End Sub

 

[beconzi]

Emeğinize sağlık teşekkürler,

 

[Korhan Ayhan]

Merhaba,

Önerilere ek olarak;

1- Ofis 365 kullandığınız için yeni nesil fonksiyonlar ile çözüme gidebilirsiniz. Ekteki dosyada veri içeren sayfalarınızı First-Last isimli boş sayfaların arasına konulandırırsanız formülle dinamik çözüm uygulanabilir. "Toplam" sayfasındaki YEŞİL renkli alan bu uygulamayı göstermektedir.

2- Başka bir çözüm yolu da POWER PIVOT kullanmaktır. Sayfalardaki verileri TABLO olarak düzenledikten sonra POWER PIVOT ile konsolide edebilirsiniz. Bu işlem arka planda çalıştığı için ve yerleşik özellik olduğu için daha verimli sonuç verecektir. "Toplam" sayfasında E-F alanındaki ÖZET TABLO bu teknikle oluşturulmuştur. Siz yeni sayfa ekledikçe sayfadaki TABLO adını düzenlemeniz yeterli olacaktır. Ben İngilizce sürüm kullandığım için dosyadaki tablo adları Table1 şeklinde artarak devam ediyor. Türkçe sürümlerde Tablo1 şeklinde artarak gidecektir. Benim eklediğim dosyada işlem yapmak isterseniz var olan sayfayı kopyaladıktan sonra veri kısmını temizleyiniz. Sonra tablo adını Table6 şeklinde revie ediniz. Her yeni sayfada koyu renkle belirttiğim sayıyı artttırarak devam ediniz. Böylece benzersiz tablo isimleri oluşmuş olacaktır. Ek olarak kurguladığım dosyada zaten POWER QUERY bölümünde dosyaya eklenecek tüm tabloları tanıyacak yapı bulunuyor. Siz sadece sayfa ekleyip tablo adını düzenledikten sonra "Toplam" sayfasında PIVOT TABLO üzerinde bir hücreyi seçip ALT+F5 (Yenile) komutunu çalıştırmanız yeterli olacaktır.

POWER QUERY penceresini ALT+F12 tuşlarıyla açabilirsiniz.
Açılan ekranda SOL tarafta All_Data isimindeki sorguyu görebilirsiniz.
Sorgu üzerinde SAĞ tıklayıp "Advanced Editor" seçeneği ile sorgu kodlarını görebilirsiniz ve dilerseniz düzenleyebilirsiniz.

Başlangıç için video faydalı olacaktır.