iki ayrı sheet içerisindeki bilgileri eşleme

[lordlegolas]

merhaba arkadaşlar;

aslında basit olduğunu düşündüğüm ama sizden yardım almak istediğim bi makro lazım oldu. ekte göndermiş olduğum dosyada 1 no lu sheet içerisinde yer alan a sütunundaki harfler karışık olarak yer alıyor ve 2 no lu sheet teki bilgiler de bir başka sırayla yer alıyor ama ben bu ikisi içerisindeki değerleri eşlemek istiyorum ve 3 no lu sheet teki yazdırmak istiyorum sanırım bunun için basit bir döngü yazmak lazım yardımcı olursanız sevinirim

teşekkürler..

 

[Levent Menteşoğlu]

3 nolu sayfaya bir buton ekleyerek aşağıdaki kodu bu butona bağlayın.

[vb:1:767f9d30b1]Sub esle()
Set s1 = Sheets("1")
Set s2 = Sheets("2")
Set s3 = Sheets("3")
s3.[a2:c65536].ClearContents
For a = 2 To s1.[a65536].End(xlUp).Row
c = c + 1
s3.Cells(c + 1, 1) = s1.Cells(a, 1).Value
s3.Cells(c + 1, 2) = s1.Cells(a, 2).Value
s3.Cells(c + 1, 3) = s2.Cells(s2.[a1:a65536].Find(s1.Cells(a, 1).Value).Row, 2).Value
Next
End Sub[/vb:1:767f9d30b1]

 

[tahirturan]

ben bu kodları deniyorum ama bir türlü çalıştıramadım?