Aynı formattaki 2 tabloyu özet olarak birleştirmek;

[tamer42]

Merhabalar,
Ekli dosyada "2024" ve "2025" sayfasında ilgili yıllara göre bayilere göre ürün satışları mevcut;

her iki yıla ait bayi-ürün satışlarını aşağıdaki sorgular ile Özet sayfasına aktardıktan sonra;
Burada oluşan iki özet tabloyu "Özet" sayfası "K-N" sütun aralığında manuel olarak oluşturdum.

"Özet" sayfası "K-N" sütun aralığında manuel olarak oluşturduğum şekli sql sorgusu ile tek harekette nasıl yapabiliriz?

Desteğiniz için teşekkürler,
iyi Çalışmalar.

Sub sorgu1()

Dim RS As Object
Dim QRY As String
Dim veri As Variant

Baglan

Sayfa7.Cells.ClearContents

QRY = "Select [Bayi Adı],[Ürün Adı],SUM([Adet]) From [2024$] " & _
"GROUP BY [Bayi Adı],[Ürün Adı]"


Set RS = Con.Execute(QRY)

Sayfa7.Range("A2").CopyFromRecordset RS

Set RS = Nothing

sorgu2

End Sub

Sub sorgu2()

Dim RS As Object
Dim QRY As String
Dim veri As Variant


QRY = "Select [Bayi Adı],[Ürün Adı],SUM([Adet]) From [2025$] " & _
"GROUP BY [Bayi Adı],[Ürün Adı]"

Set RS = Con.Execute(QRY)


Set RS = Nothing

End Sub