stok kodları arasındaki fark...

[selcukc1]

:hey: yapmanızı rica ettiğim konuyu şöyle özetleyeyim kısaca;

firma dosyasında bulunan stok kodu kısmıyla, sipariş dosyasında bulunan stok kodlarını bulup, aynı stok kodlarını karşılaştırıp arasındaki adet farkını bulmak, ama yanında yine stok kodu yazacak şekilde olması gerekiyor. konuyla ilgili elimde 50bin satırlık bir excel dosyası var ve iki taraflı karşılaştırma yapmam lazım o yüzden önemli...

excel dosyası ektedir. hazırlanmasını rica ettiğim tablo yapısını da anlattım orada...

konuyla ilgili dönüşlerinizi rica ediyorum...
:hey:

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Sayfa3 isimli sayfaya verileri listeler.

Option Explicit
 
Sub FARK_KONTROL()
    Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
    Dim X As Long, Satır_1 As Long, Satır_2 As Long, BUL As Range
 
    Application.ScreenUpdating = False
 
    Set S1 = Sheets("APP Fball MEN-KIDS")
    Set S2 = Sheets("Sayfa3")
    Set S3 = Sheets("Sayfa4")
 
    S2.Select
    S2.Range("A:B").Clear
    S3.Range("A:B").Clear
    S2.Range("A1:B1") = Array("STOK KODU", "FARK ADEDİ")
    S3.Range("A1:B1") = Array("STOK KODU", "FARK ADEDİ")
    Satır_1 = 2
    Satır_2 = 2
 
    For X = 3 To S1.Cells(Rows.Count, "C").End(3).Row
        If WorksheetFunction.CountIf(S1.Range("J:J"), S1.Cells(X, "C")) > 0 Then
            Set BUL = S1.Range("J:J").Find(S1.Cells(X, "C"))
            S2.Cells(Satır_1, 1) = S1.Cells(X, "C")
            S2.Cells(Satır_1, 2) = WorksheetFunction.SumIf(S1.Range("C:C"), S1.Cells(X, "C"), S1.Range("D:D")) - S1.Cells(BUL.Row, "K")
            Satır_1 = Satır_1 + 1
        ElseIf S1.Cells(X, "D") > 0 Then
            S3.Cells(Satır_2, 1) = S1.Cells(X, "C")
            S3.Cells(Satır_2, 2) = S1.Cells(X, "D")
            Satır_2 = Satır_2 + 1
        End If
    Next
 
    S2.Columns.AutoFit
    S3.Columns.AutoFit
 
    Set BUL = Nothing
    Set S1 = Nothing
    Set S2 = Nothing
    Set S3 = Nothing
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[selcukc1]

Hocam eline emeğine sağlık göndermiş olduğun yapı iyi bir şekilde çalışıyor fakat fark işlemini tam tersi şekilde kurabilirmisin.yapmış olduğun sistemde (sipariş - firma şeklinde) bunu tam tersine çevirip (firma- sipariş)şeklinde yapabilirmisin. bizim için önemli olan firmanın göndermiş olduğu adetlerdir. siparişe göre kaç tane eksik - fazla var onu öğrenmek istiyoruz. birde sistemde stok kodu sayısı çok fazla başka bir şekil yapıp da değerlendirmeden geçenler farkı olmayanları bir renk farklı olanları bir renk diğer karşılaştırmada iki bölüm arasında stok kodu karşılaştırmasında iki listenin ayrı ayrı diğer karşlaştırma kısmında olmayanları farklı bir renkde göstermeniz mümkün mü? teşekkürler...

 

[Korhan Ayhan]

Merhaba,

FARK ile ilgili işlemi istediğiniz şekilde düzelttim. Üstteki mesajımdaki kodu yeniden deneyebilirsiniz.

Renklendirme ile ilgili nasıl istediğinize dair küçük bir örnek dosya ekleyin kodu ona göre revize etmeye çalışırım.

 

[selcukc1]

en basit olarak söyle aktarayım hocam...

şimdi adet toplamını alınca firmanın adeti : 2734 adet
sipariş adeti : 2281 adet
fark olarak yaptığın makroyu çalıştırınca 420 adet fark buluyor
arada 33 tane fark kalıyor... bunun hangi koddan kaynaklandığını mesela görmek istiyorum.
hani problemli kod adeti fazla olan ve diğer tarafta karşılaştırmaya girmeyen kod hangisi...

bu şekilde aktarayım...
teşekkürler

 

[Korhan Ayhan]

Merhaba,

Dosyanıza boş bir sayfa daha ekleyin. Adı Sayfa4 olsun.

Daha sonra #2 nolu mesajımdaki yenilediğim kodu tekrar deneyin.

Yenilediğim kod iki sayfaya istediğiniz şekilde listeleme yapacaktır.

 

[selcukc1]

eyw hocam ellerine sağlık... iyi şekilde çalışıyor... teşekkür ederim emeğine sağlık...