Bls: ]] XL-mania [[ Hidden sheet dgn kreteria

 

Yth. Ugenk Hksn,

Coba ketikkan kode dibawah ini :

Kemudian pada Option Button klik kanan mouse dan pilih Assign Macro...

Kemudian Pilih Hidden_Sheet

lalu OK.

Demikian semoga lampiran sesuai dengan yang di inginkan

Salam,

Didi

Sub Hidden_Sheet()
Sheets("A").Visible = False
Sheets("B").Visible = False
Sheets("C").Visible = False
    If Sheets("Sheet1").Range("B1").Value = "A" Then
        Sheets("A").Visible = True
    ElseIf Sheets("Sheet1").Range("B1").Value = "B" Then
        Sheets("B").Visible = True
    ElseIf Sheets("Sheet1").Range("B1").Value = "C" Then
        Sheets("C").Visible = True
    Else
        Sheets("A").Visible = False
        Sheets("B").Visible = False
        Sheets("C").Visible = False
    End If
End Sub

---

Dari: Ugenk Hksn <ugenk_h@yahoo.com>
Kepada: "XL-mania@yahoogroups.com" <XL-mania@yahoogroups.com>
Dikirim: Senin, 22 Juli 2013 13:15
Judul: ]] XL-mania [[ Hidden sheet dgn kreteria

 

Salam hormat para suhu excel semuanya

Bagaimanakah macro utk menyembunyikan sheet dgn kreteria seperti ini,
jika di sheet1 kolom B1 tertulis A maka sheet A yg akan tampil sedangkan
sheet B dan C akan terhidden/tersembunyi begitu pula sebaliknya.
File terlampir

Terima kasih pencerahannya.

u-gen-x

__._,_.___

Reply via web post

Reply to sender

Reply to group

Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 47

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Maaf moderasi terlambat karena yahoogroups sering error           |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di :                                            |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use • Send us Feedback

.

__,_._,___