Aşağıdaki kodu sayfa2 deki butona bağlayarak çalıştırın.
[vb:1:5ccfb7deed]Sub aktar()
On Error Resume Next
For a = 2 To [a65536].End(3).Row
sat = WorksheetFunction.Match(Cells(a, "a"), [sayfa1!b:b], 0)
Sheets("sayfa1").Cells(sat, "d") = Cells(a, "c")
Next
MsgBox "İÃLEM TAMAMLANDI"
End Sub
[/vb:1:5ccfb7deed]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.