Dear BeExceller,
Assalamu’alaikum Wr Wb...
Terinspirasi dari hasil karya Mr. Toby tentang hide kolom.
Saya coba kembangkan pada kasus saya, alhamdulillah berhasil.
Namun saya ingin macro berjalan kalau ada perubahan di Cell B3 saja, apakah
bisa...?, karena yang terjadi saat ini kalau ada perubahan disetiap cell macro
langsung bekerja.
Seandainya “Private Sub Worksheet_Change(ByVal Target As Range)” bisa diganti
“Private Sub Worksheet_CellB3_Change(ByVal Target As Range)”. Hehehe tentunya
itu ga bisa.....
berikut scripnya :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ans As Integer
ans = 2
Dim GTMT As String
GTMT = Sheet8.Range("C1").Value
Do While ans < 121
Cells(3, 1 + ans).Select
Selection.EntireColumn.Hidden = False
Cells(3, 1 + ans).Select
If Cells(3, 1 + ans).Value = 0 And Sheet8.Range("c2").Value = 1 Then
ActiveCell.Columns.Hidden = True
ans = ans + 1
Loop
Sheet8.Columns("A:B").Hidden = False
MsgBox "" & GTMT & "", vbInformation, "NOTIFIKASI"
Sheet8.Range("A6").Select
Selection.End(xlDown).Select
End Sub
Mohon masukan atas masalah ini.
Wassalamu’alaikum Wr Wb..
Salam,
DD
From: [email protected] [mailto:[email protected]]
Sent: 07 November 2015 14:05
To: [email protected]
Subject: Re: RE: RE: [belajar-excel] macro untuk menyembunyikan kolom [1
Attachment]
Hai Prazt,
sebenarnya sedikit modifikasi dari formula yg td bisa kita inginkan apa aja yg
mau di hide.
ok,ini saya berikan contohnya tetap dgn menggunakan method columns hidden di
tambah dgn method loop untuk mencari data yg kosong, anda bisa kembangkan
sesuai kebutuhan,tapi kalo memang belum memenuhi keinginan anda ya"maaf".
mungkin teman2 beexceler yg akan menambahkan.
TerimaKasih.
Sent from <http://overview.mail.yahoo.com/mobile/?.src=Android> Yahoo Mail on
Android
_____
From: 'prazt' [email protected] [belajar-excel]
<[email protected]>;
To: <[email protected]>;
Subject: RE: RE: [belajar-excel] macro untuk menyembunyikan kolom
Sent: Sat, Nov 7, 2015 5:12:28 AM
Maksudnya Kolom yang tanpa nilai, tetapi perlu diperhatikan bahwa setiap SK itu
ada rerata nilainya di samping kanan, nah kolom rerata SK tersebut juga ikut
terhidden sesuai SK yg tidak ada nilainya, coba perhatikan file lampirannya
untuk lebih spesifik.
From: [email protected] [mailto:[email protected]]
Sent: 7 Nopember 2015 11:58
To: [email protected]
Subject: Re: RE: [belajar-excel] macro untuk menyembunyikan kolom
maksudnya kolom yg tanpa nilai yg di hidden..? atau specifik apa yg mesti di
hidden..
Sent from Yahoo Mail on Android
<http://overview.mail.yahoo.com/mobile/?.src=Android>
_____
From: 'prazt' [email protected] [belajar-excel]
<[email protected]>;
To: <[email protected]>;
Subject: RE: [belajar-excel] macro untuk menyembunyikan kolom
Sent: Sat, Nov 7, 2015 4:46:09 AM
Kalau seperti ini kan hanya kolom “AE:AX” saja yang kosong, padahal kolom yang
kosong bisa berubah ubah sesaui si guru yang makai,
Dengan asumsi bahwa setiap mata pelajaran kan banyaknya materi berbeda-beda
sehingga kurang efisien kalau seperti itu “maaf”
From: [email protected] [mailto:[email protected]]
Sent: 7 Nopember 2015 11:39
To: [email protected]
Subject: Re: [belajar-excel] macro untuk menyembunyikan kolom
Hai Prazt,
Coba gunakan method Coulumns hidden.
mungkin seperti ini:
jika yg mau di hidden coulumn "AE:AX"
Sheet1.Coulumns("AE:AX").Hidden = True
kalo mau di buka lagi tinggal di ubah aja True jadi False.
Semoga membantu.
TerimaKasih.
Sent from Yahoo Mail on Android
<http://overview.mail.yahoo.com/mobile/?.src=Android>
_____
From: 'prazt' [email protected] [belajar-excel]
<[email protected]>;
To: <[email protected]>;
Subject: [belajar-excel] macro untuk menyembunyikan kolom [1 Attachment]
Sent: Sat, Nov 7, 2015 3:49:56 AM
Assalamu’alaikum Wr.Wb
Dear rekan-rekan semua
Mohon bantuannya ya..saya ingin menyembunyikan kolom yang nilainya kosong/tidak
ada nilainya (maaf kalau ada salah penyebutan) dengan menggunakan makro
dengan cara mengklik tombol yang disediakan, dan jika suatu saat kolom tersebut
dibutuhkan maka bisa ditampilkan kembali dengan mengklik tombol
tampilkan semua (yg sudah tersedia)
ilustrasinya ada pada file lampiran
Wassalamu’alaikum
_____
<https://www.avast.com/antivirus> Avast logo
Email tidak mengandung virus pemeriksaan mengunakan piranti Avast antivirus.
www.avast.com <https://www.avast.com/antivirus>
_____
<https://www.avast.com/antivirus> Avast logo
Email tidak mengandung virus pemeriksaan mengunakan piranti Avast antivirus.
www.avast.com <https://www.avast.com/antivirus>
_____
<https://www.avast.com/antivirus> Avast logo
Email tidak mengandung virus pemeriksaan mengunakan piranti Avast antivirus.
www.avast.com <https://www.avast.com/antivirus>
