Soru Hata kaynağı nedir ?

[mkaraoglu25]

Aşağıdaki kod bir sayfada dolu olan satırları bulup diğer sayfanın en son satırına yapıştırıyor olması lazım. Ama en son satırına yapıştırmıyor . En son satırı nasıl hedef gösterebilirim. Kopyaladığı sayfa montaj, yapıştırdığı sayfa "Sayfa2" . Desteklerinizi bekliyorum.

Sub montajyapıştır()

 Dim Say As Integer

Dim Sayfa As Worksheet

Set Sayfa = Worksheets("Montaj")

 Say = Sayfa.Cells(Sayfa.Rows.Count, "A").End(xlUp).Row

 If Say < 2 Then MsgBox "Veri yok.", vbCritical

 Exit Sub

 End If

 Sayfa.Rows("3:" & Say).Copy Sheets("Sayfa2").Rows(1).End(xlDown).Offset(1, 0).Select

  ActiveSheet.Paste

   Application.CutCopyMode = False

    End Sub

 

[Levent Menteşoğlu]

Sheets("Sayfa2").Rows(1).End(xlDown).Offset(1, 0).Select

Yukarıdaki satırı aşağıdaki ile değiştirerek deneyin.

Sheets("Sayfa2").Rows(1).End(xlUp).Offset(2, 0).Select

 

[mkaraoglu25]

Maalesef aynı hatayı alıyorum Levent bey.

 

[Levent Menteşoğlu]

Fikrim yok. Dosyanızı eklerseniz daha kesin bir çözüm bulunabilir.