Başka sayfadaki hücre değerine göre veri kopyalama

[sadece_erhan]

Makroyu çalıştırdığım sayfada "W1" hücresindeki veri ile "2" isimli sayfanın y sutunundaki verileri karşılaştıracak, aynı ise "m" sutundaki veriyi makroyu çalıştırdığım sayfada "t" sutununda sırayla alt alta yazacak bir maktoya ihtiyacım var.

http://s6.dosya.tc/server5/hyuhnq/Kitap2.xlsx.html


düzenleme:

Sub satırkopyala()
For i = 1 To 33652
If Sheets("2").Cells(i, "y") = ActiveSheet.Range("w1") Then ActiveSheet.Cells(i, "t") = Sheets("2").Cells(i, "m")
Next i

End Sub

kodu yukarıdaki şekilde oluştrdum ama alt alta yazmıyor maalesef, kaçıncı satırdaysa aktif sayfada o satıra yazıyor, ben alt alta yazdırmak istiyorum

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyin
kırmızı bölümler örnek dosyanızda "T2" hücresi boş olduğu içindir
asıl dosyada dolu ise siliniz:

Sub satırkopyala()
[COLOR="red"]If [t2] = "" Then [t2] = "A"[/COLOR]
For i = 1 To 33652
If Sheets("2").Cells(i, "y") = ActiveSheet.Range("w1") Then
x = ActiveSheet.Cells(Rows.Count, "T").End(3).Row + 1
ActiveSheet.Cells(x, "t") = Sheets("2").Cells(i, "m")
End If
Next i
[COLOR="Red"]If [t2] = "A" Then [t2] = ""[/COLOR]

End Sub