verileri karşılaştır farklı olanları listele

[sevensuleyman]

merhaba kolay gelsin ;

2 ayrı veri dosyam var sayfa isimleri(çekilen veriler ve SAYFA2) bu dosyada istediğim stok adı değişen ürünleri tespit edip satırdaki diğer bilgiler (stok kodu,adı,fiyatı gibi tüm alanlar) ile beraber sayfa 3 kısmına buton yardımı ile listelemek. bu konuda yardımcı olursanız sevinirim

 

[Mahmut Kök]

İsteğinizi doğru mu anlamadım bilmiyorum ama aşağıdaki kodlar iki sayfadaki satırları karşılaştırıyor (çekilen veriler ve SAYFA2) ve stok adı (SAYFA2'de) farklı olanları sayfa3'e kopyalıyor.

Sub koduDegisenleriListele()

Set s1 = Sheets(1)
Set s2 = Sheets(2)
Set s3 = Sheets(3)

Dim sonsatir

For a = 2 To s2.Range("B65536").End(3).Row

    If (s1.Cells(a, "B") <> s2.Cells(a, "B")) Then
   
        sonsatir = s3.Range("B65536").End(3).Row + 1
   
        s3.Range("A" & sonsatir & ":G" & sonsatir).Value = s2.Range("A" & a & ":G" & a).Value
   
    End If

Next


End Sub

 

[Haluk]

Ekli dosyaya bakın, istediğiniz bu mu?

.

 

[veyselemre]

Haluk beyin kodundaki sorguyu aşağıdaki şekilde deneyerek de ürün adı değişenleri alabilirsiniz.

    strSQL = "Select * " & _
             "From [Çekilen Veriler$] as Table1 " & _
             "Left Join " & _
             "[Sayfa2$] As Table2 " & _
             "On Table1.[Ürün Kodu] = Table2.[Ürün Kodu] Where Table1.[Ürün Adı] <> Table2.[Ürün Adı] "

 

[sevensuleyman]

teşekkürler emeğiniz için istediğim gibi olmuş teşekkürler

 

[sevensuleyman]

Ekli dosyaya bakın, istediğiniz bu mu?


excel de sayfadaki veri sayıları değişebilmektedir. karılaştırma yapıldığında sayfa 2 de olmayan ürünleri stok adı değişti olarak getirmektedir. size zahmet sadece eşleşen (stok kodu ile eşleşebilir) verilerdeki stok adı değişen olarak düzenleyebilirmisiniz. iki sayfada aynı veri olupta değişenler gerekli umarım anlatabilmişimdir.



.

 

[Haluk]

Veysel Beyin kodu isteğinizi karşılamıyor mu?

.

 

[sevensuleyman]

Veysel Beyin kodu isteğinizi karşılamıyor mu?

.

sizin verdiğiniz kodun içerisindeki stsql ile başlayan yeri veysel beyin verdiği kod ile değiştirince düzeldi. teşekkürler