LİSTE KARŞILAŞTIRMA

[scartex]

LÝSTE KARÞILAÞTIRMA

Merhaba arkadaşlar iki listem var ve bunlar arasında bilgi doğrulaması benzeri bir şey yapmak istiyorum . Dosya örneğini ekte gönderiyorum.
İyi çalışmalar.

 

[SGM020]

Ekteki dosya nasıl?

 

[Levent Menteşoğlu]

A tablonuzun sayfa1'de B tablonuzunda sayfa2'de olduğunu kabul edersek, aşağıdaki kodu sayfa1'de bir butona bağlayarak çalıştırın.

[vb:1:07161dad24]Sub veriaktar()
On Error Resume Next
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For a = 3 To s1.[a65536].End(xlUp).Row
sat = s2.[a1:a65536].Find(s1.Cells(a, 1).Value).Row
s2.Cells(sat, 2) = s1.Cells(a, 2).Value
Next
MsgBox "İÞLEM TAMAMLANMIÞTIR"
End Sub
[/vb:1:07161dad24]