Benzer 2 tabloyu birleştiremiyorum. Lütfen Yardım

[qripton]

https://www.hizliresim.com/gk3z72o

mu80rmn.png

gelen

www.hizliresim.com

merhaba arkadaşlar. yukarda eklediğim 2 resim benim excelde 2 benzer tablomdur. Birinde satış diğerinde ise ödemeler vardır. Ben bunları bir tabloda müşteri, toplam, ödenen, kalan bakiye şeklinde göstermek istiyorum. Nasıl yapabilirim. excel dosyamı paylaşmak istedim yalnız atamadım onun yerine resim attım. 1 haftadır uğraşıyorum yapamadım. Yardımcı olursanız dua edeceğim. Şimdiden çok sağolun

 

[Necdet]

Tablo Konsolide inceleyiniz.

 

[qripton]

Necdet Bey, bu bilgide işime yaradı. çok sağolun. Yalnız sql de ben bu şekilde veritabanı oluşturdum vb.net te veri eklediğim zaman otomatik kendini güncelliyor. Sizin yönteminizde sürekli veri eklediğimde bu işlemi en baştan yapmam gerekecek. pivot tablo sistemi güzel mesela yenile dediğimde güncelliyor verileri yalnız orada bu tablolar arasında ilişki kuramıyorum. uyarı veriyor . Uyarı şu şekilde: Her sütun yinelenen değerler içerdiğinden ilişki oluşturulamıyor

 

[Necdet]

Merhaba,

Örnek dosayınızı paylaşım sitelerinden birinde paylaşırsanız yardımcı olacak arkadaşlar çıkacaktır.

 

[qripton]

muhDB.xlsx

drive.google.com

burada paylaştım inş olmuştur

 

[veyselemre]

İstediğim Birleştirme sayfasının kod kısmına yapıştırın. Bu sayfayla açılış yapılmışsa diğer sayfalara geçiş yapıp bu sayfaya tekrar girdiğinizde güncelleştirme gerçekleşecektir.

Private Sub Worksheet_Activate()
    Set sSat = Sheets("Satışlar")
    Set sOdm = Sheets("GelenÖdemeler")
    Dim w(1 To 1, 1 To 4)
    satislar = sSat.Range("A1").CurrentRegion.Value
    odemeler = sOdm.Range("A1").CurrentRegion.Value
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(satislar)
            krt = satislar(i, 1)
            If Not .exists(krt) Then
                w(1, 1) = krt
                w(1, 2) = satislar(i, 2)
                w(1, 3) = 0
                w(1, 4) = satislar(i, 2)
                .Item(krt) = w
                Else
                y = .Item(krt)
                y(1, 2) = y(1, 2) + satislar(i, 2)
                y(1, 4) = y(1, 4) + satislar(i, 2)
                .Item(krt) = y
            End If
        Next i
        For i = 2 To UBound(odemeler)
            krt = odemeler(i, 1)
            If Not .exists(krt) Then
                w(1, 1) = krt
                w(1, 2) = 0
                w(1, 3) = odemeler(i, 2)
                w(1, 4) = -1 * odemeler(i, 2)
                .Item(krt) = w
                Else
                y = .Item(krt)
                y(1, 3) = y(1, 3) + odemeler(i, 2)
                y(1, 4) = y(1, 4) - odemeler(i, 2)
                .Item(krt) = y
            End If
        Next i
        itms = .items
    
     Range("A2:D" & Rows.Count).ClearContents
     For i = 0 To UBound(itms)
        Cells(i + 2, 1).Resize(, 4).Value = itms(i)
     Next i
    End With
End Sub

 

[qripton]

Hocam vallahi oldu. 1-2 haftadır uğraştım yapamamıştım. Allah razı olsun. ikinizede Allah bol paralar versin yaşadığım mutluluğu Allah da size yaşatsın