Veri aktarma Makrosu...

[yasaramca]

Merhaba,

Sayfa1 A kolonunda aşağıya doğru A2 den başlayan .... giden verilerim var. benim yapmak istediğim. A2 hücresinden başlayarak Sayfa 2 deki D3 Hücresine Sıra ile A kolonunda bulunan verileri yazırmak. Yani;

A2 Hücresindeki Veriyi Sayfa 2 deki D3 hücresine yazacak. Tekrar Safya 1 deki A3 Hücresinde bulunan veriyi Sayfa 2 deki D3 hücresine yazacak.Tekrar Safya 1 deki A4 Hücresinde bulunan veriyi Sayfa 2 deki D3 hücresine yazacak. Benimde D3 hücresine bağlı formüllerim var. Çıkıtlar alacağım.

Teşekkürler,

 

[dEdE]

Merhaba,

Aşağıdaki kodlar işinize görür mü?

Sub Aktar()
Set s1 = Sheets(1)
Set s2 = Sheets(2)
For i = 2 To [a65536].End(3).Row
s2.Cells(3, 4).Value = s1.Cells(i, 1).Value
Next
End Sub