Dear Pak Hendrik dan semuanya,
Mohon di bantu lagi, apakah seperti ini :
Workbooks.Open fileku, "D:\SS\Master Test2.xls:" sudah di coba tapi debug.
mohon bantuannya.
Script lengkapnya masih seperti script yang di kasih pak Roni :
Dim rc As Long
Dim fileku As String
Dim wb As Workbook
Application.ScreenUpdating = False
fileku = ActiveWorkbook.Path
rc = ActiveSheet.UsedRange.Rows.Count
Workbooks.Open fileku, "D:\SS\Master Test2.xls:"
Set wb = ActiveWorkbook
rc = ActiveSheet.UsedRange.Rows.Count
With Sheets(1).Range("A1")
...Offset(rc, 0).Value = Me.TextBox1.Value
...Offset(rc, 1).Value = Me.TextBox2.Value
...Offset(rc, 2).Value = Me.TextBox3.Value
...Offset(rc, 3).Value = Left(Thisheet.Name, Len(Thissheet.Name) - 4) 'nama
dari workbook yang entry
End With
wb.Save
wb.Close 'tutup workbook master
Application.ScreenUpdating = True
Unload Me
Entry_Form.Show
End Sub
On Mon, Feb 26, 2018 at 11:48 AM, hendrik karnadi hendrikkarn...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Hai Stephen,
> Ya pasti ga bisa, mau cari Luna yang diklik Siska....
> Yang harus diubah adalah setting direktori fileku nya atau ditulis lengkap
> dalam tanda petik "Dir\SubDir\namafile.ext"
>
> Salam,
> HK
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>
> On Mon, Feb 26, 2018 at 11:23, Stephen Saputro stephensapu...@gmail.com
> [belajar-excel]
> <belajar-excel@yahoogroups.com> wrote:
>
>
> Terima kasih Banyak Pak Kid, Pak Hendrik dan juga Pak Soni..
>
> Saya lagi coba pelajari script yang di kasih pak Roni, dan lagi coba
> menelaah penjelasan Pak Kid.
>
> Mohon kiranya dapat di bantu :
>
> 1. Script ini maksudnya file output dan file input di folder yang sama ya :
>
> Workbooks.Open fileku & "\" & "Master.xls"
>
> 2. Saya lagi coba buat untuk di input dan output ada di folder yang
> berbeda. Saya coba script dibawah ini :'
>
>
> workbooks.Open fileku,W:\"Master.xls" tapi tetap tidak bisa . Mohon
> kiranya dapat di bantu scriptnya untuk input dan output di folder yang
> berbeda
>
>
>
>
> 2018-02-19 10:16 GMT+07:00 y.ron...@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
>
> Pelajaran yang bagus, bisa menambah referensi,, terimakasih buat semua
>
>
>
>
