Belli bir satır sayısı kadar yapıştırma

[cenkataseven]

Merhaba,

3.sayfada A1:A28 arasında verilerim var. Bunları sırayla kopyalayıp 1. sayfanın A sütununa 110 satır yapıştırmak istiyorum. 3.sayfadaki a1'i 110 satır yapıştırdıktan sonra A2'yi kopyalayıp 111. satırdan devam ederek yapıştıracağım. Aşağıdaki kod için ilk satır our f range hatası alıyor.

Sub TEST()
Set s1 = Sheets("Sheet1")
Set s3 = Sheets("Sheet3")
Set bas = s1.[a65536].End(3).Row
Set son = s1.[a65536].End(3).Row + 110
For i = 1 To 28
s3.Range("a" & i).Copy
s1.Range(bas, son).PasteSpecial xlPasteAll
Application.CutCopyMode = False
Next
End Sub

 

[YUSUF44]

Aşağıdaki makro Sayfa3'ten Sayfa1'e aktarır. Sayfa adlarını kendinize göre değiştiriniz. Out of range hatası veriyorsa o sayfa yok demektir:

Sub TEST()
Set s1 = Sheets("Sayfa1")
Set s3 = Sheets("Sayfa3")
For i = 1 To 28
    yeni = s1.Cells(Rows.Count, "A").End(3).Row + 1
    If s1.[A1] = "" Then yeni = 1
    s3.Cells(i, "A").Copy s1.Range(Cells(yeni, "A"), Cells(yeni + 109, "A"))
Next
Application.CutCopyMode = False
End Sub

 

[cenkataseven]

Aşağıdaki makro Sayfa3'ten Sayfa1'e aktarır. Sayfa adlarını kendinize göre değiştiriniz. Out of range hatası veriyorsa o sayfa yok demektir:

Sub TEST()
Set s1 = Sheets("Sayfa1")
Set s3 = Sheets("Sayfa3")
For i = 1 To 28
    yeni = s1.Cells(Rows.Count, "A").End(3).Row + 1
    If s1.[A1] = "" Then yeni = 1
    s3.Cells(i, "A").Copy s1.Range(Cells(yeni, "A"), Cells(yeni + 109, "A"))
Next
Application.CutCopyMode = False
End Sub

Çok teşekkürler. Şu satırda 1004 Runtime hatası veriyor.

s3.Cells(i, "A").Copy s1.Range(Cells(yeni, "A"), Cells(yeni + 109, "A"))

 

[YUSUF44]

dosya yapısında bir problem var muhtemelen, hatalı haliyle paylaşırsanız inceleyebilirim.

 

[cenkataseven]

dosya yapısında bir problem var muhtemelen, hatalı haliyle paylaşırsanız inceleyebilirim.

İletiyorum. Teşekkürler. Dosya

 

[YUSUF44]

Bende herhangi bir hata vermedi.

 

[cenkataseven]

Bende herhangi bir hata vermedi.

3. sayfadaki değerleri 1. sayfada Q sütununa taşıyıp işlemi hep 1 sayfada yaptırınca hata almıyorum. Çok garip. Farklı sayfalar arası kopyala yapıştırda bu hatayı veriyor.

 

[YUSUF44]

Ben gönderdiğiniz dosyada gönderdiğiniz haliyle çalıştırdım. Sheet3'teki verileri Sheet1'e 110 tekrarlı olarak aktardı. Hatta üstüne bir kez daha çalıştırdım, yine aktardı.

Sorununuzun ne olduğunu anlamadım maalesef.