Fiyat Değişikliklerini saptama

[53rize]

1- Burada 1. sayfada Barkod no ve ürünün Satış Fiyatı görünüyor.
2- Buradaki Barkod numarasına karşılık gelen 2. Sayfadaki Barkodlu ürünlerin fiyatlarında değişiklik olduğunda 4.sayfada ve yahut yeni bir sayfa onlar listelensin.

Not: 2. sayfadaki ürünlerin sıralamaları aynı olmayabilir.
Örnek Dosya ektedir. Saygılarımla.

 

[53rize]

Excel tablsunun 3. sayfası kıyaslanmayacak. Sadece 1. Sayfa ve 2. sayfa dikkate alınacak.

 

[53rize]

Lütfen Üstatlarımız bu sorunu çözebilirlermi.Teşekkür ederim.

 

[Ömer]

1- Burada 1. sayfada Barkod no ve ürünün Satış Fiyatı görünüyor.
2- Buradaki Barkod numarasına karşılık gelen 2. Sayfadaki Barkodlu ürünlerin fiyatlarında değişiklik olduğunda 4.sayfada ve yahut yeni bir sayfa onlar listelensin.

Not: 2. sayfadaki ürünlerin sıralamaları aynı olmayabilir.
Örnek Dosya ektedir. Saygılarımla.

Merhaba,

Module kopyalayıp butona atayın ve listelemeyi görmek istediğiniz zaman çalıştırın.

Sub Listele()
 
    Dim S1 As Worksheet, i As Integer, j As Long, sat As Long
 
    Set S1 = Sheets("1")
 
    Application.ScreenUpdating = False
    Sheets("4").Select: Cells.Clear
    S1.Range("A1:B1").Copy Range("A1")
 
    Range("C1") = "Eski Fiyat": Range("D1") = "Yeni Fiyat"
 
    sat = 2
    For i = 1 To Worksheets.Count
      With Sheets(i)
        If .Name = 2 Or .Name = 3 Then
          For j = 2 To S1.Cells(Rows.Count, "A").End(xlUp).Row
            Set c = .[A:A].Find(S1.Cells(j, "A"), , xlFormulas, xlWhole)
            If Not c Is Nothing Then
              If .Cells(c.Row, "C") <> S1.Cells(j, "C") Then
                S1.Range("A" & j, "C" & j).Copy Cells(sat, "A")
                Cells(sat, "D") = .Cells(c.Row, "C")
                sat = sat + 1
              End If
            End If
          Next j
        End If
      End With
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[53rize]

Teşekkür ederim. Tam İstediğim gibi sağolun.