ralat instruksi baris terakhir, ini salah tulis Application.CutCopyMode = xlCopy
harusnya Application.CutCopyMode = False ----- Original Message ----- From: siti Vi To: [email protected] Sent: Tuesday, November 03, 2009 12:25PM Subject: Re: [belajar-excel] copy antar file pencarian lokasi tidak perlu KALAU kedua workbook sudah dlm keadaan terbuka. Jadi sebelum menjalankan makro (yg tertulis di workbook A) workbook B harus sudah dibuka. Titik terpenting dlm makro ini adalah: menentukan LOKASI CELL di workbook B; di mana salinan data dari workbook A akan diletakkan. Dlm makro berikut ini Lokasi cell tsb sitiberi nama NewRec. Sub EntryToTable() 'siti Vi / 3-Okt-2009 Dim RngAsal As Range, RngTuju As Range Dim NewRec As Range, RecCount As Long Set RngAsal = ActiveSheet.Range("B3").CurrentRegion With RngAsal Set RngAsal = .Offset(1, 0).Resize(.Rows.Count, .Columns.Count) End With Set RngTuju = Workbooks("B.xls").Sheets("Sheet1").Range("B3").CurrentRegion With RngTuju If .Rows.Count > 1 Then Set RngTuju = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count) RecCount = RngTuju.Rows.Count Else Set RngTuju = .Offset(1, 0) RecCount = 0 End If End With Set NewRec = RngTuju(RecCount + 1, 1) RngAsal.Copy NewRec.PasteSpecial xlPasteValuesAndNumberFormats Application.CutCopyMode = xlCopy '--setelah berhasil disalin, harusnya sumber data dihapus ' (mencegah entry ganda..) ' RngAsal.ClearContents End Sub ----- Original Message ----- From: Cicis Kristian To: [email protected] Sent: Tuesday, November 03, 2009 10:31AM Subject: [belajar-excel] copy antar file Minta tolong lagi untuk kesekian kalinya ya... Saya memiliki sebuah file excel (mis. A.xls) yang berisi data pada worksheet1 s.d worksheet3, nah yang saya inginkan lakukan adalah menyalin data tersebut kedalam sebuah worksheet pada file excel baru yang telah disiapkan (mis. B.xls) dengan setiap kali menekan button “Rekap” pada setiap worksheet yang ada pada file pertama. Untuk pertama kali, button pada worksheet manapun yang sedang aktif saat itu (pada file A), bilamana ditekan akan menyebabkan data pada worksheet tsb tersalin menuju ke barisan awal pada file B. Penekanan button lain pada worksheet yang lain selanjutnya, akan membuat data pada worksheet tsb tersalin menuju ke barisan berikutnya pada file B. (pencarian lokasi file pasti perlu diperhatikan ya...??gimana kalo lokasi filenya berubah2 namun kedua file diatas masih dalam sebuah direktori) Mohon bantuannya, terima kasih
