Soru satır kopyalama

[kalibre101]

merhabalar
1048424 :1048438 satırları arasını kopyalayıp
A44 başlangıç hücresi olacak şekilde yapıştırmak istiyorum
yardımcı olursanız sevinirim

 

[ÖmerFaruk]

Sub Kopyala()
    Range("A" & 1048424).Resize(15, Columns.Count).Copy Range("A44")
End Sub

 

[kalibre101]

Sub Kopyala()
    Range("A" & 1048424).Resize(15, Columns.Count).Copy Range("A44")
End Sub

teşekkür ederim
çok olmazsam bi şey daha isteyebilirmiyim
sheets("damga") isimli sayfadan 1 ile 15 satırlar arasını kopyalayıp
sheets("OCAK")isimli sayfada 44.satır başlagıç olacak şekilde yapıştırsın istiyorum yardımcı olabilirmisiniz

 

[ÖmerFaruk]

Sheets("damga").Range("A"................. ).Copy Sheets("Ocak").Range(....................)

Siz rahatlıkla yapabilirsiniz.
Biraz gayret

 

[kalibre101]

Sheets("damga").Range("A"................. ).Copy Sheets("Ocak").Range(....................)

Siz rahatlıkla yapabilirsiniz.
Biraz gayret

Sub deneme()
Dim sonsatir As Long
sonsatir = Sheets("OCAK").[A1048423].End(xlUp).Row
Sheets("damga").Range("A1:A15").Copy Sheets("OCAK").Range("A" & sonsatir + 4)
End Sub
birleştirilmiş hücreden ötürü hata veriyor
bu yüzden direk satırları kopyalayıp yapıştırmak istiyorum

 

[ÖmerFaruk]

Öncesinde hüce birleştirmeyi iptal edebilirsiniz. örnek aşağıdadır.

Sub Kopyala()
    Range("A44").Resize(15, Columns.Count).UnMerge
    Range("A" & 1048424).Resize(15, Columns.Count).Copy Range("A44")
End Sub

 

[kalibre101]

Öncesinde hüce birleştirmeyi iptal edebilirsiniz. örnek aşağıdadır.

Sub Kopyala()
    Range("A44").Resize(15, Columns.Count).UnMerge
    Range("A" & 1048424).Resize(15, Columns.Count).Copy Range("A44")
End Sub

teşekkürler