Dear Mr Kid.
Alhamdulillah, Luar Biasa...... 100% success, mendadak sakit kepala ilang. Hehehehe. Terima kasih Mr. Kid atas tambahan ilmunya. Semoga Allah selalu memberi kesehatan dan kemudahan segala urusan khususnya kepada mr dan umumnya kepada seluruh rekan-rekan yang ada di forum ini. Wassalamu’alaikum Wr Wb.. Salam DD From: [email protected] [mailto:[email protected]] Sent: 12 November 2015 18:42 To: BeExcel Subject: Re: RE: RE: [belajar-excel] macro untuk menyembunyikan kolom [1 Attachment] Pakai pivot table ? Pivot table bekerja sebelum Excel menangkap suatu event terhadap sheet. Itu sebabnya pivot table sangat cepat komputasinya. Karena pivot table bekerja sebelum Excel menangkap event terhadap sheet, maka gunakan event milik pivot table dan untuk kasus ini tidak perlu event milik sheet. File terlampir Wassalam, Kid 2015-11-12 17:24 GMT+07:00 'Dede Sulaeman' [email protected] [belajar-excel] <[email protected]>: Dear Mr Kid, Terima kasih atas masukannya. Setelah saya bereksperimen alhasil pala puyeng. Soalnya GAGAL MANING – GAGAL MANING. Saya lampirkan filenya, dan mohon koreksinya. Salam, Dede From: [email protected] [mailto:[email protected]] Sent: 12 November 2015 14:34 To: BeExcel Subject: Re: RE: RE: [belajar-excel] macro untuk menyembunyikan kolom Wa'alaikumussalam wr wb Hai DD, Di dalam event change milik worksheet, sebelum memulai proses dilakukan pemeriksaan dari alamat object range dalam variabel Target. Semua cells yang berubah isinya telah disimpan oleh Excel dan disediakan untuk user melalui variabel input parameter bernama Target. Private Sub Worksheet_Change(ByVal Target As Range) Proses pemeriksaannya bisa seperti ini : if target.resize(1,1).address<>"$B$3" then exit sub endif Wassalamu'alaikum wr wb Kid 2015-11-12 12:10 GMT+07:00 'Dede Sulaeman' [email protected] [belajar-excel] <[email protected]>: 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 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: 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>
