Hücreleri başka hücreye kopyalama

[Beyza6116]

Aşağıdaki formülde yapmak istediğim şey mesela başlangıç 3 ve varilan 5 ise
3 ile 5. Satır aralıklarını Q13 ile At13 hücreleri arasına yazdırmak

Private Sub CommandButton4_Click()
'ROTA
Dim baslangiç, varilan
baslangiç = Sheets(1).Cells(3, 15)
varilan = Sheets(1).Cells(3, 16)


Dim i As Integer
For i = baslangiç To varilan
Sheets(1).Cells(baslangiç + 8, i + 1).Copy
Sheets(1).Range("Q13:AT13").PasteSpecial
Application.CutCopyMode = False
Next
MsgBox "Rota Gösterildi"
End Sub

 

[Beyza6116]

Aşağıdaki formülde yapmak istediğim şey mesela başlangıç 3 ve varilan 5 ise
3 ile 5. Satır aralıklarını Q13 ile At13 hücreleri arasına yazdırmak

Private Sub CommandButton4_Click()
'ROTA
Dim baslangiç, varilan
baslangiç = Sheets(1).Cells(3, 15)
varilan = Sheets(1).Cells(3, 16)


Dim i As Integer
For i = baslangiç To varilan
Sheets(1).Cells(baslangiç + 8, i + 1).Copy
Sheets(1).Range("Q13:AT13").PasteSpecial
Application.CutCopyMode = False
Next
MsgBox "Rota Gösterildi"
End Sub

Daha kısa ve net bir şekilde istediğim şey 8. Sutunda i nin aldığı tüm satır değerlerindeki hücreleri farklı satırlara yazdırmak

 

[ÖmerFaruk]

Kopyalamak istediğiniz aralığınızın satır noları belli, sütunları nedir?
Forumdan örnek bir konu başlığı
https://www.excel.web.tr/threads/range-sinifinin-pastespecial-yoentemi-basarisiz.4951/