wakakaka... pasti ada sesuatu yang berubah. Kalau dulu bisa sekarang jadi ndak bisa, berarti ada setting yang berubah dan bukan karena penambahan baris script yang tempo lalu. Coba di cek ulang seluruh perangkatnya, mulai dari file sharing beneran aktif shared workbook atau tidak dsb.
Selain itu, coba juga untuk mengganti baris wbtarget.save setelah
wbtarget.activate dengan
if wbtarget.readonly then
wbtarget.close false
exit sub
endif
Wassalam,
Kid.
2013/3/15 <tio.ad...@ptssb.co.id>
> **
>
>
>
> Mr. Kid, kok errornya jadi ke wbTarget.save yah ?
>
> Ini bunyi errornya setelah saya copas code VBA di bawah :
>
>
>
>
> Ma'af merepotkan .
>
> regards,
> Tio
>
>
> *"Mr. Kid" <mr.nm...@gmail.com>*
> Sent by: belajar-excel@yahoogroups.com
>
> 03/14/2013 07:05 PM
> Please respond to belajar-excel
>
> To: belajar-excel@yahoogroups.com
> cc:
> Subject: Re: [belajar-excel] Re: Mencegah bentrok data di
> File Sharing
>
>
>
>
> Errornya karena tidak bisa melakukan paste.
>
> Dim TgBrs As Integer
> Dim wbTarget As Workbook
> Dim cPath As String
> Dim TinggiMaxBaris As Integer
> dim wbkapp as workbook,rngSumber as range, rngTarget as range
> set wbkapp=thisworkbook
> cPath = "\\sbplg01b\Qcmntrng\6Sigma\QC_Time_Sheet_Input.xls"
> TgBrs = Range(Range("C3"), Range("C3").End(xlDown)).Rows.Count + 2
> set rngsumber=Range("A3:S" & TgBrs)
> 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
> set rngtarget=Worksheets("January").Range("A" & TinggiMaxBaris).Offset(1,
> 0) *
> 'ActiveWindow.ActiveSheet.Paste ' Dibaris ini errornya*
> rngsumber.cut rngtarget
> Application.CutCopyMode = False
> wbTarget.Close Savechanges:=True
> Set wbTarget = Nothing
>
> Wassalam,
> Kid.
>
> On Thu, Mar 14, 2013 at 9:10 AM,
> <*tio.ad...@ptssb.co.id*<tio.ad...@ptssb.co.id>>
> wrote:
>
>
>
> 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* <mr.nm...@gmail.com>*>*
> Sent by: *belajar-excel@yahoogroups.com* <belajar-excel@yahoogroups.com>
>
> 03/09/2013 03:08 PM
> Please respond to belajar-excel
>
> To:
> *belajar-excel@yahoogroups.com*<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* <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
>
>
>
>
>
>
<<image/gif>>
