Dear Mr Tobu,
Thank’s berat atas dukungannya. Salam, DD From: Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 29 April 2015 18:09 To: belajar-excel@yahoogroups.com Subject: Re: RE: RE: [belajar-excel] Hiden Otomatis Dear DD, Don't panic...kalo kamu lihat formulanya lebih detail di sheet"view" itu bisa di otak-atik sesuai dgn kebutuhan..tp ngga apa2 mungkin kmu terburu-buru untuk menyelesaikannya,ok nanti saya coba buatkan sesuai dgn yg kamu inginkan... Sent from <http://overview.mail.yahoo.com/mobile/?.src=Android> Yahoo Mail on Android _____ From: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>; To: <belajar-excel@yahoogroups.com>; Subject: RE: RE: [belajar-excel] Hiden Otomatis Sent: Wed, Apr 29, 2015 10:37:01 AM Dear Mr Toby, Blm bisa dikatakan sesuai... Setelah saya analisa, View yang saya lihat tidak mengambalikan data sesungguhnya setelahnya. Maksudnya begini... Misalkan sayalihat stok 1000596, secara View sudah sesuai harapan (Baris yang terhiden 24 s/d 57), namun ketika saya klik 1000616 View tetap menyembunyikan baris 24 s/d 57, seharusnya yang terhiden mulai di baris 27 s/d 57. Masalahnya adalah stock yang mempunyai baris sedikit itu tidak mau mengembalikan stock yang jumlah barisnya lebih banyak, karena kalau saya klik 1000616 (awal buka file), stock ini kan mempunyai 15 baris, View akan sesuai harapan kalau kode berikutnya mempunyai jumlah baris yang sama atau lebih kecil. Tapi kalau kode berikutnya mempunyai jumlah stock yang lebih banyak View tetap dengan baris 15. Semoga tidak bingung Mr... Salam, DD From: Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 29 April 2015 17:20 To: belajar-excel@yahoogroups.com Subject: Re: RE: [belajar-excel] Hiden Otomatis Dear DD, untuk yg 1000596 apa sudah sesuai..? Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android> _____ From: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>; To: <belajar-excel@yahoogroups.com>; Subject: RE: [belajar-excel] Hiden Otomatis Sent: Wed, Apr 29, 2015 10:07:09 AM Eh sori seperti ini : Private Sub Worksheet_Activate() Dim ans As String ans = Sheet2.Range("C1").Value If Sheet2.Range("D3").Value = 1000596 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value > 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = False Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000596 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value = 0 Then Range("Y:AX").EntireColumn.Hidden = False Range("AL:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000596 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value = 0 And Sheet2.Range("AX58").Value = 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000597 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value > 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = False Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000597 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value = 0 Then Range("Y:AX").EntireColumn.Hidden = False Range("AL:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000597 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value = 0 And Sheet2.Range("AX58").Value = 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000616 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value > 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = False Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000616 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value = 0 Then Range("Y:AX").EntireColumn.Hidden = False Range("AL:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000616 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value = 0 And Sheet2.Range("AX58").Value = 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True Else End If End Sub Tapi kode 1000616 untuk hide barisnya belum sesuai. Salam, DD From: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 29 April 2015 16:52 To: belajar-excel@yahoogroups.com Subject: RE: [belajar-excel] Hiden Otomatis [1 Attachment] Dear Mr Toby, Saya tambahkan untuk kode 1000597 dan 1000616 seperti dbi : Private Sub Worksheet_Activate() Dim ans As String ans = Sheet2.Range("C1").Value If Sheet2.Range("D3").Value = 1000596 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value > 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = False Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000596 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value = 0 Then Range("Y:AX").EntireColumn.Hidden = False Range("AL:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000596 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value = 0 And Sheet2.Range("AX58").Value = 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True Dim ans As String ans = Sheet2.Range("C1").Value If Sheet2.Range("D3").Value = 1000597 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value > 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = False Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000597 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value = 0 Then Range("Y:AX").EntireColumn.Hidden = False Range("AL:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000597 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value = 0 And Sheet2.Range("AX58").Value = 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True Dim ans As String ans = Sheet2.Range("C1").Value If Sheet2.Range("D3").Value = 1000616 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value > 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = False Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000616 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value > 0 And Sheet2.Range("AX58").Value = 0 Then Range("Y:AX").EntireColumn.Hidden = False Range("AL:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True ElseIf Sheet2.Range("D3").Value = 1000616 And Sheet2.Range("X58").Value > 0 And Sheet2.Range("AK58").Value = 0 And Sheet2.Range("AX58").Value = 0 Then Range("AL:AX").EntireColumn.Hidden = False Range("Y:AX").EntireColumn.Hidden = True Range(Cells(ans, 1), Cells(57, 1)).EntireRow.Hidden = True Else End If End Sub Tapi belum bisa, salah dimana yah? Maklum kurang ngudeng VB.., semoga tidak bosan ya Mr.... Salam, DD From: Dede pmaho_l...@nabatisnack.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 29 April 2015 16:27 To: belajar-excel@yahoogroups.com Subject: RE: [belajar-excel] Hiden Otomatis Dear Mr Toby, Terima kasih atas feedbacknya, akan saya tanbahkan untuk kode yang lain. Salam, DD From: Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 29 April 2015 15:45 To: belajar-excel@yahoogroups.com Subject: Bls: [belajar-excel] Hiden Otomatis [1 Attachment] Dear DD, Sebenarnya tinggal modif formula di sheet"View" aja dengan menambahkan "AND" di formula IF. Berikut filenya, saya coba hanya untuk No.1000596 untuk no selanjutnya kamu bisa teruskan sama seperti No.10000596. Selamat mencoba... It's work in Office 2013 SP1. TerimaKasih Pada Rabu, 29 April 2015 14:48, "Dede pmaho_l...@nabatisnack.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis: Daear Mr Toby, Setelah saya pakai dan sedikit di refresh data yang ada di sheet “Rekap”, ternyata masih belum sesuai harapan. Mungkin sayanya kurang detail penjelasannya. Begini rulenya Mr..., Kita bicara kode 1000596 yah. Syarat Kolom : 1. Jika X58>0 dan AK58>0 dan AX58>0, maka jangan ada kolom yang di hide 2. Jika X58>0 dan AK58>0 dan AX58=0, maka kolom AL s/d AX di hide 3. Jika X58>0 dan AK58=0 dan AX58=0, maka kolom Y s/d AX di hide Syarat Baris : 1. Sembunyikan mulai di baris berapa saja tergantung dari akhir kode di kolom C sheet “View”. Dan begitu juga untuk kode 1000597 dan 1000616. Demikian penjelasannya semoga tidak bingung dan dapat membantu kembali. Salam, DD From: Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 28 April 2015 17:27 To: belajar-excel@yahoogroups.com Subject: Bls: [belajar-excel] Hiden Otomatis Dear DD, Sama-sama...asal ada kemauan dan kerja keras, ngga ada yang ga mungkin untuk di pecahkan.. TerimaKasih. Pada Selasa, 28 April 2015 17:23, "Dede pmaho_l...@nabatisnack.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis: Dear Mr Toby, Luarrr Biasa...., Saya mah gak pernah kepikiran klo masalah saya ini ternyata ada solusinya. Ckckckckck.... Saya haturkan banyak terima kasih Mr Toby, semoga ilmu Anda bermanfaaat dan membawa kebaikan. Salam, DD From: Toby kenzo tobyke...@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com] Sent: 28 April 2015 17:08 To: belajar-excel@yahoogroups.com Subject: Bls: [belajar-excel] Hiden Otomatis [1 Attachment] Dear DD, Berikut Filenya,semoga bisa membantu. TerimaKasih Pada Selasa, 28 April 2015 15:53, "Dede pmaho_l...@nabatisnack.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis: Dear BeExceller, Bisakan sebuah ROW dan COLUMN ter”Hide” otomatis ? Ini pengembangan kasus hyperlink tadi, semoga teman-teman tidak bosan yah... Tinggal satu langkah lagi untuk menyempurnakan report terlampir, yaitu dengan meng”Hide” otomatis baris kosong di sheet “View” dan kolom yang tidak ada datanya pada saat saya klik kode subdist di sheet “List Kirim GT” apakah hal itu memungkinkan ? Mohon pencerahannya dari para master sekalian. Salam, DD _____ This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.