Kopyalanan satır kadar diğer çalışma sayfasına satır eklemek

[MUTLUXXX]

Bir çalışma sayfasından toplam 6 satır veri giriliyor ve kopyalanıp diğer çalışma kitabına aktarılıyor.Veri girilen satır sayısı her seferinde değişiyor.Veri girilen satırları makro ile copy yapıyorum.Seçilen satır kadar diğer çalışma kitabı sheet1 kaydediyorum.Ancak diğer çalışma kitabına kopyalanan satır sayısı kadar satır nasıl açtırabilirim?6 satırı alttan başlayarak seçiyorum ve en son dolu olanı buluyorum.Teşekkür ediyorum.

 

[Orion1]

Kendi kodlarınıza uyarlayın.

Range("A1:B" & Cells(65536, "A").End(xlUp).Row).Copy Sheets("Sayfa2"). _
Range("A" & Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row+1)

 

[MUTLUXXX]

Diğer çalışma kitabına

ilk satır dolu olduğu için ilk satırı kopyalıyor ancak diğer çalışma kitabına yapıştırmıyor.

For X = 162 To 157 Step -1
If Cells(X, "DN") <> "" Then
ADRES = "DJ157:GJ" & X
GoTo Devam
End If
Next
Devam:
If ADRES <> "" Then
ChDir "C:\Documents and Settings\happy\2004"
Workbooks.Open Filename:="C:\Documents and Settings\happy\2004\ver"
Range("A7").Select
Range("ADRES" & Cells(65536, "ADRES").End(xlUp).Row).Copy Sheets("Sayfa1"). _
Range("ADRES" & Sheets("Sayfa1").Cells(65536, "ADRES").End(xlUp).Row)
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A7").Select

 

[Orion1]

Aşağıdaki gibi deneyiniz.
thisworkbook.activesheet.Range(ADRES).Copy
Sheets("Sayfa1").Range(ADRES).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False