Bls: [belajar-excel] Macro Excel

thanks mas bagus atas scriptnya

cuma pertanyaan saya kalau ada sekitar 30 sheet yang akan ditampilkan sesuai dengan tombolnya, apakah  code sriptnya pada module vba harus ditampilkan semua sheet ya mas.. atau ada cara lain supaya scriptnya tidak terlalu panjang.

regards

andree 

Pada Rabu, 30 Oktober 2013 16:04, Bagus <bagus@kingjim.co.id> menulis:

 

Dear Andre;

 

Coba pada module1

 

Sub Info_Pelapor()
Sheets("Info_Jaringan_Kantor").Visible = xlSheetVeryHidden
Sheets("Info_Manajemen").Visible = xlSheetVeryHidden
Sheets("Info_Ketenagakerjaan").Visible = xlSheetVeryHidden
Sheets("Info_Debitur").Visible = xlSheetVeryHidden
Sheets("Info_Pelapor").Visible = xlSheetVisible
Sheets("Info_Pelapor").Select
End Sub

Sub Info_Jaringan_Kantor()
Sheets("Info_Pelapor").Visible = xlSheetVeryHidden
Sheets("Info_Manajemen").Visible = xlSheetVeryHidden
Sheets("Info_Ketenagakerjaan").Visible = xlSheetVeryHidden
Sheets("Info_Debitur").Visible = xlSheetVeryHidden
Sheets("Info_Jaringan_Kantor").Visible = xlSheetVisible
Sheets("Info_Jaringan_Kantor").Select
End Sub

Sub Info_Manajemen()
Sheets("Info_Pelapor").Visible = xlSheetVeryHidden
Sheets("Info_Jaringan_Kantor").Visible = xlSheetVeryHidden
Sheets("Info_Ketenagakerjaan").Visible = xlSheetVeryHidden
Sheets("Info_Debitur").Visible = xlSheetVeryHidden
Sheets("Info_Manajemen").Visible = xlSheetVisible
Sheets("Info_Manajemen").Select
End Sub

Sub Info_Ketenagakerjaan()
Sheets("Info_Manajemen").Visible = xlSheetVeryHidden
Sheets("Info_Pelapor").Visible = xlSheetVeryHidden
Sheets("Info_Jaringan_Kantor").Visible = xlSheetVeryHidden
Sheets("Info_Debitur").Visible = xlSheetVeryHidden
Sheets("Info_Ketenagakerjaan").Visible = xlSheetVisible
Sheets("Info_Ketenagakerjaan").Select
End Sub

Sub Info_Debitur()
Sheets("Info_Ketenagakerjaan").Visible = xlSheetVeryHidden
Sheets("Info_Manajemen").Visible = xlSheetVeryHidden
Sheets("Info_Pelapor").Visible = xlSheetVeryHidden
Sheets("Info_Jaringan_Kantor").Visible = xlSheetVeryHidden
Sheets("Info_Debitur").Visible = xlSheetVisible
Sheets("Info_Debitur").Select
End Sub

 

 

Wassalam

 

~ Bagus ~

 

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

From: Andre Rahmaidy Teeza

To: belajar-excel@yahoogroups.com

Sent: Wednesday, October 30, 2013 1:55 PM

Subject: [belajar-excel] Macro Excel [1 Attachment]

 

Dear Be Exceller

saya mau tanya mengenai coding vba untuk vba yang saya buat.  di kertas kerja excel saya ada sekitar 5 tombol ketika saya mengklik  tombol 1 akan muncul sheet yang diinginkan, setelah itu klik tombol 2   muncul sheet yang di inginkan, tapi sheet dengan tombol 1 tadi masih muncul. 

yang mau saya tanyakan gimana kode vbanya ketika tombol 2 di clik yang muncul hanya sheet yang sesuai dengan tombol 2 ,sedang kan sheet yang sesuai dengan tombol 1 tidak muncul (file terlampir).

 

wassalam

Andree

__._,_.___

=====================================================================
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
---------------------------------------------------------------------

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___