Salin dan tempel baris ke buku kerja yang ditutup

Saya ingin dapat memilih baris dan menyalin & menempelkannya (Dengan tombol perintah) ke buku kerja tertutup yang tetap ditutup. Kode di bawah ini menyalin segala sesuatu di bawah kisaran. Saya hanya ingin menyalin baris yang saya pilih.

Ini adalah baris yang perlu diubah:

With ThisWorkbook.Worksheets("Sheet1")
With .Range(.Range("A4:Q4"), .Range("A4:Q4").End(xlDown))
destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value

Kode lengkap:

Sub copytoarchive()
Dim destSht As Worksheet
Workbooks.Open ("C:\...\FileToCopyTo.xlsx") 
Set destSht = ActiveWorkbook.Worksheets("Sheet3") 
With ThisWorkbook.Worksheets("Sheet1")
With .Range(.Range("A4:Q4"), .Range("A4:Q4").End(xlDown))
destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1).Resize(.Rows.Count, .Columns.Count).Value = .Value 
End With
End With
destSht.Parent.Close True 
End Sub

microsoft-excel

— L White
sumber

Jika Anda ingin mengedit file, Anda harus membukanya. Anda bisa menutupnya lagi setelah disimpan.

— Sir Adelaide

Maaf, tapi saya tidak mengerti.

— L White

baik, Anda mengatakan Anda ingin menempelkan data ke dalam buku kerja tertutup yang tetap tertutup - Anda harus membukanya jika Anda ingin menempelkan data di

— Sir Adelaide

Ya, saya tahu itu. Masalahnya adalah kode ini menyalin beberapa rentang. Saya hanya ingin menyalin baris yang saya pilih.

— L White

Mungkin sesuatu seperti:

Sub copytoarchive()
Dim destSht As Worksheet

Selection.Copy

Workbooks.Open ("C:\...\FileToCopyTo.xlsx")
Set destSht = ActiveWorkbook.Worksheets("Sheet3")

destSht.Activate
Range("A1").Select
destSht.Cells(destSht.Rows.Count, 1).End(xlUp).Offset(1).Select
ActiveSheet.Paste

destSht.Parent.Close True

End Sub

Ini menyalin, membuka lembar target, menemukan baris berikutnya seperti yang sudah Anda lakukan, lalu menempel dan menutup.

— Tuan Adelaide
sumber

Ini memberi saya kesalahan untuk Rentang baris ("A1"). Pilih

— L White