Sütundaki verileri sayfalara kopyalama

[ennteresan]

iyi akşamlar,
veri isimli sayfanın B4:B304 hücrelerindeki verileri sırasıyla sayfa1-sayfa301 sayfalarında yer alan D11 hücrelerine yazdırmam gerekiyor. Sayfalar arası kopyalama hakkında forumda birkaç konuya göz attım ama karışık geldi anlayamadım :frown:
Müsait bir arkadaş yardım ederse sevinirim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu Modüle yapıştırıp dener misiniz?

Sub Aktar()
For i = 4 To 304
Sheets("Sayfa" & i - 3).[D11].Value = Sheets("veri").Cells(i, 2).Value
Next
MsgBox "Aktarma İşlemi Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub