exelde toplu olarak hücreleri biri birine bağlama yardımı

[stmbox]

arkadaşlar toplu olarak hücreleri biri birine bağlayabilirmiyim
örneğin şu hücreleri
Sayfa1D3 sayfa25C11 ile
Sayfa2D3 sayfa25C12 ile
Sayfa3D3 sayfa25C13 ile
Sayfa4D3 sayfa25C14 ile
Sayfa5D3 sayfa25C15 ile
Sayfa6D3 sayfa25C16 ile
yardımcı olurmusunuz lütfen

 

[antonio]

Merhaba,
Aşağıdaki kodu deneyebilirsiniz:

Sub hucreleri_birbirine_bagla()
    For i = 1 To 6
        Sheets(i).Range("D3").Value = Sheets(25).Range("C" & 10 +[COLOR="Red"][B] i[/B][/COLOR]).Value 
    Next i
End Sub

 

[stmbox]

hocam yapamadım yardım lütfen

 

[antonio]

Örnek dosyanızı dosya.tc sitesine yükleyiniz. Böylece yardım alma şansınız yükselir.

 

[stmbox]

buyrun hocamhttp://www.dosya.tc/server11/vp7s8f/YENI_GOREV_DAGILIMI__2_.xlsx.html

hocam birde şurdaki dosyayı farklı bir yere yükleme şansınız var mı
teşekkür ederim
http://www.excel.web.tr/f50/sayfalar-arasy-veri-aktarymy-yardymy-t169178.html#post923363

 

[stmbox]

hocam çalışmıyor sayfa1 D3 hücresine yazdığmı bağlamıyor

 

[antonio]

Kodlarda i yerine 1 yazılmış, düzelttim. Dosyayı yeniden yüklüyorum.
http://www.dosya.tc/server11/rn58vq/YENI_GOREV_DAGILIMI__3_antonio.rar.html

(önceki mesajımda kodun hatalı kısmını kırmızı işaretli olarak göreceksiniz)
Önce Sayfa25 in C11:C16 aralığındaki verileri doldurun, sonra Sayfa1 e gelip düğmeye basınız

 

[stmbox]

teşekkür ederim hocam çalışıyor