2 Dosyayı karşılaştırma birleştirme

[arrow3441]

Merhaba ekte 2022 ve 2023 dosyalarım var yapmak istediğim barkodlarını eşleştirerek aynı barkodların NETCIKIS miktarlarının toplamasını ve 2022 de olan 2023 olmayanları eklemesini yaparak yada 2023 de olan ve 2022de olmayanlarıda kontrol ederek yeni dosyaya birleştirmesi yardımcı olursanız cok sevinirim.

 

[HücrelereFısıldayanAdam]

Anladığım kadarıyla istediğiniz şey çok basit: 2022 ve 2023 listelerini tek excele alt alta yapıştırdım ve pivot (özet) tablo yaptım. Eşleştirmeye gerek yok, pivot tablo istediğiniz şekilde Barkodun 2022 ve 2023 çıkışını tablo olarak gösterir. Örneği inceleyebilirsiniz. Makroya gerek yok. Sürekli yaptığınız bişeyse bunu tabiki bir makroyla da yapabilirdiniz.

 

[arrow3441]

Teşekkür ederim çözümünüz için sürekli yaptıgım işlemler hocam makro ile olursa kopyala yapıştır gibi işlemler olmadan daha iyi olur gibi

 

[HücrelereFısıldayanAdam]

Makro ile yapmanızı önermem, bunlar pivot tablo ile bir kaç tıkta yapılan şeyler, sürekli yaptığınızda eliniz alışır zaten, neyi nereye sürükleyeceğinizi otomatik yaparsınız. Makro ile yaptırırsanız, sürekli yeni bir veri olduğunda uğraşır durursunuz. Bu kadar kısa bişey için makroya gerek yok. Basitçe Makro yazmak için ise, excelde makro kaydet butonuna basıp, normalde yaptığınız gibi pivot tabloyu oluşturun işiniz bitince durdura basın. Uzun ve verimsiz olsa da sizin yaptığınız tekrarlayan bir makronuz olur. Çok basit bişey sadece bi kere denemek lazım.
Şimdi elinizdekini makroya dönüştürelim: A sutunu ekledik ve elimizdeki veriyi alt alta yapıştırdık. Yani veri artık tek sayfada.

YIL	STOKKODU	MALINCINSI	CIKIS ADET
2022	0067238891183	Dove (D) Sabun 100Gr Pınk	8​
2023	8809815867479	Bıspack Ayak Maskesi 20 gr Aloe	6​

Şimdi makro ile, MALINCINSI bazında, yıl yıl ayrılmış olarak ve en çok çıkış yapılandan başlayarak, CIKIS ADET lerini pivot tablo ile görelim.

Option Explicit

Sub A_PIVOT_TABLO_OLUSTUR()

    Dim sourceSheet As Worksheet
    Set sourceSheet = ActiveSheet

    Dim newSheet As Worksheet
    Set newSheet = Sheets.Add
    newSheet.Name = "Pivot"

    Dim pivotCache As PivotCache
    Set pivotCache = ActiveWorkbook.PivotCaches.Create( _
        SourceType:=xlDatabase, _
        SourceData:=sourceSheet.Name & "!R1C1:R1048576C4", _
        Version:=8)

    Dim pivotTable As PivotTable
    Set pivotTable = pivotCache.CreatePivotTable( _
        TableDestination:="Pivot!R3C1", _
        TableName:="PivotTable1", _
        DefaultVersion:=8)

With pivotTable
        .PivotFields("YIL").Orientation = xlColumnField
        .PivotFields("YIL").Position = 1
        .PivotFields("STOKKODU").Orientation = xlRowField
        .PivotFields("STOKKODU").Position = 1
        .PivotFields("MALINCINSI").Orientation = xlRowField
        .PivotFields("MALINCINSI").Position = 2
        .PivotFields("STOKKODU").Orientation = xlPageField
        .PivotFields("STOKKODU").Position = 1

        .AddDataField .PivotFields("CIKIS ADET"), "Toplam CIKIS ADET", xlSum
        .PivotFields("Toplam CIKIS ADET").NumberFormat = "#.##0"

        .PivotFields("MALINCINSI").AutoSort xlDescending, "Toplam CIKIS ADET"
    End With

    Columns("A:A").ColumnWidth = 49.27
End Sub

 

[arrow3441]

Çok teşekkür hocam elinize emeğinze sağlık ögenmiş oldum teşekkür ederim

 

[Haluk]

Dosyalardaki sayfaları alt alta yapıştırmadan, "Pivot Table Wizard" ile her iki dosyadaki alanları seçerek düzenlenen Pivot Tablo alternatifi ektedir....


.

 

[arrow3441]

Teşekkür ederim haluk hocam sizinki gibi yapınca daha basit