[belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

classic Classic list List threaded Threaded
31 messages Options
12
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

yusman
Dear Rekan2,
 

 Mohon Dibantu saya punya data Excel. Terlampir https://drive.google.com/file/d/1pE4tEHy6q79uqhKDd-scwsP0XKn2P5Kf/view https://drive.google.com/file/d/1pE4tEHy6q79uqhKDd-scwsP0XKn2P5Kf/view
 

 Yg menjadi pertanyaan saya:
 1. Ketika File USER di Edit maka hasil di file MASTER akan berubah juga
 2.  Ketika File USER di Hapus maka hasil di file MASTER akan berubah juga
 

 

 

 

 

 Terimakasih
 Regards,
 Yusuf Roni
 

 

Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

hendrik karnadi
 Hai y.roni,Macronya memang dibuat seperti itu....Coba lihat bagian ini:
Workbooks.Open fileku & "\" & "Master.xls" 'buka workbook masterSet wb = ActiveWorkbookrc = ActiveSheet.UsedRange.Rows.CountWith 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(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) 'nama dari workbook yang entryEnd Withwb.Save
wb.Close 'tutup workbook master

Salam,HK

    On Tuesday, 6 February 2018, 3:14:36 PM GMT+7, [hidden email] [belajar-excel] <[hidden email]> wrote:  
 
    


Dear Rekan2,




Mohon Dibantu saya punya data Excel. Terlampir https://drive.google.com/file/d/1pE4tEHy6q79uqhKDd-scwsP0XKn2P5Kf/view




Yg menjadi pertanyaan saya:

1. Ketika File USER di Edit maka hasil di file MASTER akan berubah juga

2.  Ketika File USER di Hapus maka hasil di file MASTER akan berubah juga
















Terimakasih

Regards,

Yusuf Roni




 
   
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

yusman
Dear Hendrik Karnadi,
 

 Kl macro di buat seperti itu, harus dirubah bagaimana?
 Terimakasih
 

 

 

 Regards,
 Yusuf
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

hendrik karnadi
 Hai Yusuf,Macro yang mana, dibuat seperti apa ?
Salam,HK

    On Wednesday, 14 February 2018, 9:39:36 AM GMT+7, [hidden email] [belajar-excel] <[hidden email]> wrote:  
 
    
Dear Hendrik Karnadi,


Kl macro di buat seperti itu, harus dirubah bagaimana?Terimakasih


Regards,Yusuf    
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

Stephen Saputro
Dear Pak Hendrik & semua pakar Excel,

Mohon kiranya dapat di bantu, dari file yang ada ini bisakah di bantu agar
data yang di input di userform langsung terkirim ke file master tanpa harus
transit lagi di sheet input ?


Terima kasih


2018-02-14 10:42 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo...com
[belajar-excel] <[hidden email]>:

>
>
> Hai Yusuf,
> Macro yang mana, dibuat seperti apa ?
>
> Salam,
> HK
>
>
> On Wednesday, 14 February 2018, 9:39:36 AM GMT+7, [hidden email]
> [belajar-excel] <[hidden email]> wrote:
>
>
>
>
> Dear Hendrik Karnadi,
>
> Kl macro di buat seperti itu, harus dirubah bagaimana?
> Terimakasih
>
>
>
> Regards,
> Yusuf
>
>
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

hendrik karnadi
 Filenya mana ???
Salam,HK
    On Wednesday, 14 February 2018, 10:58:11 AM GMT+7, Stephen Saputro [hidden email] [belajar-excel] <[hidden email]> wrote:  
 
    

Dear Pak Hendrik & semua pakar Excel,
Mohon kiranya dapat di bantu, dari file yang ada ini bisakah di bantu agar data yang di input di userform langsung terkirim ke file master tanpa harus transit lagi di sheet input ?

Terima kasih

2018-02-14 10:42 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>:

    

 Hai Yusuf,Macro yang mana, dibuat seperti apa ?
Salam,HK

    On Wednesday, 14 February 2018, 9:39:36 AM GMT+7, [hidden email] [belajar-excel] <[hidden email] > wrote:  
 
    
Dear Hendrik Karnadi,


Kl macro di buat seperti itu, harus dirubah bagaimana?Terimakasih


Regards,Yusuf    

   

   
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

Stephen Saputro
File nya saya lampirkan lagi ya Pak, hehe


Terima kasih

2018-02-14 11:21 GMT+07:00 hendrik karnadi [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Filenya mana ???
>
> Salam,
> HK
>
> On Wednesday, 14 February 2018, 10:58:11 AM GMT+7, Stephen Saputro
> [hidden email] [belajar-excel] <[hidden email]>
> wrote:
>
>
>
>
> Dear Pak Hendrik & semua pakar Excel,
>
> Mohon kiranya dapat di bantu, *dari file yang ada ini* bisakah di bantu
> agar data yang di input di userform langsung terkirim ke file master tanpa
> harus transit lagi di sheet input ?
>
>
> Terima kasih
>
>
> 2018-02-14 10:42 GMT+07:00 hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email]>:
>
>
>
> Hai Yusuf,
> Macro yang mana, dibuat seperti apa ?
>
> Salam,
> HK
>
>
> On Wednesday, 14 February 2018, 9:39:36 AM GMT+7, [hidden email]
> [belajar-excel] <[hidden email] > wrote:
>
>
>
>
> Dear Hendrik Karnadi,
>
> Kl macro di buat seperti itu, harus dirubah bagaimana?
> Terimakasih
>
>
>
> Regards,
> Yusuf
>
>
>
>

User2.xls (74K) Download Attachment
User3.xls (119K) Download Attachment
Master.xls (30K) Download Attachment
User1.xls (75K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

yusman
In reply to this post by hendrik karnadi
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

hendrik karnadi
In reply to this post by Stephen Saputro
 Coba download dan extract file terlampir ke suatu dir (mis D:\).Hasil extract adalah Master dan User1....untuk User2, User3, dstnya tinggal disesuaikan Macronya seperti Macro pada User1.
Salam, HK

    On Wednesday, 14 February 2018, 4:09:13 PM GMT+7, Stephen Saputro [hidden email] [belajar-excel] <[hidden email]> wrote:  
 
    

File nya saya lampirkan lagi ya Pak, hehe

Terima kasih
2018-02-14 11:21 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>:

    

 Filenya mana ???
Salam,HK
    On Wednesday, 14 February 2018, 10:58:11 AM GMT+7, Stephen Saputro [hidden email] [belajar-excel] <[hidden email] > wrote:  
 
    

Dear Pak Hendrik & semua pakar Excel,
Mohon kiranya dapat di bantu, dari file yang ada ini bisakah di bantu agar data yang di input di userform langsung terkirim ke file master tanpa harus transit lagi di sheet input ?

Terima kasih

2018-02-14 10:42 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email] >:

    

 Hai Yusuf,Macro yang mana, dibuat seperti apa ?
Salam,HK

    On Wednesday, 14 February 2018, 9:39:36 AM GMT+7, [hidden email] [belajar-excel] <[hidden email] > wrote:  
 
    
Dear Hendrik Karnadi,


Kl macro di buat seperti itu, harus dirubah bagaimana?Terimakasih


Regards,Yusuf    

   

   

   

   

=?UTF-8?b?TWFzdGVyX1Jldi5yYXI=?= (21K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

Stephen Saputro
Terima kasih banyak Pak Hendrik untuk bantuannya,

Kalau saya boleh tanya lagi, seandainya nama yang entri di ganti ke sheet
bukan ke workbook, vba yang ThisWrokbook.Name diubah menjadi apa ya Pak?

2018-02-14 16:58 GMT+07:00 hendrik karnadi [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Coba download dan extract file terlampir ke suatu dir (mis D:\).
> Hasil extract adalah Master dan User1....untuk User2, User3, dstnya
> tinggal disesuaikan Macronya seperti Macro pada User1.
>
> Salam,
> HK
>
>
> On Wednesday, 14 February 2018, 4:09:13 PM GMT+7, Stephen Saputro
> [hidden email] [belajar-excel] <[hidden email]>
> wrote:
>
>
>
>
> File nya saya lampirkan lagi ya Pak, hehe
>
>
> Terima kasih
>
> 2018-02-14 11:21 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo...com
> [belajar-excel] <[hidden email]>:
>
>
>
> Filenya mana ???
>
> Salam,
> HK
>
> On Wednesday, 14 February 2018, 10:58:11 AM GMT+7, Stephen Saputro
> [hidden email] [belajar-excel] <[hidden email] >
> wrote:
>
>
>
>
> Dear Pak Hendrik & semua pakar Excel,
>
> Mohon kiranya dapat di bantu, *dari file yang ada ini* bisakah di bantu
> agar data yang di input di userform langsung terkirim ke file master tanpa
> harus transit lagi di sheet input ?
>
>
> Terima kasih
>
>
> 2018-02-14 10:42 GMT+07:00 hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email] >:
>
>
>
> Hai Yusuf,
> Macro yang mana, dibuat seperti apa ?
>
> Salam,
> HK
>
>
> On Wednesday, 14 February 2018, 9:39:36 AM GMT+7, [hidden email]
> [belajar-excel] <[hidden email] > wrote:
>
>
>
>
> Dear Hendrik Karnadi,
>
> Kl macro di buat seperti itu, harus dirubah bagaimana?
> Terimakasih
>
>
>
> Regards,
> Yusuf
>
>
>
>
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

hendrik karnadi
Kalau pake sheet harusnya lebih mudah, yang pasti form inputnya berikut macronya harus pindah dulu ke Workbook Master bukan Workbook User1, User2 dan User3.
Silakan dicoba dulu, kalau sdh mentok bisa dishare mentoknya dimana....dengan begitu ilmu yang kita pelajari akan "melekat" dalam memori kita.
Coba tulis pseudo code ("bahasa manusia") nya dulu.
Salam,HK

Sent from Yahoo Mail on Android
 
  On Wed, Feb 14, 2018 at 18:32, Stephen Saputro [hidden email] [belajar-excel]<[hidden email]> wrote:      

Terima kasih banyak Pak Hendrik untuk bantuannya,
Kalau saya boleh tanya lagi, seandainya nama yang entri di ganti ke sheet bukan ke workbook, vba yang ThisWrokbook.Name diubah menjadi apa ya Pak?
2018-02-14 16:58 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email]>:

    

 Coba download dan extract file terlampir ke suatu dir (mis D:\).Hasil extract adalah Master dan User1....untuk User2, User3, dstnya tinggal disesuaikan Macronya seperti Macro pada User1.
Salam, HK

    On Wednesday, 14 February 2018, 4:09:13 PM GMT+7, Stephen Saputro [hidden email] [belajar-excel] <[hidden email] > wrote:  
 
    

File nya saya lampirkan lagi ya Pak, hehe

Terima kasih
2018-02-14 11:21 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email] >:

    

 Filenya mana ???
Salam,HK
    On Wednesday, 14 February 2018, 10:58:11 AM GMT+7, Stephen Saputro [hidden email] [belajar-excel] <[hidden email] > wrote:  
 
    

Dear Pak Hendrik & semua pakar Excel,
Mohon kiranya dapat di bantu, dari file yang ada ini bisakah di bantu agar data yang di input di userform langsung terkirim ke file master tanpa harus transit lagi di sheet input ?

Terima kasih

2018-02-14 10:42 GMT+07:00 hendrik karnadi [hidden email] [belajar-excel] <[hidden email] >:

    

 Hai Yusuf,Macro yang mana, dibuat seperti apa ?
Salam,HK

    On Wednesday, 14 February 2018, 9:39:36 AM GMT+7, [hidden email] [belajar-excel] <[hidden email] > wrote:  
 
    
Dear Hendrik Karnadi,


Kl macro di buat seperti itu, harus dirubah bagaimana?Terimakasih


Regards,Yusuf    

   

   

   

   

   

  #yiv3231820614 #yiv3231820614 -- #yiv3231820614ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3231820614 #yiv3231820614ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3231820614 #yiv3231820614ygrp-mkp #yiv3231820614hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3231820614 #yiv3231820614ygrp-mkp #yiv3231820614ads {margin-bottom:10px;}#yiv3231820614 #yiv3231820614ygrp-mkp .yiv3231820614ad {padding:0 0;}#yiv3231820614 #yiv3231820614ygrp-mkp .yiv3231820614ad p {margin:0;}#yiv3231820614 #yiv3231820614ygrp-mkp .yiv3231820614ad a {color:#0000ff;text-decoration:none;}#yiv3231820614 #yiv3231820614ygrp-sponsor #yiv3231820614ygrp-lc {font-family:Arial;}#yiv3231820614 #yiv3231820614ygrp-sponsor #yiv3231820614ygrp-lc #yiv3231820614hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3231820614 #yiv3231820614ygrp-sponsor #yiv3231820614ygrp-lc .yiv3231820614ad {margin-bottom:10px;padding:0 0;}#yiv3231820614 #yiv3231820614actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3231820614 #yiv3231820614activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3231820614 #yiv3231820614activity span {font-weight:700;}#yiv3231820614 #yiv3231820614activity span:first-child {text-transform:uppercase;}#yiv3231820614 #yiv3231820614activity span a {color:#5085b6;text-decoration:none;}#yiv3231820614 #yiv3231820614activity span span {color:#ff7900;}#yiv3231820614 #yiv3231820614activity span .yiv3231820614underline {text-decoration:underline;}#yiv3231820614 .yiv3231820614attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3231820614 .yiv3231820614attach div a {text-decoration:none;}#yiv3231820614 .yiv3231820614attach img {border:none;padding-right:5px;}#yiv3231820614 .yiv3231820614attach label {display:block;margin-bottom:5px;}#yiv3231820614 .yiv3231820614attach label a {text-decoration:none;}#yiv3231820614 blockquote {margin:0 0 0 4px;}#yiv3231820614 .yiv3231820614bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3231820614 .yiv3231820614bold a {text-decoration:none;}#yiv3231820614 dd.yiv3231820614last p a {font-family:Verdana;font-weight:700;}#yiv3231820614 dd.yiv3231820614last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3231820614 dd.yiv3231820614last p span.yiv3231820614yshortcuts {margin-right:0;}#yiv3231820614 div.yiv3231820614attach-table div div a {text-decoration:none;}#yiv3231820614 div.yiv3231820614attach-table {width:400px;}#yiv3231820614 div.yiv3231820614file-title a, #yiv3231820614 div.yiv3231820614file-title a:active, #yiv3231820614 div.yiv3231820614file-title a:hover, #yiv3231820614 div.yiv3231820614file-title a:visited {text-decoration:none;}#yiv3231820614 div.yiv3231820614photo-title a, #yiv3231820614 div.yiv3231820614photo-title a:active, #yiv3231820614 div.yiv3231820614photo-title a:hover, #yiv3231820614 div.yiv3231820614photo-title a:visited {text-decoration:none;}#yiv3231820614 div#yiv3231820614ygrp-mlmsg #yiv3231820614ygrp-msg p a span.yiv3231820614yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3231820614 .yiv3231820614green {color:#628c2a;}#yiv3231820614 .yiv3231820614MsoNormal {margin:0 0 0 0;}#yiv3231820614 o {font-size:0;}#yiv3231820614 #yiv3231820614photos div {float:left;width:72px;}#yiv3231820614 #yiv3231820614photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv3231820614 #yiv3231820614photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3231820614 #yiv3231820614reco-category {font-size:77%;}#yiv3231820614 #yiv3231820614reco-desc {font-size:77%;}#yiv3231820614 .yiv3231820614replbq {margin:4px;}#yiv3231820614 #yiv3231820614ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3231820614 #yiv3231820614ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3231820614 #yiv3231820614ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3231820614 #yiv3231820614ygrp-mlmsg select, #yiv3231820614 input, #yiv3231820614 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3231820614 #yiv3231820614ygrp-mlmsg pre, #yiv3231820614 code {font:115% monospace;}#yiv3231820614 #yiv3231820614ygrp-mlmsg * {line-height:1.22em;}#yiv3231820614 #yiv3231820614ygrp-mlmsg #yiv3231820614logo {padding-bottom:10px;}#yiv3231820614 #yiv3231820614ygrp-msg p a {font-family:Verdana;}#yiv3231820614 #yiv3231820614ygrp-msg p#yiv3231820614attach-count span {color:#1E66AE;font-weight:700;}#yiv3231820614 #yiv3231820614ygrp-reco #yiv3231820614reco-head {color:#ff7900;font-weight:700;}#yiv3231820614 #yiv3231820614ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3231820614 #yiv3231820614ygrp-sponsor #yiv3231820614ov li a {font-size:130%;text-decoration:none;}#yiv3231820614 #yiv3231820614ygrp-sponsor #yiv3231820614ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3231820614 #yiv3231820614ygrp-sponsor #yiv3231820614ov ul {margin:0;padding:0 0 0 8px;}#yiv3231820614 #yiv3231820614ygrp-text {font-family:Georgia;}#yiv3231820614 #yiv3231820614ygrp-text p {margin:0 0 1em 0;}#yiv3231820614 #yiv3231820614ygrp-text tt {font-size:120%;}#yiv3231820614 #yiv3231820614ygrp-vital ul li:last-child {border-right:none !important;}#yiv3231820614  
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

Stephen Saputro
Siap Pak,

Akan saya utak atik dulu, kalau udah mentok nanti tanya lagi

Terima kasih ya Pak.



On Wed, Feb 14, 2018 at 11:29 PM, hendrik karnadi [hidden email]
[belajar-excel] <[hidden email]> wrote:

>
>
> Kalau pake sheet harusnya lebih mudah, yang pasti form inputnya berikut
> macronya harus pindah dulu ke Workbook Master bukan Workbook User1, User2
> dan User3.
>
> Silakan dicoba dulu, kalau sdh mentok bisa dishare mentoknya
> dimana....dengan begitu ilmu yang kita pelajari akan "melekat" dalam memori
> kita.
>
> Coba tulis pseudo code ("bahasa manusia") nya dulu...
>
> Salam,
> HK
>
>
> Sent from Yahoo Mail on Android
> <https://overview...mail.yahoo.com/mobile/?.src=Android>
>
> On Wed, Feb 14, 2018 at 18:32, Stephen Saputro [hidden email]
> [belajar-excel]
> <[hidden email]> wrote:
>
>
> Terima kasih banyak Pak Hendrik untuk bantuannya,
>
> Kalau saya boleh tanya lagi, seandainya nama yang entri di ganti ke sheet
> bukan ke workbook, vba yang ThisWrokbook.Name diubah menjadi apa ya Pak?
>
> 2018-02-14 16:58 GMT+07:00 hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email]>:
>
>
>
> Coba download dan extract file terlampir ke suatu dir (mis D:\).
> Hasil extract adalah Master dan User1....untuk User2, User3, dstnya
> tinggal disesuaikan Macronya seperti Macro pada User1.
>
> Salam,
> HK
>
>
> On Wednesday, 14 February 2018, 4:09:13 PM GMT+7, Stephen Saputro
> [hidden email] [belajar-excel] <[hidden email] >
> wrote:
>
>
>
>
> File nya saya lampirkan lagi ya Pak, hehe
>
>
> Terima kasih
>
> 2018-02-14 11:21 GMT+07:00 hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email] >:
>
>
>
> Filenya mana ???
>
> Salam,
> HK
>
> On Wednesday, 14 February 2018, 10:58:11 AM GMT+7, Stephen Saputro
> [hidden email] [belajar-excel] <[hidden email] >
> wrote:
>
>
>
>
> Dear Pak Hendrik & semua pakar Excel,
>
> Mohon kiranya dapat di bantu, *dari file yang ada ini* bisakah di bantu
> agar data yang di input di userform langsung terkirim ke file master tanpa
> harus transit lagi di sheet input ?
>
>
> Terima kasih
>
>
> 2018-02-14 10:42 GMT+07:00 hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email] >:
>
>
>
> Hai Yusuf,
> Macro yang mana, dibuat seperti apa ?
>
> Salam,
> HK
>
>
> On Wednesday, 14 February 2018, 9:39:36 AM GMT+7, [hidden email]
> [belajar-excel] <[hidden email] > wrote:
>
>
>
>
> Dear Hendrik Karnadi,
>
> Kl macro di buat seperti itu, harus dirubah bagaimana?
> Terimakasih
>
>
>
> Regards,
> Yusuf
>
>
>
>
>
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

Sony Ario
Dear Stephen atau y.roni ,

Saya coba bantu sekedarnya dan file user nya sudah saya modifikasi sedikit.
Jadi file user hanya fokus untuk input data saja.
Asumsi saya antara file master dan user berada dalam satu folder.

Maaf kalau masih belum sesuai.

Sony.

*gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*

2018-02-15 16:46 GMT+07:00 Stephen Saputro [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> Siap Pak,
>
> Akan saya utak atik dulu, kalau udah mentok nanti tanya lagi
>
> Terima kasih ya Pak.
>
>
>
> On Wed, Feb 14, 2018 at 11:29 PM, hendrik karnadi [hidden email]
> [belajar-excel] <[hidden email]> wrote:
>
>>
>>
>> Kalau pake sheet harusnya lebih mudah, yang pasti form inputnya berikut
>> macronya harus pindah dulu ke Workbook Master bukan Workbook User1, User2
>> dan User3.
>>
>> Silakan dicoba dulu, kalau sdh mentok bisa dishare mentoknya
>> dimana....dengan begitu ilmu yang kita pelajari akan "melekat" dalam memori
>> kita.
>>
>> Coba tulis pseudo code ("bahasa manusia") nya dulu.
>>
>> Salam,
>> HK
>>
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> On Wed, Feb 14, 2018 at 18:32, Stephen Saputro [hidden email]
>> [belajar-excel]
>> <[hidden email]> wrote:
>>
>>
>> Terima kasih banyak Pak Hendrik untuk bantuannya,
>>
>> Kalau saya boleh tanya lagi, seandainya nama yang entri di ganti ke sheet
>> bukan ke workbook, vba yang ThisWrokbook.Name diubah menjadi apa ya Pak?
>>
>> 2018-02-14 16:58 GMT+07:00 hendrik karnadi [hidden email]
>> [belajar-excel] <[hidden email]>:
>>
>>
>>
>> Coba download dan extract file terlampir ke suatu dir (mis D:\).
>> Hasil extract adalah Master dan User1....untuk User2, User3, dstnya
>> tinggal disesuaikan Macronya seperti Macro pada User1.
>>
>> Salam,
>> HK
>>
>>
>> On Wednesday, 14 February 2018, 4:09:13 PM GMT+7, Stephen Saputro
>> [hidden email] [belajar-excel] <[hidden email]
>> > wrote:
>>
>>
>>
>>
>> File nya saya lampirkan lagi ya Pak, hehe
>>
>>
>> Terima kasih
>>
>> 2018-02-14 11:21 GMT+07:00 hendrik karnadi [hidden email]
>> [belajar-excel] <[hidden email] >:
>>
>>
>>
>> Filenya mana ???
>>
>> Salam,
>> HK
>>
>> On Wednesday, 14 February 2018, 10:58:11 AM GMT+7, Stephen Saputro
>> [hidden email] [belajar-excel] <[hidden email]
>> > wrote:
>>
>>
>>
>>
>> Dear Pak Hendrik & semua pakar Excel,
>>
>> Mohon kiranya dapat di bantu, *dari file yang ada ini* bisakah di bantu
>> agar data yang di input di userform langsung terkirim ke file master tanpa
>> harus transit lagi di sheet input ?
>>
>>
>> Terima kasih
>>
>>
>> 2018-02-14 10:42 GMT+07:00 hendrik karnadi [hidden email]
>> [belajar-excel] <[hidden email] >:
>>
>>
>>
>> Hai Yusuf,
>> Macro yang mana, dibuat seperti apa ?
>>
>> Salam,
>> HK
>>
>>
>> On Wednesday, 14 February 2018, 9:39:36 AM GMT+7, [hidden email]
>> [belajar-excel] <[hidden email] > wrote:
>>
>>
>>
>>
>> Dear Hendrik Karnadi,
>>
>> Kl macro di buat seperti itu, harus dirubah bagaimana?
>> Terimakasih
>>
>>
>>
>> Regards,
>> Yusuf
>>
>>
>>
>>
>>
>
>

MasterUpdate.rar (74K) Download Attachment
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

Kid
Administrator
Hai Sony,

Saya pinjem script-nya untuk bahan belajar bersama ya...

Begini bunyi script karya mas Sony : (sila lihat di file lampiran yang ada
di imil mas Sony ya, karena beberapa baris script dalam image berikut sudah
berupa inline script)


​Konsep yang dipakai mas Sony :
1. ada 3 file user yang akan dikoneksi, maka butuh variabel 3 object con, 3
object rs, 3 string koneksi, 3 string query
    *** jadi ada satu set variabel berupa con, rs, string koneksi, dan
string query
    *** lihat bagian deklarasi
2. setiap set variabel diisi untuk masing-masing file user
    *** lihat baris-baris dari Set con1 sampai sqlstr1
3. setiap con dibuatkan proses koneksinya, yaitu dengan methods Open
    *** lihat baris Con1.open blabla
4. setiap rs diisi denga data hasil query
    *** lihat baris rs1.open blabla
5. setiap data di dalam rs ditulis ke worksheet tujuan di baris baru
    *** lihat baris Range("a2").copyfromrecordset rs1 sampai b=blabla
6. setiap object con dan rs di close dan di-cleanup
    *** lihat baris rs1.close sampai set con3=nothing
Artinya, ada proses berulang sebanyak 3 kali karena ada 3 file user. Yang
berbeda hanyalah nama file user.
*** Lihat baris-baris constr1= sampai constr3=



*>>> Bahan belajar 1 <<<*
Key : Loop bisa mengurangi jumlah baris script dan juga bisa
menyederhanakan proses, sehingga mudah ditelusuri, dipelajari, dan
dikembangkan
A. ada proses berulang 3 kali -> berarti bisa di-loop dari 1 sampai 3
B. butuh banyak variabel tapi hanya beda indeks, yaitu indeks 1 untuk file
1, indeks 2 untuk file 2, dst -> berarti bisa pakai array
C. proses nomor 2 sampai 6 bisa diletakkan di dalam loop
Jadinya begini :


​Catatan :
> deklarasi variabel array bisa dilihat di baris Dim yang pertama, seperti
dim con(1 to 3) as object dan seterusnya
    dibutuhkan juga variabel untuk loop, seperti variabel lProses pada
baris dim lProses as long
> proses membersihkan area hasil dilakukan sebelum proses pengambilan data
    *** lihat baris thisworkbook.blabla
> proses loop dilakukan untuk file 1 sampai 3
    *** lihat blok yang dimulai for lProses sampai next lproses
> di dalam proses loop ada proses yang sama dengan nomor 2 sampai nomor 6
karya mas Sony.

Ok, sampai disini, sudah lebih simpel. Pengubahan dan pengembangan sudah
bisa dilakukan dengan lebih luwes.
btw, cara seperti ini masih kurang wajar.
tapi bisa jadi bahan belajar untuk menyusun proses berulang (loop)



*>>> Bahan belajar 2 <<<*
Key : Pemanfaatan variabel yang baik adalah yang bisa digunakan
berulang-ulang.
Pada kasus ini :
A. yang berubah hanyalah isi dari variabel constr -> variabel constr saja
yang di-loop
B. variabel con, rs, sqlstr bisa dipakai berulang
C. dalam proses loop dari file 1 sampai file 3, dilakukan proses :
     - mengisi constr,
     - buka koneksi dan recordset
     - tulis data yang sudah diambil (yang ada dalam recordset)
     - tutup recordset dan koneksi
D. init con dan rs cukup sekali sebelum loop, begitu juga pengisian bunyi
query ke variabel sqlstr juga cukup sekali karena sama untuk semua file
E. cleanup con dan rs cukup dilakukan sekali, yaitu setelah proses loop
selesai (sebelum keluar dari prosedur)
Jadinya begini :

​Catatan :
- deklarasi variabel con,rs,constr,sqlstr, dan lProses sebagai variabel
skalar saja (tidak perlu array dan tidak perlu ada banyak)
- init con dan rs dilakukan sebelum loop, pengisian sqlstr juga sebelum loop
- blok loop dengan for dari file 1 sampai 3 berisi proses :
   > mengisi constr yang sesuai dengan file yang akan diproses,
   > membuka koneksi (lihat con.open)
   > membuka recordset (lihat rs.open)
   > menulis data dalam recordset ke sheet tujuan di baris baru -> lihat
sheets(bblabla
   > menutup recordset dan koneksi (lihat rs.close dan con.close)
- setelah seluruh proses loop selesai, maka cleanup con dan rs dilakukan

Nah... cara ini sudah wajar dan bisa digunakan untuk berbagai keperluan,
terutama ketika datanya berbeda-beda atau jumlah records setiap hasil query
sangat banyak yang dikuatirkan tidak muat jika digabung
Contoh ini menjadi bahan belajar tentang memilih bagian yang cocok untuk
diproses dalam loop.
btw, untuk data yang memiliki keseragaman dan tidak terlalu banyak
records-nya, bisa jadi cara ini masih kurang efisien.



*>>> Bahan belajar 3 <<<*
Key : Mengoptimumkan query lebih terasa manfaatnya
A. Prosesnya adalah menggabungkan setiap data yang memiliki kolom yang sama
(jumlah kolom dan tipe data setiap kolom antar dataset yang digabung) ->
query UNION ALL
B. Kaidah dasar query select bagian FROM :
         FROM [database].[tabel]
C. syntax umum query UNION [ALL]
                             SELECT columns FROM dataset_1
     UNION [ALL]   SELECT columns FROM dataset_2
     .
     .
     UNION [ALL]   SELECT columns FROM dataset_N
D. Untuk dataset yang fix dan tidak banyak, bisa tanpa loop
Jadinya begini :


​Catatan :
- dataset tidak banyak dan fix, yaitu file 1 sampai file 3, maka query bisa
disusun seperti pada bagian ' >> susun query union all << '
- variabel constr diisi dengan connection string ke sebuah dataset tertentu
   *** pada contoh di atas, constr diisi untuk koneksi ke file 1, tetapi
bisa juga diset untuk koneksi ke file lain

Contoh ini bisa menjadi gambaran awal tentang manfaat query.



*>>> Bahan belajar 4 <<<*
Key : optimumkan kemampuan object
A. variabel object con yang diisi dengan object ADODB Connection memiliki
kemampuan untuk menghasilkan recordset melalui methods Execute
B. proses pada kasus ini tidak terlalu butuh kemampuan object ADODB
Recordset, jadi object recordset bisa dibuang
Jadinya begini :


​Catatan :
- Tidak ada deklarasi variabel rs, maka tidak ada penggunaan object rs
- Methods Execute milik object ADODB Connection dapat menghasilkan recordset
- Hasil Execute bisa langsung dipakai dalam penulisan hasil pengambilan
data dari query union all (sqlstr)
   *** lihat baris Sheets(blablabla

hmmm...
sudah cukup banyak hal yang bisa dipelajari...


btw,
bagaimana jika ada 12 file ?
capek menyusun sqlstr-nya ya...
hehehe...
gimana kalau jadi pe er sajah...
yang berminat, bisa mencoba berkreasi dan kirim ke milis ya...
jangan malu untuk posting ya.. kalo belajar saja malu, akibatnya bakal
malu-maluin disaat bertemu masalah beneran

met bermain...
sorry, scripts-nya dibuat sendiri saja ya...
lagi mode pelit ijin copas n ijin download file nih
wkwkwkwk... biar pada tambah pinter

Regards,
Kid









2018-02-16 10:17 GMT+07:00 Sony Ario [hidden email] [belajar-excel] <
[hidden email]>:

>
>
> Dear Stephen atau y.roni ,
>
> Saya coba bantu sekedarnya dan file user nya sudah saya modifikasi
> sedikit. Jadi file user hanya fokus untuk input data saja.
> Asumsi saya antara file master dan user berada dalam satu folder.
>
> Maaf kalau masih belum sesuai.
>
> Sony.
>
> *gnl-excelinfo.blogspot.co.id <http://gnl-excelinfo.blogspot.co.id>*
>
> 2018-02-15 16:46 GMT+07:00 Stephen Saputro [hidden email]
> [belajar-excel] <[hidden email]>:
>
>>
>>
>> Siap Pak,
>>
>> Akan saya utak atik dulu, kalau udah mentok nanti tanya lagi
>>
>> Terima kasih ya Pak.
>>
>>
>>
>> On Wed, Feb 14, 2018 at 11:29 PM, hendrik karnadi
>> [hidden email] [belajar-excel] <[hidden email]>
>> wrote:
>>
>>>
>>>
>>> Kalau pake sheet harusnya lebih mudah, yang pasti form inputnya berikut
>>> macronya harus pindah dulu ke Workbook Master bukan Workbook User1, User2
>>> dan User3.
>>>
>>> Silakan dicoba dulu, kalau sdh mentok bisa dishare mentoknya
>>> dimana....dengan begitu ilmu yang kita pelajari akan "melekat" dalam memori
>>> kita.
>>>
>>> Coba tulis pseudo code ("bahasa manusia") nya dulu.
>>>
>>> Salam,
>>> HK
>>>
>>>
>>> Sent from Yahoo Mail on Android
>>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>>
>>> On Wed, Feb 14, 2018 at 18:32, Stephen Saputro [hidden email]
>>> [belajar-excel]
>>> <[hidden email]> wrote:
>>>
>>>
>>> Terima kasih banyak Pak Hendrik untuk bantuannya,
>>>
>>> Kalau saya boleh tanya lagi, seandainya nama yang entri di ganti ke
>>> sheet bukan ke workbook, vba yang ThisWrokbook.Name diubah menjadi apa ya
>>> Pak?
>>>
>>> 2018-02-14 16:58 GMT+07:00 hendrik karnadi [hidden email]
>>> [belajar-excel] <[hidden email]>:
>>>
>>>
>>>
>>> Coba download dan extract file terlampir ke suatu dir (mis D:\).
>>> Hasil extract adalah Master dan User1....untuk User2, User3, dstnya
>>> tinggal disesuaikan Macronya seperti Macro pada User1.
>>>
>>> Salam,
>>> HK
>>>
>>>
>>> On Wednesday, 14 February 2018, 4:09:13 PM GMT+7, Stephen Saputro
>>> [hidden email] [belajar-excel] <[hidden email]
>>> > wrote:
>>>
>>>
>>>
>>>
>>> File nya saya lampirkan lagi ya Pak, hehe
>>>
>>>
>>> Terima kasih
>>>
>>> 2018-02-14 11:21 GMT+07:00 hendrik karnadi [hidden email]
>>> [belajar-excel] <[hidden email] >:
>>>
>>>
>>>
>>> Filenya mana ???
>>>
>>> Salam,
>>> HK
>>>
>>> On Wednesday, 14 February 2018, 10:58:11 AM GMT+7, Stephen Saputro
>>> [hidden email] [belajar-excel] <[hidden email]
>>> > wrote:
>>>
>>>
>>>
>>>
>>> Dear Pak Hendrik & semua pakar Excel,
>>>
>>> Mohon kiranya dapat di bantu, *dari file yang ada ini* bisakah di bantu
>>> agar data yang di input di userform langsung terkirim ke file master tanpa
>>> harus transit lagi di sheet input ?
>>>
>>>
>>> Terima kasih
>>>
>>>
>>> 2018-02-14 10:42 GMT+07:00 hendrik karnadi [hidden email]
>>> [belajar-excel] <[hidden email] >:
>>>
>>>
>>>
>>> Hai Yusuf,
>>> Macro yang mana, dibuat seperti apa ?
>>>
>>> Salam,
>>> HK
>>>
>>>
>>> On Wednesday, 14 February 2018, 9:39:36 AM GMT+7, [hidden email]
>>> [belajar-excel] <[hidden email] > wrote:
>>>
>>>
>>>
>>>
>>> Dear Hendrik Karnadi,
>>>
>>> Kl macro di buat seperti itu, harus dirubah bagaimana?
>>> Terimakasih
>>>
>>>
>>>
>>> Regards,
>>> Yusuf
>>>
>>>
>>>
>>>
>>>
>>
>
>

script03.gif (49K) Download Attachment
script04.gif (50K) Download Attachment
script02.gif (54K) Download Attachment
script05.gif (45K) Download Attachment
script01.gif (77K) Download Attachment
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] Re: Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

yusman
Pelajaran yang bagus, bisa menambah referensi,, terimakasih buat semua
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Re: Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

Stephen Saputro
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 [hidden email] [belajar-excel] <
[hidden email]>:

>
>
> Pelajaran yang bagus, bisa menambah referensi,, terimakasih buat semua
>
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Re: Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

hendrik karnadi
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
 
  On Mon, Feb 26, 2018 at 11:23, Stephen Saputro [hidden email] [belajar-excel]<[hidden email]> 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 [hidden email] [belajar-excel] <[hidden email]>:

    
Pelajaran yang bagus, bisa menambah referensi,, terimakasih buat semua
   

  #yiv5456734646 #yiv5456734646 -- #yiv5456734646ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5456734646 #yiv5456734646ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5456734646 #yiv5456734646ygrp-mkp #yiv5456734646hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5456734646 #yiv5456734646ygrp-mkp #yiv5456734646ads {margin-bottom:10px;}#yiv5456734646 #yiv5456734646ygrp-mkp .yiv5456734646ad {padding:0 0;}#yiv5456734646 #yiv5456734646ygrp-mkp .yiv5456734646ad p {margin:0;}#yiv5456734646 #yiv5456734646ygrp-mkp .yiv5456734646ad a {color:#0000ff;text-decoration:none;}#yiv5456734646 #yiv5456734646ygrp-sponsor #yiv5456734646ygrp-lc {font-family:Arial;}#yiv5456734646 #yiv5456734646ygrp-sponsor #yiv5456734646ygrp-lc #yiv5456734646hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5456734646 #yiv5456734646ygrp-sponsor #yiv5456734646ygrp-lc .yiv5456734646ad {margin-bottom:10px;padding:0 0;}#yiv5456734646 #yiv5456734646actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5456734646 #yiv5456734646activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5456734646 #yiv5456734646activity span {font-weight:700;}#yiv5456734646 #yiv5456734646activity span:first-child {text-transform:uppercase;}#yiv5456734646 #yiv5456734646activity span a {color:#5085b6;text-decoration:none;}#yiv5456734646 #yiv5456734646activity span span {color:#ff7900;}#yiv5456734646 #yiv5456734646activity span .yiv5456734646underline {text-decoration:underline;}#yiv5456734646 .yiv5456734646attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5456734646 .yiv5456734646attach div a {text-decoration:none;}#yiv5456734646 .yiv5456734646attach img {border:none;padding-right:5px;}#yiv5456734646 .yiv5456734646attach label {display:block;margin-bottom:5px;}#yiv5456734646 .yiv5456734646attach label a {text-decoration:none;}#yiv5456734646 blockquote {margin:0 0 0 4px;}#yiv5456734646 .yiv5456734646bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5456734646 .yiv5456734646bold a {text-decoration:none;}#yiv5456734646 dd.yiv5456734646last p a {font-family:Verdana;font-weight:700;}#yiv5456734646 dd.yiv5456734646last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5456734646 dd.yiv5456734646last p span.yiv5456734646yshortcuts {margin-right:0;}#yiv5456734646 div.yiv5456734646attach-table div div a {text-decoration:none;}#yiv5456734646 div.yiv5456734646attach-table {width:400px;}#yiv5456734646 div.yiv5456734646file-title a, #yiv5456734646 div.yiv5456734646file-title a:active, #yiv5456734646 div.yiv5456734646file-title a:hover, #yiv5456734646 div.yiv5456734646file-title a:visited {text-decoration:none;}#yiv5456734646 div.yiv5456734646photo-title a, #yiv5456734646 div.yiv5456734646photo-title a:active, #yiv5456734646 div.yiv5456734646photo-title a:hover, #yiv5456734646 div.yiv5456734646photo-title a:visited {text-decoration:none;}#yiv5456734646 div#yiv5456734646ygrp-mlmsg #yiv5456734646ygrp-msg p a span.yiv5456734646yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5456734646 .yiv5456734646green {color:#628c2a;}#yiv5456734646 .yiv5456734646MsoNormal {margin:0 0 0 0;}#yiv5456734646 o {font-size:0;}#yiv5456734646 #yiv5456734646photos div {float:left;width:72px;}#yiv5456734646 #yiv5456734646photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv5456734646 #yiv5456734646photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5456734646 #yiv5456734646reco-category {font-size:77%;}#yiv5456734646 #yiv5456734646reco-desc {font-size:77%;}#yiv5456734646 .yiv5456734646replbq {margin:4px;}#yiv5456734646 #yiv5456734646ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5456734646 #yiv5456734646ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5456734646 #yiv5456734646ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5456734646 #yiv5456734646ygrp-mlmsg select, #yiv5456734646 input, #yiv5456734646 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5456734646 #yiv5456734646ygrp-mlmsg pre, #yiv5456734646 code {font:115% monospace;}#yiv5456734646 #yiv5456734646ygrp-mlmsg * {line-height:1.22em;}#yiv5456734646 #yiv5456734646ygrp-mlmsg #yiv5456734646logo {padding-bottom:10px;}#yiv5456734646 #yiv5456734646ygrp-msg p a {font-family:Verdana;}#yiv5456734646 #yiv5456734646ygrp-msg p#yiv5456734646attach-count span {color:#1E66AE;font-weight:700;}#yiv5456734646 #yiv5456734646ygrp-reco #yiv5456734646reco-head {color:#ff7900;font-weight:700;}#yiv5456734646 #yiv5456734646ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5456734646 #yiv5456734646ygrp-sponsor #yiv5456734646ov li a {font-size:130%;text-decoration:none;}#yiv5456734646 #yiv5456734646ygrp-sponsor #yiv5456734646ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5456734646 #yiv5456734646ygrp-sponsor #yiv5456734646ov ul {margin:0;padding:0 0 0 8px;}#yiv5456734646 #yiv5456734646ygrp-text {font-family:Georgia;}#yiv5456734646 #yiv5456734646ygrp-text p {margin:0 0 1em 0;}#yiv5456734646 #yiv5456734646ygrp-text tt {font-size:120%;}#yiv5456734646 #yiv5456734646ygrp-vital ul li:last-child {border-right:none !important;}#yiv5456734646  
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Re: Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

Stephen Saputro
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 [hidden email]
[belajar-excel] <[hidden email]> 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 [hidden email]
> [belajar-excel]
> <[hidden email]> 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 [hidden email] [belajar-excel] <
> [hidden email]>:
>
>
>
> Pelajaran yang bagus, bisa menambah referensi,, terimakasih buat semua
>
>
>
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Re: Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

hendrik karnadi
Hai Stephen,Jika diassumsikan ActiveWorkbook.Path = "D:\SS" makaWorkbooks..Open fileku, "D:\SS\Master Test2.xls:" diganti dengan :Workbooks.Open fileku & "\" & "Master Test2.xls"Selamat mencoba.
Salam,
HK


Sent from Yahoo Mail on Android
 
  On Mon, Feb 26, 2018 at 20:07, Stephen Saputro [hidden email] [belajar-excel]<[hidden email]> wrote:      

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 LongDim fileku As StringDim wb As Workbook
Application.ScreenUpdating = Falsefileku = ActiveWorkbook.Pathrc = ActiveSheet.UsedRange.Rows.Count
Workbooks.Open fileku, "D:\SS\Master Test2.xls:"Set wb = ActiveWorkbookrc = ActiveSheet.UsedRange.Rows.CountWith 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 entryEnd With
wb.Savewb.Close 'tutup workbook masterApplication.ScreenUpdating = TrueUnload MeEntry_Form.ShowEnd Sub
On Mon, Feb 26, 2018 at 11:48 AM, hendrik karnadi [hidden email] [belajar-excel] <[hidden email]> 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
 
  On Mon, Feb 26, 2018 at 11:23, Stephen Saputro [hidden email] [belajar-excel]<[hidden email] > 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 [hidden email] [belajar-excel] <[hidden email] >:

    
Pelajaran yang bagus, bisa menambah referensi,, terimakasih buat semua
   

   


   

  #yiv8575045297 #yiv8575045297 -- #yiv8575045297ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8575045297 #yiv8575045297ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8575045297 #yiv8575045297ygrp-mkp #yiv8575045297hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8575045297 #yiv8575045297ygrp-mkp #yiv8575045297ads {margin-bottom:10px;}#yiv8575045297 #yiv8575045297ygrp-mkp .yiv8575045297ad {padding:0 0;}#yiv8575045297 #yiv8575045297ygrp-mkp .yiv8575045297ad p {margin:0;}#yiv8575045297 #yiv8575045297ygrp-mkp .yiv8575045297ad a {color:#0000ff;text-decoration:none;}#yiv8575045297 #yiv8575045297ygrp-sponsor #yiv8575045297ygrp-lc {font-family:Arial;}#yiv8575045297 #yiv8575045297ygrp-sponsor #yiv8575045297ygrp-lc #yiv8575045297hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8575045297 #yiv8575045297ygrp-sponsor #yiv8575045297ygrp-lc .yiv8575045297ad {margin-bottom:10px;padding:0 0;}#yiv8575045297 #yiv8575045297actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8575045297 #yiv8575045297activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8575045297 #yiv8575045297activity span {font-weight:700;}#yiv8575045297 #yiv8575045297activity span:first-child {text-transform:uppercase;}#yiv8575045297 #yiv8575045297activity span a {color:#5085b6;text-decoration:none;}#yiv8575045297 #yiv8575045297activity span span {color:#ff7900;}#yiv8575045297 #yiv8575045297activity span .yiv8575045297underline {text-decoration:underline;}#yiv8575045297 .yiv8575045297attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8575045297 .yiv8575045297attach div a {text-decoration:none;}#yiv8575045297 .yiv8575045297attach img {border:none;padding-right:5px;}#yiv8575045297 .yiv8575045297attach label {display:block;margin-bottom:5px;}#yiv8575045297 .yiv8575045297attach label a {text-decoration:none;}#yiv8575045297 blockquote {margin:0 0 0 4px;}#yiv8575045297 .yiv8575045297bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8575045297 .yiv8575045297bold a {text-decoration:none;}#yiv8575045297 dd.yiv8575045297last p a {font-family:Verdana;font-weight:700;}#yiv8575045297 dd.yiv8575045297last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8575045297 dd.yiv8575045297last p span.yiv8575045297yshortcuts {margin-right:0;}#yiv8575045297 div.yiv8575045297attach-table div div a {text-decoration:none;}#yiv8575045297 div.yiv8575045297attach-table {width:400px;}#yiv8575045297 div.yiv8575045297file-title a, #yiv8575045297 div.yiv8575045297file-title a:active, #yiv8575045297 div.yiv8575045297file-title a:hover, #yiv8575045297 div.yiv8575045297file-title a:visited {text-decoration:none;}#yiv8575045297 div.yiv8575045297photo-title a, #yiv8575045297 div.yiv8575045297photo-title a:active, #yiv8575045297 div.yiv8575045297photo-title a:hover, #yiv8575045297 div.yiv8575045297photo-title a:visited {text-decoration:none;}#yiv8575045297 div#yiv8575045297ygrp-mlmsg #yiv8575045297ygrp-msg p a span.yiv8575045297yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8575045297 .yiv8575045297green {color:#628c2a;}#yiv8575045297 .yiv8575045297MsoNormal {margin:0 0 0 0;}#yiv8575045297 o {font-size:0;}#yiv8575045297 #yiv8575045297photos div {float:left;width:72px;}#yiv8575045297 #yiv8575045297photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv8575045297 #yiv8575045297photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8575045297 #yiv8575045297reco-category {font-size:77%;}#yiv8575045297 #yiv8575045297reco-desc {font-size:77%;}#yiv8575045297 .yiv8575045297replbq {margin:4px;}#yiv8575045297 #yiv8575045297ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8575045297 #yiv8575045297ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8575045297 #yiv8575045297ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8575045297 #yiv8575045297ygrp-mlmsg select, #yiv8575045297 input, #yiv8575045297 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8575045297 #yiv8575045297ygrp-mlmsg pre, #yiv8575045297 code {font:115% monospace;}#yiv8575045297 #yiv8575045297ygrp-mlmsg * {line-height:1.22em;}#yiv8575045297 #yiv8575045297ygrp-mlmsg #yiv8575045297logo {padding-bottom:10px;}#yiv8575045297 #yiv8575045297ygrp-msg p a {font-family:Verdana;}#yiv8575045297 #yiv8575045297ygrp-msg p#yiv8575045297attach-count span {color:#1E66AE;font-weight:700;}#yiv8575045297 #yiv8575045297ygrp-reco #yiv8575045297reco-head {color:#ff7900;font-weight:700;}#yiv8575045297 #yiv8575045297ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8575045297 #yiv8575045297ygrp-sponsor #yiv8575045297ov li a {font-size:130%;text-decoration:none;}#yiv8575045297 #yiv8575045297ygrp-sponsor #yiv8575045297ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8575045297 #yiv8575045297ygrp-sponsor #yiv8575045297ov ul {margin:0;padding:0 0 0 8px;}#yiv8575045297 #yiv8575045297ygrp-text {font-family:Georgia;}#yiv8575045297 #yiv8575045297ygrp-text p {margin:0 0 1em 0;}#yiv8575045297 #yiv8575045297ygrp-text tt {font-size:120%;}#yiv8575045297 #yiv8575045297ygrp-vital ul li:last-child {border-right:none !important;}#yiv8575045297  
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] Re: Link Antar Workbook Saat di Edit & di Hapus Akan Berubah

Kid
Administrator
In reply to this post by Stephen Saputro
Hai Saputro,

Proses belajar ada baiknya berusaha menghindari Copy Paste contoh. Alangkah
baiknya diketik sendiri saja setiap barisnya, agar bisa lebih cepat paham.

Apakah ketika akan mempelajari vLookUp cukup dengan Copy Paste ?
Bukankah ketika mengetik =vLookUp( maka akan ada hal baru yang bisa
didapatkan ?
Contohnya begini ketika mengetikkan =vLookUp(

​Bukankah tooltips yang muncul TIDAK patut untuk diabaikan ?
Dengan tidak mengabaikan tooltip yang muncul, maka proses belajar menjadi
berlipat kali lebih cepat untuk menuju paham.


Begitu juga ketika di dalam VBA, bukankah ketika mengetikkan (BUKAN COPY
PASTE) workbooks.open akan tampak seperti ini :

​Tooltips yang muncul begitu panjangnya itu BUKANLAH hiasan supaya tampak
keren loh...
Tapi memang tooltips seperti itu untuk yang beneran mau belajar kok...

*** Catatan untuk yang targetnya adalah cepat bisa menggunakan Excel maupun
VBA
Record Macro dan Copy Paste contoh yang ada BUKANLAH untuk pemula atau yang
sedang berusaha untuk kenal
Andai berhasrat untuk kenal apalagi sampai paham, pliis bingitz,
bersedialah untuk tidak Record Macro maupun Copy Paste.
Supaya bertemu dengan tooltips yang akan mempercepat proses belajar.

Bisa menggunakan akan mempercepat penyelesaian suatu masalah, karena akan
mengurangi waktu terbuang menunggu reply dari BeExceller lain..

Regards,
Kid

















2018-02-26 16:39 GMT+07:00 Stephen Saputro [hidden email]
[belajar-excel] <[hidden email]>:

>
>
> 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 [hidden email]
> [belajar-excel] <[hidden email]> 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 [hidden email]
>> [belajar-excel]
>> <[hidden email]> 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 [hidden email] [belajar-excel] <
>> [hidden email]>:
>>
>>
>>
>> Pelajaran yang bagus, bisa menambah referensi,, terimakasih buat semua
>>
>>
>>
>
>

xl028_fn01vba.gif (11K) Download Attachment
xl028_fn02xlfn.gif (3K) Download Attachment
12