Karşılaştırma

[zpzpp]

Merhaba.
Örnekte gönderdiğim dosyada ilk sheetde ürünler ve satış verileri bulunmaktadır. Sheet2 de ise yeni bir haftanın satış verileri bulunmaktadır.
Yapmak istediğim şey şu: sheet2 de bulunan sheet1 de bulunan veya bulunmayan ürünleri sheet2 de belirtilen yerlere sıralamak, sheet1 e her iki listede de ortak olan ürünlerin satış miktarlarını eklemek.
Yardımcı olursanız sevinirim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub karsilastir()
Dim sat As Integer
Dim sat1 As Integer
Dim sat2 As Integer
Dim s As Integer
Dim ss As Integer
Sayfa1.[d5:d5000] = Empty
Sayfa2.[d5:h5000].Clear
s = 5
ss = 5
    For sat = 5 To Sayfa2.Cells(65536, "a").End(xlUp).Row
        If WorksheetFunction.CountIf(Sayfa1.Range("a5:a5000"), Sayfa2.Cells(sat, "a")) = 0 Then
            Sayfa2.Cells(s, "g") = Sayfa2.Cells(sat, "a").Value
            Sayfa2.Cells(s, "h") = Sayfa2.Cells(sat, "b").Value
                s = s + 1
        End If
    Next
    '*****
    For sat = 5 To Sayfa2.Cells(65536, "a").End(xlUp).Row
        If WorksheetFunction.CountIf(Sayfa1.Range("a5:a5000"), Sayfa2.Cells(sat, "a")) = 1 Then
            Sayfa2.Cells(ss, "d") = Sayfa2.Cells(sat, "a").Value
            Sayfa2.Cells(ss, "e") = Sayfa2.Cells(sat, "b").Value
                ss = ss + 1
        End If
    Next
    '*****
        For sat1 = 5 To Sayfa1.Cells(65536, "a").End(xlUp).Row
        For sat2 = 5 To Sayfa2.Cells(65536, "a").End(xlUp).Row
        If Sayfa1.Cells(sat1, "a") Like Sayfa2.Cells(sat2, "a") Then
            Sayfa1.Cells(sat1, "d") = Sayfa2.Cells(sat2, "b").Value
        End If
    Next
    Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Siz sorunuzu makrolar bölümüne sormuşsunuz ve Sn. N.Ziya beyde makrolu cevabı size vermiş. Fakat sorunuzun yerleşik formüllerlede çözümü bulunmaktadır. Alternatif olarak bu yönde hazırladığım örnek dosyayı incelermisiniz.

 

[zpzpp]

Şimdi her ikisini de deneyeceğim. Çok teşekkür ederim.