Fiyat Değişikliklerini saptama

Katılım
9 Mart 2005
Mesajlar
109
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.
 

Ekli dosyalar

Son düzenleme:
Katılım
9 Mart 2005
Mesajlar
109
Excel tablsunun 3. sayfası kıyaslanmayacak. Sadece 1. Sayfa ve 2. sayfa dikkate alınacak.
 

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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.

Kod:
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
.
 
Katılım
9 Mart 2005
Mesajlar
109
Teşekkür ederim. Tam İstediğim gibi sağolun.
 
Üst