Ma'af sekali Be-Exceller, baru buka.
Errornya berbunyi :
Error run-time 1004
Paste Methode of Worksheets class failed
Ini code VBA yang gagal :
Private Sub ExportData_Click()
Dim TgBrs As Integer
Dim wbTarget As Workbook
Dim cPath As String
Dim TinggiMaxBaris As Integer
cPath = "\\sbplg01b\Qcmntrng\6Sigma\QC_Time_Sheet_Input.xls"
TgBrs = Range(Range("C3"), Range("C3").End(xlDown)).Rows.Count + 2
Range("A3:S" & TgBrs).Select
Selection.Cut
Set wbTarget = Workbooks.Open(Filename:=cPath, UpdateLinks:=False)
wbTarget.Activate
wbTarget.Save ' Ini sudah di save sebelum memulai aktivitas
TinggiMaxBaris =
Worksheets("January").Range("C1").CurrentRegion.Rows.Count
Worksheets("January").Range("A" & TinggiMaxBaris).Offset(1, 0).Select
ActiveWindow.ActiveSheet.Paste ' Dibaris ini errornya
Application.CutCopyMode = False
wbTarget.Close Savechanges:=True
Set wbTarget = Nothing
End Sub
Kira-kira kenapa errornya dan bagaimana solusinya ?
Terima kasih jawabannya. Semoga Tuhan membalas.
Wassalam,
Tio
"Mr. Kid" <mr.nm...@gmail.com>
Sent by: belajar-excel@yahoogroups.com
03/09/2013 03:08 PM
Please respond to belajar-excel
To: belajar-excel@yahoogroups.com
cc:
Subject: Re: [belajar-excel] Re: Mencegah bentrok data di File
Sharing
Errornya dibaris apa ?
Wassalam,
Kid.
2013/3/9 tioali2011 <tioali2...@yahoo.co.id>
Dear Be-Exceller,
Saya sudah melakukan seperti Mr. Kid sarankan, yaitu setelah open file
target, saya save, tapi error.
Yaitu Setelah Open wb target, saya lakukan code VBA :
wbTarget.save
wbTarget.Worksheet("January").select
wbTarget.Range("A2").select
ActiveSheet.paste.
Tapi code VBA tsb gagal. Kira-kira kenapa yah ? Apakah ada alternatif lain
bagaimana mencegah data bentrok di file sharing ? Seperti bila ada
peringatan, maka secara otomatis Code VBA memerintahkan untuk klik tombol
Accept Others dan membatalkan perintah berikutnya.
Terima kasih,
Wassalam,
Tio
