Sayfa2 den Sayfa1 veri alma

[angurya]

Dim i As Long
Dim dolu As Integer
Sheets("Sheet1").Select
dolu = WorksheetFunction.CountA(Range("A7:A54"))
For i = 1 To dolu
With Range("B4")
.Calculate
.Offset(i + 2).Value = .Value
With Range("C4")
.Calculate
.Offset(i + 2).Value = .Value
With Range("F4")
.Calculate
.Offset(i + 2).Value = .Value
End With
End With
End With
Next i

yukarıdaki kodla sayfa2 nin B4 C4 ve F4 hücrelerinde yer alan veriyi Sayfa1 in B7 C7 ce F7 hücrelerine dolu değişkeni miktarında yazdırmak istiyorum ama başaramadım.

yardım edecek arkadaşlara şimdiden teşekürler.

 

[asi_kral]

Dosya ekler misiniz_?

 

[angurya]

Dosyayı Ekledim.

 

[asi_kral]

Dosyada örnekler misin ben anlamadım