Başka Sayfadaki Hücreyi Değer olarak atama

[PuSSat]

Merhabalar;

For i = 1 To 300

Worksheets("Toplam").Range("A" & i).Value = "mert"
Worksheets("Toplam").Range("B" & i).Value = Worksheets(i).Name.Range("R2:C1")
Worksheets("Toplam").Range("C" & i).Value = Worksheets(i).Range("R48:C4")

Next

Bu şekilde bir döngü oluşturdum. Yalnız "mert" hücrelere yazdırabiliyorken alttaki diğer sayfalardaki seçilen hücrelerdeki verileri toplam sayfasına yazdıramadım. Bu konu hakkında yardımcı olabilirmisiniz?

 

[hamitcan]

Worksheets(i).Range("C2")

şeklinde kullanın.

 

[PLİNT]

Merhabalar;

For i = 1 To 300

Worksheets("Toplam").Range("A" & i).Value = "mert"
Worksheets("Toplam").Range("B" & i).Value = Worksheets(i).Name.Range("R2:C1")
Worksheets("Toplam").Range("C" & i).Value = Worksheets(i).Range("R48:C4")

Next

Merhaba
Aşağıdaki gibi deneyin.Yukarıda bir hücreye birden fazla hücre alınmaya çalışılıyor. "Worksheets(i).Name" kaldırın.

 For i = 1 To 300

Worksheets("Toplam").Range("A" & i).Value = "mert"
Worksheets("Toplam").Range("B" & i).Value = Worksheets(i).Range("[COLOR="Red"]A2[/COLOR]")
Worksheets("Toplam").Range("C" & i).Value = Worksheets(i).Range("[COLOR="Red"]D48[/COLOR]")

Next