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


  

Kirim email ke