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
Copy_Antar_File.rar
Description: Binary data
