Jumat, 28 Februari 2014

[belajar-excel] Digest Number 2807

3 Messages

Digest #2807
2
DATA GABUNGAN by "Eko Noviyanto" nopenk77
3
Re: DATA GABUNGAN [1 Attachment] by "Hendrik Karnadi" hendrikkarnadi

Messages

Fri Feb 28, 2014 12:59 am (PST) . Posted by:

"Jan Raisin"

pak Haris,

coba dibaca kembali email balasan dari mr Kid sebelumnya, ini saya kutipkan
secara lengkap:

<Quote>
hehehe...
kira-kira bunyi script yang Anda gunakan seperti apa ?

Misal ada file bernama Contoh1.xlsx di drive D pada folder bernama Belajar
(pastikan ada file excel bernama contoh1.xlsx dulu ya)
Lalu buat file excel baru, dan bisa di-save misal dengan nama Filenya
dengan type Excel Macro Enabled workbook (.xlsm)
Kemudian dibuat sebuah prosedur sub bernama BukaFile pada sebuah general
module (code module)
Prosedur tersebut diisi dengan script :

dim wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
wbkapp.activate

sehingga bunyi prosedur sub bernama BukaFile menjadi :
public sub BukaFile()

dim wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
wbkapp.activate
end sub

Demikian contoh filenya.

Wassalam,
Kid.
</Quote>

petunjuknya ada di tulisan yang dimerahin ^_^

jika memakai tombol yang terletak di suatu form atau sheet, maka script
yang di dalam tombol tersebut isinya adalah perintah memanggil prosedur
yang tadi ditulis di modul
kira2 bunyinya seperti ini

Call nama_prosedurnya

Wassalam,

-Miss Jan Raisin-

Pada 28 Februari 2014 14.33, Haris Rifai <haris.rifai@yahoo.co.id> menulis:

>
>
> Dear Mis. Jan Raisin.
>
> Sudah saya coba arahan dari Mis. Jan, tapi hasilnya masih sama yaitu file
> yang saya buka hanya nongol di taskbar tidak terbuka langsung, saya coba
> klik pada taskbar tetep aza ga kebuka.
> ini script yang saya buat pada commond button "DATABASE";
>
> Private Sub DataBase_Click()
> Dim wbkApp As Workbook, wbktarget As Workbook
> Set wbkApp = ThisWorkbook
> Set wbktarget = Workbooks.Open("J:&#92;Belajar VBA\Coba1.xlsx",2)
> ActiveWorkbook.Sheet("DATABASE").Activate
> End Sub
>
> terimakasih.
> haris
>
>
>

Fri Feb 28, 2014 1:34 am (PST) . Posted by:

"Eko Noviyanto" nopenk77

Dear Master XL,

Mohon bantuannya untuk file terlampir, dimana yang menjadi pertanyaan adalah menggabungkan data dari 2 sheet menjadi 1 sheet.

Teriimakasih atas bantuannya.

Salam,

Nopenk

Fri Feb 28, 2014 1:50 am (PST) . Posted by:

"Hendrik Karnadi" hendrikkarnadi

Pak Eko,
Coba cari di arsip milis, kayaknya ada beberapa kali muncul dalam milis, salah satunya dari Mr.Kid.

Salam,
HK

Sent from Samsung MobileEko Noviyanto <eko_ny77@yahoo.co.id> wrote:Dear Master XL,

Mohon bantuannya untuk file terlampir, dimana yang menjadi pertanyaan adalah menggabungkan data dari 2 sheet menjadi 1 sheet.

Teriimakasih atas bantuannya.

Salam,
Nopenk
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
READ MORE....

[smf_addin] Digest Number 2985

8 Messages

Digest #2985

Messages

Thu Feb 27, 2014 6:19 am (PST) . Posted by:

rr76012

Randy, I found this conversation very useful. 2/27/2014


I am glad you explained how to replace older versions of smf-elements-5.txt.


I thought replacing the older smf folder automatically did all this, it turns out you need to update individual files occasionally.


Thanks for pointing this out.


Randy, Have a great week.


rr76012

Thu Feb 27, 2014 9:44 am (PST) . Posted by:

kevin_k_hatch

I am trying to use the RCHGetElementNumber() function to create some quick financial models using Google's data. Unfortunately there is no element number for accumulated depreciation or Net Property and Equipment for the balance sheets. How can I get this data to pull?

Thu Feb 27, 2014 9:55 am (PST) . Posted by:

"Randy Harmelink" rharmelink

Just use the RCHGetTableCell() function. For example:

=RCHGetTableCell("http://www.google.com/finance?fstype=ii&q=MMM",1,">Accumulated
Depreciation")

On Thu, Feb 27, 2014 at 8:42 AM, <kevin_k_hatch@yahoo.com> wrote:

>
> I am trying to use the RCHGetElementNumber() function to create some quick
> financial models using Google's data. Unfortunately there is no element
> number for accumulated depreciation or Net Property and Equipment for the
> balance sheets. How can I get this data to pull?
>

Thu Feb 27, 2014 1:42 pm (PST) . Posted by:

kevin_k_hatch

This works great for pulling the quarterly data, what alterations would you have to make in order to pull the annual data?

Thu Feb 27, 2014 2:12 pm (PST) . Posted by:

kevin_k_hatch

Thanks! I am new to using the addin and am trying to figure things out still. One problem I have with that equation is that it pulls data off the quarterly page and not the annual. Is there another find parameter that must be added to pull the annual data?

Thu Feb 27, 2014 3:50 pm (PST) . Posted by:

"Randy Harmelink" rharmelink

All three financial statements, annually and quarterly, are in the source
code of that same web page. The "links" you click on just change which
sections are hidden and which is display. For the annual balance sheet
data, you need to add another parameter to position the add-in just in
front of the annual data, before searching for line items within it:

=RCHGetTableCell("http://www.google.com/finance?fstype=ii&q=MMM",1,"BALANNUALDIV&quot;,">Accumulated
Depreciation")

On Thu, Feb 27, 2014 at 3:12 PM, <kevin_k_hatch@yahoo.com> wrote:

>
> Thanks! I am new to using the addin and am trying to figure things out
> still. One problem I have with that equation is that it pulls data off the
> quarterly page and not the annual. Is there another find parameter that
> must be added to pull the annual data?
>

Thu Feb 27, 2014 3:38 pm (PST) . Posted by:

"ALVARO PENA" mitresourcesinc


I am trying to find the Element Number for a stock Last Price. There is one from MSN but says Obsolete. Could you please help?
Thanks & regards,
Alvaro Pena
>
>
>

Thu Feb 27, 2014 3:41 pm (PST) . Posted by:

"Randy Harmelink" rharmelink

See:
https://groups.yahoo.com/neo/groups/smf_addin/conversations/messages/25385

On Thu, Feb 27, 2014 at 3:42 PM, ALVARO PENA <pena.alvaro@icloud.com> wrote:

>
> I am trying to find the Element Number for a stock Last Price. There is
> one from MSN but says Obsolete. Could you please help?
>
READ MORE....

Kamis, 27 Februari 2014

[belajar-excel] Digest Number 2806

15 Messages

Digest #2806
1a
Bagaimana Formula pindah kolom -terlampir by "Didin Rahardian" drahadian_adit
4a
Re: Emailing: Analisasinyal.xlsx by "nangAgus" nangagoez
4c
Re: Emailing: Analisasinyal.xlsx by "nangAgus" nangagoez

Messages

Thu Feb 27, 2014 6:25 am (PST) . Posted by:

"Didin Rahardian" drahadian_adit

Dear Master Excel,,,

Bagaimana Formula/rumus seperti contoh terlampir.

terima kasih

Didin

Thu Feb 27, 2014 6:42 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Mungkin maksudnya disalin ke kolom D dibaris yang kolom B nya berisi POT.
Di D2 diberi formula :
=C3*(B2="POT")

Wassalam,
Kid.

2014-02-27 21:25 GMT+07:00 Didin Rahardian <drahadian_adit@yahoo.com>:

>
>
> Dear Master Excel,,,
>
> Bagaimana Formula/rumus seperti contoh terlampir.
>
> terima kasih
>
> Didin
>
>
>
>

Thu Feb 27, 2014 6:45 am (PST) . Posted by:

"utthank abe" abe_utthank

kalau polanya tetap kayak gitu
=IF(B2="pot";C3;"")
tarik ke bawah

2014-02-27 22:25 GMT+08:00 Didin Rahardian <drahadian_adit@yahoo.com>:

>
>
> Dear Master Excel,,,
>
> Bagaimana Formula/rumus seperti contoh terlampir.
>
> terima kasih
>
> Didin
>
>
>
>

--
R125

Thu Feb 27, 2014 6:14 pm (PST) . Posted by:

"Haris Rifai" haris.rifai

Selamat pagi Mr. Kid.

Terimaksih arahanya.
Sudah saya coba dan berhasil, tapi mo nanya lagi nih Mr. Kid.

File yang sudah tebuka kenapa tidak langsung nongol di monitor ya... saya tau kalo file tersebut sudah terbuka saat saya open manual dari windows explorer, disitu muncul pertanyaan apakah kita mau re-open file Coba2.

1. Bagaimana coding yang mesti saya buat agar proses open file bisa langsung nongol di layar file yang kita buka tersebut seperti kita buka file dari windows explorer.
Kalo bisa langsung ke sheet yang kita inginkan gimana codingnya.

2. Mr. Kid jelasin kalo angka "2" yang ada sebelum kurung tutup artinya file yang kita buka tidak melakukan edit link, bagaimana klo kita ingin file yang kita buka melakukan edit link.

Terimakasih.
Haris

Pada Kamis, 27 Februari 2014 15:45, Mr. Kid <mr.nmkid@gmail.com> menulis:

 
hehehe...
kira-kira bunyi script yang Anda gunakan seperti apa ?

Misal ada file bernama Contoh1.xlsx di drive D pada folder bernama Belajar (pastikan ada file excel bernama contoh1.xlsx dulu ya)

Lalu buat file excel baru, dan bisa di-save misal dengan nama Filenya dengan type Excel Macro Enabled workbook (.xlsm)
Kemudian dibuat sebuah prosedur sub bernama BukaFile pada sebuah general module (code module)
Prosedur tersebut diisi dengan script :
dim wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
wbkapp.activate

sehingga bunyi prosedur sub bernama BukaFile menjadi :

public sub BukaFile()
   dim wbkApp as workbook, wbkTarget as workbook
   set wbkapp=thisworkbook
   set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
   wbkapp.activate

end sub

Demikian contoh filenya.

Wassalam,

Kid.

2014-02-27 15:36 GMT+07:00 Krisan Flower <krisan_flower@rocketmail.com>:


>Salam, Mr Kid,
>
>Sory ikut nimbrung saya sedang coba2 dari masalah yang disajikan Pak haris,
>saya coba kenapa masih error Pak Kid. Bisa gak disertakan dengan contoh.
>
>Terimaksih.
>
>Krisan
>
>
>
>
>
>
>Pada Kamis, 27 Februari 2014 15:55, Mr. Kid <mr.nmkid@gmail.com> menulis:
>

>Hai Haris,
>
>1. set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA&#92;COBA2",2)
>>> set wbktarget=workbooks.open("J:\BelajarVBA\COBA2.xlsx",2)
>>> nama drive ditulis seperti J:\ diikuti folder dan seterusnya
>>> nama file disertai ekstensi filenya yang dapat dilihat saat membuka file tersebut di Excel atau di Windows Explorer.
>
>> nilai 2 pada ,2 berarti tidak melakukan update link
>
>3. setelah bisa membuka workbook, maka pelajari cara menyusun item pilihan dalam combobox mulai dari sini.
>
>
>
>Wassalam,
>
>Kid.
>
>
>
>
>
>
>2014-02-27 8:37 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>
>
>> 
>>Dear Mr. Kid.
>>
>>
>>Terimaksih atas arahanya.
>>
>>
>>Untuk nomor 1.
>>Saya sudah coba seperti ini pada point membuka workbook;
>>set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA&#92;COBA2",2)
>>
>>
>>Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
>>Mungkin kesalahan pada penulisan script alamat file, karena memang saya belum tau bagaimana cara penulisannya.
>>
>>
>>File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA&quot;. Berada satu folder dengan file kerjanya (userform).
>>
>>
>>Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung penutup, apa arti angka tersebut Mr. Kid.
>>
>>
>>Untuk nomor 3.
>>Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari suatu file dengan cara klik pada sebuah commond button.
>>Misalnya sheet tersebut berada di partisi/drive "D" pada folder "BelajarVBA&quot; nama file "Coba3" sheet "Database";. Bagaimana coding yang harus saya tuliskan pada commond button yang saya maksud.
>>
>>
>>Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
>>Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan harapan minimal bisa buat referensi bagi para pemula seperti saya.
>>
>>
>>Terimakasih.
>>
>>
>>Haris.
>>
>>
>>
>>Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.com> menulis:
>>
>> 
>>Wa&#39;alaikumussalam Wr. Wb.
>>
>>Hai Haris,
>>
>>1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file yang berbeda.
>>>> sebelum proses save, lakukan kegiatan membuka file target
>>dim wbkApp as workbook, wbkTarget as workbook
>>set wbkapp=thisworkbook
>>set wbktarget=workbooks.open( "alamat lengkap si file target",2)
>>
>>wbkapp.activate
>>
>>
>>
>>>> proses penulisan ke sebuah cell target ditambahkan dengan object workbook target dan sheet targetnya
>>
>>wbktarget.sheets("nama sheet target").range("alamat range target").value = txtIsian1.text     'misalnya
>>
>>'dst
>>
>>
>>>> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
>>
>>application.displayalerts=false
>>
>>wbktarget.close true
>>
>>application.displayalerts=true
>>
>>
>>2. Kalau data dari "Combobox"; berada di file yang berbeda bagaimana penulisan coding untuk memanggilnya.
>>
>>>> Hal ini dilakukan saat akan membuka userform
>>
>>>> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource (properti listfillrange jika activex object ada dalam worksheet)
>>
>>>> cara 2, buka file sumber lalu baca setiap item sumber sembari menambahkan ke combobox.
>>
>>
>>Cara buka file sumber : (mirip nomor 2)
>>
>>dim wbkApp as workbook, wbkSumber as workbook
>>
>>set wbkapp=thisworkbook
>>
>>set wbksumber = workbooks.open( "alamat lengkap si file target",2)
>>
>>wbkapp.activate
>>
>>
>>Cara copy item set sumber
>>
>>wbksumber.sheets("sumbernya").range("alamat range si items sumber").copy
>>
>>with wbkapp.sheets("lokasi di file kerja").range("alamat range si items di lokasi kerja")
>>     .clearcontents
>>     .resize(1,1).pastespecial xlpastevalues
>>
>>end with
>>
>>
>>Kalau buka lalu add satu-satu :
>>
>>dim rng as range
>>
>>with cboDiUserform
>>
>>  .listindex=-1
>>  .clear
>>
>>  for each rng in wbksumber.sheets("sumbernya&quot;).range("alamat range si items sumber").resize(,1).offset(1)  'offset 1 kalau ada headernya
>>
>>      if len(rng,value)<>0 then
>>
>>           .add rng.value
>>
>>     endif
>>
>>  next rng
>>end with
>>
>>
>>3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet yang berisi data dari isi Combobox yang saya maksud di atas bagaimana coding yang harus saya buat.
>>
>>>> masih belum paham maksudnya
>>
>>
>>
>>
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>
>>
>>
>>
>>2014-02-22 14:38 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>>
>>
>>> 
>>>Assalamu&#39;alaikum.
>>>
>>>
>>>Salam BeXceler.
>>>
>>>
>>>Dear master excel.
>>>Mohon arahnnya lagi nih...
>>>Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan pada file excel yang berbeda dari file tempat Userform berada.
>>>
>>>
>>>Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>>>
>>>
>>>wassalam.
>>>Haris.
>>
>>
>>
>
>
>

Thu Feb 27, 2014 8:36 pm (PST) . Posted by:

"Jan Raisin"

izin ikutan ya..

agar file langsung terbuka dan merujuk ke sheet tertentu yang telah
ditentukan maka script yang ini
wbkapp.activate
harus diganti menjadi
ActiveWorkbook.Sheet("nama_sheetnya&quot;).Activate

Untuk melakukan update saat Open workbook seharusnya nilai untuk updatenya
adalah 3, dan jika tidak ingin melakukan update maka nilainya harus 0,

cmiiw

Wassalam,

-Miss Jan Raisin-

Pada 28 Februari 2014 08.57, Haris Rifai <haris.rifai@yahoo.co.id> menulis:

>
>
> Selamat pagi Mr. Kid.
>
> Terimaksih arahanya.
> Sudah saya coba dan berhasil, tapi mo nanya lagi nih Mr. Kid.
>
> File yang sudah tebuka kenapa tidak langsung nongol di monitor ya... saya
> tau kalo file tersebut sudah terbuka saat saya open manual dari windows
> explorer, disitu muncul pertanyaan apakah kita mau re-open file Coba2.
>
> 1. Bagaimana coding yang mesti saya buat agar proses open file bisa
> langsung nongol di layar file yang kita buka tersebut seperti kita buka
> file dari windows explorer.
> Kalo bisa langsung ke sheet yang kita inginkan gimana codingnya.
>
> 2. Mr. Kid jelasin kalo angka "2" yang ada sebelum kurung tutup artinya
> file yang kita buka tidak melakukan edit link, bagaimana klo kita ingin
> file yang kita buka melakukan edit link.
>
>
> Terimakasih.
> Haris
>
>
>
>
> Pada Kamis, 27 Februari 2014 15:45, Mr. Kid <mr.nmkid@gmail.com>
> menulis:
>
> hehehe...
> kira-kira bunyi script yang Anda gunakan seperti apa ?
>
> Misal ada file bernama Contoh1.xlsx di drive D pada folder bernama Belajar
> (pastikan ada file excel bernama contoh1.xlsx dulu ya)
> Lalu buat file excel baru, dan bisa di-save misal dengan nama Filenya
> dengan type Excel Macro Enabled workbook (.xlsm)
> Kemudian dibuat sebuah prosedur sub bernama BukaFile pada sebuah general
> module (code module)
> Prosedur tersebut diisi dengan script :
> dim wbkApp as workbook, wbkTarget as workbook
> set wbkapp=thisworkbook
> set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
> wbkapp.activate
>
> sehingga bunyi prosedur sub bernama BukaFile menjadi :
> public sub BukaFile()
> dim wbkApp as workbook, wbkTarget as workbook
> set wbkapp=thisworkbook
> set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
> wbkapp.activate
> end sub
>
> Demikian contoh filenya.
>
> Wassalam,
> Kid.
>
>
>
>
> 2014-02-27 15:36 GMT+07:00 Krisan Flower <krisan_flower@rocketmail.com>:
>
>
> Salam, Mr Kid,
>
> Sory ikut nimbrung saya sedang coba2 dari masalah yang disajikan Pak haris,
> saya coba kenapa masih error Pak Kid. Bisa gak disertakan dengan contoh.
>
> Terimaksih.
>
> Krisan
>
>
>
> Pada Kamis, 27 Februari 2014 15:55, Mr. Kid <mr.nmkid@gmail.com>
> menulis:
>
> Hai Haris,
>
> 1. set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA&#92;COBA2",2)
> >> set wbktarget=workbooks.open("J:\BelajarVBA\COBA2.xlsx",2)
> >> nama drive ditulis seperti J:\ diikuti folder dan seterusnya
> >> nama file disertai ekstensi filenya yang dapat dilihat saat membuka
> file tersebut di Excel atau di Windows Explorer.
> >> nilai 2 pada ,2 berarti tidak melakukan update link
>
> 3. setelah bisa membuka workbook, maka pelajari cara menyusun item pilihan
> dalam combobox mulai dari sini<http://b-excel.blogspot.com/2014/02/belajarvba-102-combobox-01.html>
> .
>
> Wassalam,
> Kid.
>
>
>
> 2014-02-27 8:37 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>
>
> Dear Mr. Kid.
>
> Terimaksih atas arahanya.
>
> Untuk nomor 1.
> Saya sudah coba seperti ini pada point membuka workbook;
> set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA&#92;COBA2",2)
>
> Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
> Mungkin kesalahan pada penulisan script alamat file, karena memang saya
> belum tau bagaimana cara penulisannya.
>
> File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA&quot;.
> Berada satu folder dengan file kerjanya (userform).
>
> Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung
> penutup, apa arti angka tersebut Mr. Kid.
>
> Untuk nomor 3.
> Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari
> suatu file dengan cara klik pada sebuah commond button.
> Misalnya sheet tersebut berada di partisi/drive "D" pada folder
> "BelajarVBA&quot; nama file "Coba3" sheet "Database";. Bagaimana coding yang
> harus saya tuliskan pada commond button yang saya maksud.
>
> Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
> Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan
> harapan minimal bisa buat referensi bagi para pemula seperti saya.
>
> Terimakasih.
>
> Haris.
>
>
> Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.com>
> menulis:
>
> Wa'alaikumussalam Wr. Wb.
>
> Hai Haris,
>
> 1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file
> yang berbeda.
> >> sebelum proses save, lakukan kegiatan membuka file target
> dim wbkApp as workbook, wbkTarget as workbook
> set wbkapp=thisworkbook
> set wbktarget=workbooks.open( "alamat lengkap si file target",2)
> wbkapp.activate
>
> >> proses penulisan ke sebuah cell target ditambahkan dengan object
> workbook target dan sheet targetnya
> wbktarget.sheets("nama sheet target").range("alamat range target").value =
> txtIsian1.text 'misalnya
> 'dst
>
> >> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
> application.displayalerts=false
> wbktarget.close true
> application.displayalerts=true
>
> 2. Kalau data dari "Combobox"; berada di file yang berbeda bagaimana
> penulisan coding untuk memanggilnya.
> >> Hal ini dilakukan saat akan membuka userform
> >> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam
> userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource
> (properti listfillrange jika activex object ada dalam worksheet)
> >> cara 2, buka file sumber lalu baca setiap item sumber sembari
> menambahkan ke combobox.
>
> Cara buka file sumber : (mirip nomor 2)
> dim wbkApp as workbook, wbkSumber as workbook
> set wbkapp=thisworkbook
> set wbksumber = workbooks.open( "alamat lengkap si file target",2)
> wbkapp.activate
>
> Cara copy item set sumber
> wbksumber.sheets("sumbernya&quot;).range("alamat range si items sumber").copy
> with wbkapp.sheets("lokasi di file kerja").range("alamat range si items di
> lokasi kerja")
> .clearcontents
> .resize(1,1).pastespecial xlpastevalues
> end with
>
> Kalau buka lalu add satu-satu :
> dim rng as range
> with cboDiUserform
> .listindex=-1
> .clear
> for each rng in wbksumber.sheets("sumbernya&quot;).range("alamat range si
> items sumber").resize(,1).offset(1) 'offset 1 kalau ada headernya
> if len(rng,value)<>0 then
> .add rng.value
> endif
> next rng
> end with
>
> 3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet
> yang berisi data dari isi Combobox yang saya maksud di atas bagaimana
> coding yang harus saya buat.
> >> masih belum paham maksudnya
>
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014-02-22 14:38 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>
>
> Assalamu'alaikum.
>
> Salam BeXceler.
>
> Dear master excel.
> Mohon arahnnya lagi nih...
> Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan
> pada file excel yang berbeda dari file tempat Userform berada.
>
> Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>
> wassalam.
> Haris.
>
>
>
>
>
>
>
>
>
>
>
>

Thu Feb 27, 2014 10:06 pm (PST) . Posted by:

"Haris Rifai" haris.rifai

ok Miss. Jan.... matur tengkiu...

Langsung tak jajal implem ke userform niich..

wassalam
haris

Pada Jumat, 28 Februari 2014 11:36, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

 
izin ikutan ya..

agar file langsung terbuka dan merujuk ke sheet tertentu yang telah ditentukan maka script yang ini
wbkapp.activate

harus diganti menjadi
ActiveWorkbook.Sheet("nama_sheetnya&quot;).Activate

Untuk melakukan update saat Open workbook seharusnya nilai untuk updatenya adalah 3, dan jika tidak ingin melakukan update maka nilainya harus 0,

cmiiw

Wassalam,

-Miss Jan Raisin-

Pada 28 Februari 2014 08.57, Haris Rifai <haris.rifai@yahoo.co.id> menulis:


>Selamat pagi Mr. Kid.
>
>
>Terimaksih arahanya.
>Sudah saya coba dan berhasil, tapi mo nanya lagi nih Mr. Kid.
>
>
>File yang sudah tebuka kenapa tidak langsung nongol di monitor ya... saya tau kalo file tersebut sudah terbuka saat saya open manual dari windows explorer, disitu muncul pertanyaan apakah kita mau re-open file Coba2.
>
>
>1. Bagaimana coding yang mesti saya buat agar proses open file bisa langsung nongol di layar file yang kita buka tersebut seperti kita buka file dari windows explorer.
>Kalo bisa langsung ke sheet yang kita inginkan gimana codingnya.
>
>
>2. Mr. Kid jelasin kalo angka "2" yang ada sebelum kurung tutup artinya file yang kita buka tidak melakukan edit link, bagaimana klo kita ingin file yang kita buka melakukan edit link.
>
>
>
>
>Terimakasih.
>Haris
>
>
>
>
>
>
>
>Pada Kamis, 27 Februari 2014 15:45, Mr. Kid <mr.nmkid@gmail.com> menulis:
>

>hehehe...
>kira-kira bunyi script yang Anda gunakan seperti apa ?
>
>Misal ada file bernama Contoh1.xlsx di drive D pada folder bernama Belajar (pastikan ada file excel bernama contoh1.xlsx dulu ya)
>
>Lalu buat file excel baru, dan bisa di-save misal dengan nama Filenya dengan type Excel Macro Enabled workbook (.xlsm)
>Kemudian dibuat sebuah prosedur sub bernama BukaFile pada sebuah general module (code module)
>Prosedur tersebut diisi dengan script :
>dim wbkApp as workbook, wbkTarget as workbook
>set wbkapp=thisworkbook
>set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
>wbkapp.activate
>
>
>
>sehingga bunyi prosedur sub bernama BukaFile menjadi :
>
>public sub BukaFile()
>   dim wbkApp as workbook, wbkTarget as workbook
>   set wbkapp=thisworkbook
>   set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
>   wbkapp.activate
>
>end sub
>
>
>
>Demikian contoh filenya.
>
>
>
>Wassalam,
>
>Kid.
>
>
>
>
>
>
>
>2014-02-27 15:36 GMT+07:00 Krisan Flower <krisan_flower@rocketmail.com>:
>
>
>> 
>>Salam, Mr Kid,
>>
>>Sory ikut nimbrung saya sedang coba2 dari masalah yang disajikan Pak haris,
>>saya coba kenapa masih error Pak Kid. Bisa gak disertakan dengan contoh.
>>
>>Terimaksih.
>>
>>Krisan
>>
>>
>>
>>
>>
>>
>>Pada Kamis, 27 Februari 2014 15:55, Mr. Kid <mr.nmkid@gmail.com> menulis:
>>
>> 
>>Hai Haris,
>>
>>1. set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA&#92;COBA2",2)
>>>> set wbktarget=workbooks.open("J:\BelajarVBA\COBA2.xlsx",2)
>>>> nama drive ditulis seperti J:\ diikuti folder dan seterusnya
>>>> nama file disertai ekstensi filenya yang dapat dilihat saat membuka file tersebut di Excel atau di Windows Explorer.
>>
>> nilai 2 pada ,2 berarti tidak melakukan update link
>>
>>3. setelah bisa membuka workbook, maka pelajari cara menyusun item pilihan dalam combobox mulai dari sini.
>>
>>
>>
>>Wassalam,
>>
>>Kid.
>>
>>
>>
>>
>>
>>
>>2014-02-27 8:37 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>>
>>
>>> 
>>>Dear Mr. Kid.
>>>
>>>
>>>Terimaksih atas arahanya.
>>>
>>>
>>>Untuk nomor 1.
>>>Saya sudah coba seperti ini pada point membuka workbook;
>>>set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA&#92;COBA2",2)
>>>
>>>
>>>Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
>>>Mungkin kesalahan pada penulisan script alamat file, karena memang saya belum tau bagaimana cara penulisannya.
>>>
>>>
>>>File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA&quot;. Berada satu folder dengan file kerjanya (userform).
>>>
>>>
>>>Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung penutup, apa arti angka tersebut Mr. Kid.
>>>
>>>
>>>Untuk nomor 3.
>>>Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari suatu file dengan cara klik pada sebuah commond button.
>>>Misalnya sheet tersebut berada di partisi/drive "D" pada folder "BelajarVBA&quot; nama file "Coba3" sheet "Database";. Bagaimana coding yang harus saya tuliskan pada commond button yang saya maksud.
>>>
>>>
>>>Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
>>>Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan harapan minimal bisa buat referensi bagi para pemula seperti saya.
>>>
>>>
>>>Terimakasih.
>>>
>>>
>>>Haris.
>>>
>>>
>>>
>>>Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.com> menulis:
>>>
>>> 
>>>Wa'alaikumussalam Wr. Wb.
>>>
>>>Hai Haris,
>>>
>>>1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file yang berbeda.
>>>>> sebelum proses save, lakukan kegiatan membuka file target
>>>dim wbkApp as workbook, wbkTarget as workbook
>>>set wbkapp=thisworkbook
>>>set wbktarget=workbooks.open( "alamat lengkap si file target",2)
>>>
>>>wbkapp.activate
>>>
>>>
>>>
>>>>> proses penulisan ke sebuah cell target ditambahkan dengan object workbook target dan sheet targetnya
>>>
>>>wbktarget.sheets("nama sheet target").range("alamat range target").value = txtIsian1.text     'misalnya
>>>
>>>'dst
>>>
>>>
>>>>> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
>>>
>>>application.displayalerts=false
>>>
>>>wbktarget.close true
>>>
>>>application.displayalerts=true
>>>
>>>
>>>2. Kalau data dari "Combobox"; berada di file yang berbeda bagaimana penulisan coding untuk memanggilnya.
>>>
>>>>> Hal ini dilakukan saat akan membuka userform
>>>
>>>>> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource (properti listfillrange jika activex object ada dalam worksheet)
>>>
>>>>> cara 2, buka file sumber lalu baca setiap item sumber sembari menambahkan ke combobox.
>>>
>>>
>>>Cara buka file sumber : (mirip nomor 2)
>>>
>>>dim wbkApp as workbook, wbkSumber as workbook
>>>
>>>set wbkapp=thisworkbook
>>>
>>>set wbksumber = workbooks.open( "alamat lengkap si file target",2)
>>>
>>>wbkapp.activate
>>>
>>>
>>>Cara copy item set sumber
>>>
>>>wbksumber.sheets("sumbernya").range("alamat range si items sumber").copy
>>>
>>>with wbkapp.sheets("lokasi di file kerja").range("alamat range si items di lokasi kerja")
>>>     .clearcontents
>>>     .resize(1,1).pastespecial xlpastevalues
>>>
>>>end with
>>>
>>>
>>>Kalau buka lalu add satu-satu :
>>>
>>>dim rng as range
>>>
>>>with cboDiUserform
>>>
>>>  .listindex=-1
>>>  .clear
>>>
>>>  for each rng in wbksumber.sheets("sumbernya&quot;).range("alamat range si items sumber").resize(,1).offset(1)  'offset 1 kalau ada headernya
>>>
>>>      if len(rng,value)<>0 then
>>>
>>>           .add rng.value
>>>
>>>     endif
>>>
>>>  next rng
>>>end with
>>>
>>>
>>>3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet yang berisi data dari isi Combobox yang saya maksud di atas bagaimana coding yang harus saya buat.
>>>
>>>>> masih belum paham maksudnya
>>>
>>>
>>>
>>>
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>2014-02-22 14:38 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>>>
>>>
>>>
>>>>Assalamu&#39;alaikum.
>>>>
>>>>
>>>>Salam BeXceler.
>>>>
>>>>
>>>>Dear master excel.
>>>>Mohon arahnnya lagi nih...
>>>>Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan pada file excel yang berbeda dari file tempat Userform berada.
>>>>
>>>>
>>>>Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>>>>
>>>>
>>>>wassalam.
>>>>Haris.
>>>
>>>
>>>
>>
>>
>>
>
>
>

Thu Feb 27, 2014 11:35 pm (PST) . Posted by:

"Haris Rifai" haris.rifai

Dear Mis. Jan Raisin.

Sudah saya coba arahan dari Mis. Jan, tapi hasilnya masih sama yaitu file yang saya buka hanya nongol di taskbar tidak terbuka langsung, saya coba klik pada taskbar tetep aza ga kebuka.
ini script yang saya buat pada commond button "DATABASE";

Private Sub DataBase_Click(
          Dim wbkApp As Workbook, wbktarget As Workbook
          Set wbkApp = ThisWorkbook
          Set wbktarget = Workbooks.Open("J:&#92;Belajar VBA\Coba1.xlsx",2) 
  ActiveWorkbook.Sheet("DATABASE").Activate
        End Sub

terimakasih.
haris

Pada Jumat, 28 Februari 2014 13:07, Haris Rifai <haris.rifai@yahoo.co.id> menulis:

 
ok Miss. Jan.... matur tengkiu...

Langsung tak jajal implem ke userform niich..

wassalam
haris

Pada Jumat, 28 Februari 2014 11:36, Jan Raisin <miss.jan.raisin@gmail.com> menulis:

 
izin ikutan ya..

agar file langsung terbuka dan merujuk ke sheet tertentu yang telah ditentukan maka script yang ini
wbkapp.activate

harus diganti menjadi
ActiveWorkbook.Sheet("nama_sheetnya&quot;).Activate

Untuk melakukan update saat Open workbook seharusnya nilai untuk updatenya adalah 3, dan jika tidak ingin melakukan update maka nilainya harus 0,

cmiiw

Wassalam,

-Miss Jan Raisin-

Pada 28 Februari 2014 08.57, Haris Rifai <haris.rifai@yahoo.co.id> menulis:


>Selamat pagi Mr. Kid.
>
>
>Terimaksih arahanya.
>Sudah saya coba dan berhasil, tapi mo nanya lagi nih Mr. Kid.
>
>
>File yang sudah tebuka kenapa tidak langsung nongol di monitor ya... saya tau kalo file tersebut sudah terbuka saat saya open manual dari windows explorer, disitu muncul pertanyaan apakah kita mau re-open file Coba2.
>
>
>1. Bagaimana coding yang mesti saya buat agar proses open file bisa langsung nongol di layar file yang kita buka tersebut seperti kita buka file dari windows explorer.
>Kalo bisa langsung ke sheet yang kita inginkan gimana codingnya.
>
>
>2. Mr. Kid jelasin kalo angka "2" yang ada sebelum kurung tutup artinya file yang kita buka tidak melakukan edit link, bagaimana klo kita ingin file yang kita buka melakukan edit link.
>
>
>
>
>Terimakasih.
>Haris
>
>
>
>
>
>
>
>Pada Kamis, 27 Februari 2014 15:45, Mr. Kid <mr.nmkid@gmail.com> menulis:
>

>hehehe...
>kira-kira bunyi script yang Anda gunakan seperti apa ?
>
>Misal ada file bernama Contoh1.xlsx di drive D pada folder bernama Belajar (pastikan ada file excel bernama contoh1.xlsx dulu ya)
>
>Lalu buat file excel baru, dan bisa di-save misal dengan nama Filenya dengan type Excel Macro Enabled workbook (.xlsm)
>Kemudian dibuat sebuah prosedur sub bernama BukaFile pada sebuah general module (code module)
>Prosedur tersebut diisi dengan script :
>dim wbkApp as workbook, wbkTarget as workbook
>set wbkapp=thisworkbook
>set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
>wbkapp.activate
>
>
>
>sehingga bunyi prosedur sub bernama BukaFile menjadi :
>
>public sub BukaFile()
>   dim wbkApp as workbook, wbkTarget as workbook
>   set wbkapp=thisworkbook
>   set wbktarget=workbooks.open( "d:\belajar&#92;contoh1.xlsx",2)
>   wbkapp.activate
>
>end sub
>
>
>
>Demikian contoh filenya.
>
>
>
>Wassalam,
>
>Kid.
>
>
>
>
>
>
>
>2014-02-27 15:36 GMT+07:00 Krisan Flower <krisan_flower@rocketmail.com>:
>
>
>> 
>>Salam, Mr Kid,
>>
>>Sory ikut nimbrung saya sedang coba2 dari masalah yang disajikan Pak haris,
>>saya coba kenapa masih error Pak Kid. Bisa gak disertakan dengan contoh.
>>
>>Terimaksih.
>>
>>Krisan
>>
>>
>>
>>
>>
>>
>>Pada Kamis, 27 Februari 2014 15:55, Mr. Kid <mr.nmkid@gmail.com> menulis:
>>
>> 
>>Hai Haris,
>>
>>1. set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA&#92;COBA2",2)
>>>> set wbktarget=workbooks.open("J:\BelajarVBA\COBA2.xlsx",2)
>>>> nama drive ditulis seperti J:\ diikuti folder dan seterusnya
>>>> nama file disertai ekstensi filenya yang dapat dilihat saat membuka file tersebut di Excel atau di Windows Explorer.
>>
>> nilai 2 pada ,2 berarti tidak melakukan update link
>>
>>3. setelah bisa membuka workbook, maka pelajari cara menyusun item pilihan dalam combobox mulai dari sini.
>>
>>
>>
>>Wassalam,
>>
>>Kid.
>>
>>
>>
>>
>>
>>
>>2014-02-27 8:37 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>>
>>
>>> 
>>>Dear Mr. Kid.
>>>
>>>
>>>Terimaksih atas arahanya.
>>>
>>>
>>>Untuk nomor 1.
>>>Saya sudah coba seperti ini pada point membuka workbook;
>>>set wbktarget=workbooks.open("DATA (J:)\\BelajarVBA&#92;COBA2",2)
>>>
>>>
>>>Tapi saat dijalankan muncul debug yang mengarah pada script tersebut,
>>>Mungkin kesalahan pada penulisan script alamat file, karena memang saya belum tau bagaimana cara penulisannya.
>>>
>>>
>>>File yang saya maksud ada di partisi/drive "D" pada folder "BelajarVBA&quot;. Berada satu folder dengan file kerjanya (userform).
>>>
>>>
>>>Dalam penulisan alamat file target terdpat angka "2" sebelum tanda kurung penutup, apa arti angka tersebut Mr. Kid.
>>>
>>>
>>>Untuk nomor 3.
>>>Yang saya maksud adalah saya ingin membuka/menampilkan sebuah sheet dari suatu file dengan cara klik pada sebuah commond button.
>>>Misalnya sheet tersebut berada di partisi/drive "D" pada folder "BelajarVBA&quot; nama file "Coba3" sheet "Database";. Bagaimana coding yang harus saya tuliskan pada commond button yang saya maksud.
>>>
>>>
>>>Mohon maaf klo saya kurang bisa cepat faham, tapi saya pengen bisa.
>>>Insya Allah saya akan share aplikasi vba yang sedang saya buat, dengan harapan minimal bisa buat referensi bagi para pemula seperti saya.
>>>
>>>
>>>Terimakasih.
>>>
>>>
>>>Haris.
>>>
>>>
>>>
>>>Pada Sabtu, 22 Februari 2014 15:44, Mr. Kid <mr.nmkid@gmail.com> menulis:
>>>
>>> 
>>>Wa'alaikumussalam Wr. Wb.
>>>
>>>Hai Haris,
>>>
>>>1. Bagaimana caranya (teknis & coding) bila sheet DATABASE berada di file yang berbeda.
>>>>> sebelum proses save, lakukan kegiatan membuka file target
>>>dim wbkApp as workbook, wbkTarget as workbook
>>>set wbkapp=thisworkbook
>>>set wbktarget=workbooks.open( "alamat lengkap si file target",2)
>>>
>>>wbkapp.activate
>>>
>>>
>>>
>>>>> proses penulisan ke sebuah cell target ditambahkan dengan object workbook target dan sheet targetnya
>>>
>>>wbktarget.sheets("nama sheet target").range("alamat range target").value = txtIsian1.text     'misalnya
>>>
>>>'dst
>>>
>>>
>>>>> selesai tulis, lakukan penyimpanan file target dan tutup sekalian
>>>
>>>application.displayalerts=false
>>>
>>>wbktarget.close true
>>>
>>>application.displayalerts=true
>>>
>>>
>>>2. Kalau data dari "Combobox"; berada di file yang berbeda bagaimana penulisan coding untuk memanggilnya.
>>>
>>>>> Hal ini dilakukan saat akan membuka userform
>>>
>>>>> cara 1, salin datanya dari file sumber ke file kerja lalu gunakan dalam userform. Cara ini dimungkinkan untuk bisa menggunakan properti rowsource (properti listfillrange jika activex object ada dalam worksheet)
>>>
>>>>> cara 2, buka file sumber lalu baca setiap item sumber sembari menambahkan ke combobox.
>>>
>>>
>>>Cara buka file sumber : (mirip nomor 2)
>>>
>>>dim wbkApp as workbook, wbkSumber as workbook
>>>
>>>set wbkapp=thisworkbook
>>>
>>>set wbksumber = workbooks.open( "alamat lengkap si file target",2)
>>>
>>>wbkapp.activate
>>>
>>>
>>>Cara copy item set sumber
>>>
>>>wbksumber.sheets("sumbernya").range("alamat range si items sumber").copy
>>>
>>>with wbkapp.sheets("lokasi di file kerja").range("alamat range si items di lokasi kerja")
>>>     .clearcontents
>>>     .resize(1,1).pastespecial xlpastevalues
>>>
>>>end with
>>>
>>>
>>>Kalau buka lalu add satu-satu :
>>>
>>>dim rng as range
>>>
>>>with cboDiUserform
>>>
>>>  .listindex=-1
>>>  .clear
>>>
>>>  for each rng in wbksumber.sheets("sumbernya&quot;).range("alamat range si items sumber").resize(,1).offset(1)  'offset 1 kalau ada headernya
>>>
>>>      if len(rng,value)<>0 then
>>>
>>>           .add rng.value
>>>
>>>     endif
>>>
>>>  next rng
>>>end with
>>>
>>>
>>>3. Kalo pada UserForm saya tambahkan CommandButton untuk meng-edit sheet yang berisi data dari isi Combobox yang saya maksud di atas bagaimana coding yang harus saya buat.
>>>
>>>>> masih belum paham maksudnya
>>>
>>>
>>>
>>>
>>>
>>>Wassalam,
>>>Kid.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>2014-02-22 14:38 GMT+07:00 Haris Rifai <haris.rifai@yahoo.co.id>:
>>>
>>>
>>>
>>>>Assalamu&#39;alaikum.
>>>>
>>>>
>>>>Salam BeXceler.
>>>>
>>>>
>>>>Dear master excel.
>>>>Mohon arahnnya lagi nih...
>>>>Bagaimana caranya jika kita ingin data hasil input pada UserForm disimpan pada file excel yang berbeda dari file tempat Userform berada.
>>>>
>>>>
>>>>Untuk memperjelas apa yang saya maksud berikut saya lampirkan file-nya.
>>>>
>>>>
>>>>wassalam.
>>>>Haris.
>>>
>>>
>>>
>>
>>
>>
>
>
>

Thu Feb 27, 2014 6:18 pm (PST) . Posted by:

"Jan Raisin"

Thread ini 3 hari belum ada yang menanggapi,

setelah Jan buka filenya ternyata scriptnya masih kosong, baru ada script
untuk Show dan Hide saja.. hiks T_T

Sambil menunggu Be-Exceller lain yang mungkin ada yang berbaik hati untuk
membuatkan scriptnya, silakan coba cari di arsip milis tentang Input Data
menggunakan macro,

Alternatif lain bisa menggunakan Data Form bawaan Excel yang bisa langsung
melakukan Add, Edit, dan Delete data tanpa harus bersusah payah bikin
scriptnya dulu.
tampilannya seperti gambar di bawah ini:
[image: Gambar sisip 1]

Lalu untuk menampilkan tiap tanggal ke masing2 sheet yang berbeda bisa
memanfaatkan fitur Pivot Table (tidak perlu tulis script lagi). Kalo
pengen dibuat otomatisnya, bisa menggunakan proses rekam macro (cara ini
berhasil untuk Jan yang tidak memiliki basic di bidang IT tetapi ingin bisa
nulis script sendiri)

maaf kalo solusi yang ditawarkan tidak sesuai dengan harapan.

Wassalam,

-Miss Jan Raisin-

Pada 25 Februari 2014 14.53, <dayatshogun46@yahoo.co.id> menulis:

>
>
> Dear sobat-sobat Be-Exceller (Edited by Momod)
>
> Selamat sore sobat excel yang sedang siap-siap pulang dari rutinitas
> harian,
> Moga sore ini tidak banyak pekerjaan yang memusingkan kalian itu karena
> bantuan dari milis belajar excel (Edited by Momod) ini.
>
> Denan ini saya mohon bantuannya untuk menyempurnakan data user form yang
> saya buat, mungkin saya masih baru dan begitu kurang paham mengenai bahasa
> macro, tapi saya sudah siapkan data yang sebisa mungkin saya buat di user
> form ini, namun mentok di bahasa lainnya, mohon bantuannya.
>
> Salam
> Dayat
> Powered by Telkomsel BlackBerry®
>
> ----- Mods -----
> sebutan member milis ini adalah Be-Exceller
> nama milis ini adalah Belajar Excel
> semoga selanjutnya tidak salah sebut dengan milis sebelah
> ___________
>
>
>

Thu Feb 27, 2014 10:07 pm (PST) . Posted by:

dayatshogun46

Terimakasih mis Jan saya coba dulu
Powered by Telkomsel BlackBerry�

-----Original Message-----
From: Jan Raisin <miss.jan.raisin@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Fri, 28 Feb 2014 09:18:06
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] User form input, edit data

Thread ini 3 hari belum ada yang menanggapi,

setelah Jan buka filenya ternyata scriptnya masih kosong, baru ada script
untuk Show dan Hide saja.. hiks T_T

Sambil menunggu Be-Exceller lain yang mungkin ada yang berbaik hati untuk
membuatkan scriptnya, silakan coba cari di arsip milis tentang Input Data
menggunakan macro,

Alternatif lain bisa menggunakan Data Form bawaan Excel yang bisa langsung
melakukan Add, Edit, dan Delete data tanpa harus bersusah payah bikin
scriptnya dulu.
tampilannya seperti gambar di bawah ini:
[image: Gambar sisip 1]

Lalu untuk menampilkan tiap tanggal ke masing2 sheet yang berbeda bisa
memanfaatkan fitur Pivot Table (tidak perlu tulis script lagi). Kalo
pengen dibuat otomatisnya, bisa menggunakan proses rekam macro (cara ini
berhasil untuk Jan yang tidak memiliki basic di bidang IT tetapi ingin bisa
nulis script sendiri)

maaf kalo solusi yang ditawarkan tidak sesuai dengan harapan.

Wassalam,

-Miss Jan Raisin-



Pada 25 Februari 2014 14.53, <dayatshogun46@yahoo.co.id> menulis:

>
>
> Dear sobat-sobat Be-Exceller (Edited by Momod)
>
> Selamat sore sobat excel yang sedang siap-siap pulang dari rutinitas
> harian,
> Moga sore ini tidak banyak pekerjaan yang memusingkan kalian itu karena
> bantuan dari milis belajar excel (Edited by Momod) ini.
>
> Denan ini saya mohon bantuannya untuk menyempurnakan data user form yang
> saya buat, mungkin saya masih baru dan begitu kurang paham mengenai bahasa
> macro, tapi saya sudah siapkan data yang sebisa mungkin saya buat di user
> form ini, namun mentok di bahasa lainnya, mohon bantuannya.
>
> Salam
> Dayat
> Powered by Telkomsel BlackBerry�
>
> ----- Mods -----
> sebutan member milis ini adalah Be-Exceller
> nama milis ini adalah Belajar Excel
> semoga selanjutnya tidak salah sebut dengan milis sebelah
> ___________
>
>
>

Thu Feb 27, 2014 7:27 pm (PST) . Posted by:

"nangAgus" nangagoez

Dear Tuti

Coba copy saja formula dariAE7 ke AE6 dan AE8 atau copy dari AE10.
copykan ke tempat yang lain termasuk di AE5.

Formula di AE9 sampai di AE16 menggunakan formula array (ctrl + shift +
enter) sedangkan formula di AE6 dan AE8 tidak menggunakan array (hanya
ditekan enter)

salam

On 27/02/2014 17:53, Tuti Hartati wrote:
>
> Masih belum bisa ya mas bagus.
>
> Tuti Hartati
>
> PT. Fukusuke Kogyo Indonesia
>
> Phone : 62 (21) 898 0444
>
> Fax : 62 (21) 898 0311
>
> Email : tuti-hartati@fukusuke-kogyo.co.id
>
> *From:*belajar-excel@yahoogroups.com
> [mailto:belajar-excel@yahoogroups.com] *On Behalf Of *Bagus
> *Sent:* Thursday, February 27, 2014 4:48 PM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Emailing: Analisasinyal.xlsx
>
> Setelah edit rumus..
>
> tekanlah tombol Ctr+Shift+Enter
>
> Wassalam
>
> ~ Bagus ~
>
> ----- Original Message -----
>
> *From:*Tuti Hartati <mailto:tuti-hartati@fukusuke-kogyo.co.id>
>
> *To:*belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
>
> *Sent:*Thursday, February 27, 2014 4:12 PM
>
> *Subject:*[belajar-excel] Emailing: Analisasinyal.xlsx [1 Attachment]
>
>
> Dear para master,
> Mohon bantuannya data terlampir ketika saya edit rumus dikarenakan
> hanya
> menambahkan kolom tetapi kenapa hasilnya tidak muncul ya dan
> menjadi #NUM#,
> sebelumnya saya ucapkan terimakasih.
>
> Tuti Hartati
>
>

Thu Feb 27, 2014 8:20 pm (PST) . Posted by:

"Tuti Hartati"

Sudah saya copy tapi masih belum bisa malah hasil adalah #REF!

Tuti Hartati

PT. Fukusuke Kogyo Indonesia

Phone : 62 (21) 898 0444

Fax : 62 (21) 898 0311

Email : tuti-hartati@fukusuke-kogyo.co.id

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of nangAgus
Sent: Friday, February 28, 2014 10:28 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Emailing: Analisasinyal.xlsx

Dear Tuti

Coba copy saja formula dariAE7 ke AE6 dan AE8 atau copy dari AE10. copykan
ke tempat yang lain termasuk di AE5.

Formula di AE9 sampai di AE16 menggunakan formula array (ctrl + shift +
enter) sedangkan formula di AE6 dan AE8 tidak menggunakan array (hanya
ditekan enter)

salam

On 27/02/2014 17:53, Tuti Hartati wrote:

Masih belum bisa ya mas bagus.

Tuti Hartati

PT. Fukusuke Kogyo Indonesia

Phone : 62 (21) 898 0444

Fax : 62 (21) 898 0311

Email : tuti-hartati@fukusuke-kogyo.co.id

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Bagus
Sent: Thursday, February 27, 2014 4:48 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Emailing: Analisasinyal.xlsx

Setelah edit rumus..

tekanlah tombol Ctr+Shift+Enter

Wassalam

~ Bagus ~

----- Original Message -----

From: Tuti Hartati <mailto:tuti-hartati@fukusuke-kogyo.co.id>

To: belajar-excel@yahoogroups.com

Sent: Thursday, February 27, 2014 4:12 PM

Subject: [belajar-excel] Emailing: Analisasinyal.xlsx [1 Attachment]

Dear para master,
Mohon bantuannya data terlampir ketika saya edit rumus dikarenakan hanya
menambahkan kolom tetapi kenapa hasilnya tidak muncul ya dan menjadi #NUM#,
sebelumnya saya ucapkan terimakasih.

Tuti Hartati

Thu Feb 27, 2014 8:36 pm (PST) . Posted by:

"nangAgus" nangagoez

Dikomputer saya tidak masalah coba di buka attacmentya

On 28/02/2014 11:01, Tuti Hartati wrote:
>
> Sudah saya copy tapi masih belum bisa malah hasil adalah #REF!
>
> Tuti Hartati
>
> PT. Fukusuke Kogyo Indonesia
>
> Phone : 62 (21) 898 0444
>
> Fax : 62 (21) 898 0311
>
> Email : tuti-hartati@fukusuke-kogyo.co.id
>
> *From:*belajar-excel@yahoogroups.com
> [mailto:belajar-excel@yahoogroups.com] *On Behalf Of *nangAgus
> *Sent:* Friday, February 28, 2014 10:28 AM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Emailing: Analisasinyal.xlsx
>
> Dear Tuti
>
> Coba copy saja formula dariAE7 ke AE6 dan AE8 atau copy dari AE10.
> copykan ke tempat yang lain termasuk di AE5.
>
> Formula di AE9 sampai di AE16 menggunakan formula array (ctrl + shift
> + enter) sedangkan formula di AE6 dan AE8 tidak menggunakan array
> (hanya ditekan enter)
>
> salam
>
> On 27/02/2014 17:53, Tuti Hartati wrote:
>
> Masih belum bisa ya mas bagus.
>
> Tuti Hartati
>
> PT. Fukusuke Kogyo Indonesia
>
> Phone : 62 (21) 898 0444
>
> Fax : 62 (21) 898 0311
>
> Email : tuti-hartati@fukusuke-kogyo.co.id
> <mailto:tuti-hartati@fukusuke-kogyo.co.id>
>
> *From:* belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> [mailto:belajar-excel@yahoogroups.com] *On Behalf Of *Bagus
> *Sent:* Thursday, February 27, 2014 4:48 PM
> *To:* belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> *Subject:* Re: [belajar-excel] Emailing: Analisasinyal.xlsx
>
> Setelah edit rumus..
>
> tekanlah tombol Ctr+Shift+Enter
>
> Wassalam
>
> ~ Bagus ~
>
> ----- Original Message -----
>
> *From:* Tuti Hartati <mailto:tuti-hartati@fukusuke-kogyo.co.id>
>
> *To:* belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
>
> *Sent:* Thursday, February 27, 2014 4:12 PM
>
> *Subject:* [belajar-excel] Emailing: Analisasinyal.xlsx [1
> Attachment]
>
>
> Dear para master,
> Mohon bantuannya data terlampir ketika saya edit rumus
> dikarenakan hanya
> menambahkan kolom tetapi kenapa hasilnya tidak muncul ya dan
> menjadi #NUM#,
> sebelumnya saya ucapkan terimakasih.
>
> Tuti Hartati
>
>

Thu Feb 27, 2014 8:47 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Barangkali (cmiiw) regional settingnya msh "Indonesian&quot;.

Salam,
HK

On Friday, 28 February 2014, 11:36, nangAgus <nangagoez@yahoo.co.id> wrote:

 
Dikomputer saya tidak masalah coba di buka attacmentya

On 28/02/2014 11:01, Tuti Hartati wrote:

 
>Sudah saya copy tapi masih belum bisa malah hasil adalah #REF!

>Tuti Hartati
>PT. Fukusuke Kogyo Indonesia
>   Phone : 62 (21) 898 0444
>   Fax      : 62 (21) 898 0311
>Email : tuti-hartati@fukusuke-kogyo.co.id

>From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of nangAgus
>Sent: Friday, February 28, 2014 10:28 AM
>To: belajar-excel@yahoogroups.com
>Subject: Re: [belajar-excel] Emailing: Analisasinyal.xlsx


>Dear Tuti
>
>Coba copy saja formula dariAE7 ke AE6 dan AE8
atau copy dari AE10. copykan ke tempat yang lain
termasuk di AE5.
>
>Formula di AE9 sampai di AE16 menggunakan
formula array (ctrl + shift + enter) sedangkan
formula di AE6 dan AE8 tidak menggunakan array
(hanya ditekan enter)
>
>salam
>
>On 27/02/2014 17:53, Tuti Hartati wrote:

>>Masih belum bisa ya mas bagus.
>> 
>>Tuti Hartati
>>PT. Fukusuke Kogyo Indonesia
>>   Phone : 62 (21) 898 0444
>>   Fax      : 62 (21) 898 0311
>>Email : tuti-hartati@fukusuke-kogyo.co.id
>> 
>>From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Bagus
>>Sent: Thursday, February 27, 2014 4:48 PM
>>To: belajar-excel@yahoogroups.com
>>Subject: Re: [belajar-excel] Emailing: Analisasinyal.xlsx
>> 
>> 
>>Setelah edit rumus..
>>tekanlah tombol Ctr+Shift+Enter
>> 
>> 
>>Wassalam
>>~ Bagus ~
>>----- Original Message -----
>>>From: Tuti Hartati
>>>To: belajar-excel@yahoogroups.com
>>>Sent: Thursday, February 27, 2014 4:12 PM
>>>Subject: [belajar-excel] Emailing: Analisasinyal.xlsx [1 Attachment]
>>> 
>>> 
>>>
>>>Dear para master,
>>>Mohon bantuannya data
terlampir ketika saya edit
rumus dikarenakan hanya
>>>menambahkan kolom tetapi
kenapa hasilnya tidak muncul
ya dan menjadi #NUM#,
>>>sebelumnya saya ucapkan
terimakasih.
>>>
>>>Tuti Hartati


Thu Feb 27, 2014 10:43 pm (PST) . Posted by:

"Tuti Hartati"

Akhirnya sudah bisa, makasih banyak ya mas bagus dan mas hendrik ternyata
memang setingan bahasa dikomputer saya.

Tuti Hartati

PT. Fukusuke Kogyo Indonesia

Phone : 62 (21) 898 0444

Fax : 62 (21) 898 0311

Email : tuti-hartati@fukusuke-kogyo.co.id

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of nangAgus
Sent: Friday, February 28, 2014 11:36 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Emailing: Analisasinyal.xlsx [1 Attachment]

Dikomputer saya tidak masalah coba di buka attacmentya

On 28/02/2014 11:01, Tuti Hartati wrote:

Sudah saya copy tapi masih belum bisa malah hasil adalah #REF!

Tuti Hartati

PT. Fukusuke Kogyo Indonesia

Phone : 62 (21) 898 0444

Fax : 62 (21) 898 0311

Email : tuti-hartati@fukusuke-kogyo.co.id

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of nangAgus
Sent: Friday, February 28, 2014 10:28 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Emailing: Analisasinyal.xlsx

Dear Tuti

Coba copy saja formula dariAE7 ke AE6 dan AE8 atau copy dari AE10. copykan
ke tempat yang lain termasuk di AE5.

Formula di AE9 sampai di AE16 menggunakan formula array (ctrl + shift +
enter) sedangkan formula di AE6 dan AE8 tidak menggunakan array (hanya
ditekan enter)

salam

On 27/02/2014 17:53, Tuti Hartati wrote:

Masih belum bisa ya mas bagus.

Tuti Hartati

PT. Fukusuke Kogyo Indonesia

Phone : 62 (21) 898 0444

Fax : 62 (21) 898 0311

Email : tuti-hartati@fukusuke-kogyo.co.id

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Bagus
Sent: Thursday, February 27, 2014 4:48 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Emailing: Analisasinyal.xlsx

Setelah edit rumus..

tekanlah tombol Ctr+Shift+Enter

Wassalam

~ Bagus ~

----- Original Message -----

From: Tuti Hartati <mailto:tuti-hartati@fukusuke-kogyo.co.id>

To: belajar-excel@yahoogroups.com

Sent: Thursday, February 27, 2014 4:12 PM

Subject: [belajar-excel] Emailing: Analisasinyal.xlsx [1 Attachment]

Dear para master,
Mohon bantuannya data terlampir ketika saya edit rumus dikarenakan hanya
menambahkan kolom tetapi kenapa hasilnya tidak muncul ya dan menjadi #NUM#,
sebelumnya saya ucapkan terimakasih.

Tuti Hartati

Thu Feb 27, 2014 10:43 pm (PST) . Posted by:

"Ratri Risyanto"

Yth: All Masters Excel

Bagaimana caranya menyimpan data listview ke excel? file terlampir...
Mohon bantuannya...
Terima kasih.

Hk,

Ratri Risyanto

----- Mods -----
File lampiran dilepas dari email karena ukuran melebihi yang diperbolehkan.
silakan kirim ulang file dengan cara me-reply email ini,
tidak perlu semua data kerja dengan ukuran maksimal 250 KB
_____________






=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
READ MORE....