5 Messages
Digest #3433
Messages
Sun May 17, 2015 11:30 pm (PDT) . Posted by:
"Toby kenzo" tobykenzo
Dear DD, Sama-sama...jangan bosan2 untuk bertanya.. Terimakasih.
Pada Senin, 18 Mei 2015 13:00, "Dede pmaho_log4@nabatisnack.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
DearMr Toby, Success. Terimakasih banyak atas masukannya. Salam, DD From: Toby kenzotobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Mei 2015 12:26
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Hide Otomatis Dear DD, Coba pake formula ini sebagaiilustrasi,seterusnya bisa anda kembangkan lagi, Ini menggunakan event Worksheet Change() Private Sub Worksheet_Change(ByValTarget As Range) If Sheet13.Range("B3").Value> 0 Then
Range(Cells(4, 2), Cells(10, 4)).EntireRow.Hidden = True
ElseIf Sheet13.Range("B3").Value = "" Then
Range(Cells(4, 2), Cells(10, 4)).EntireRow.Hidden = False
End If End Sub TerimaKasih. Pada Senin, 18 Mei 2015 11:45,"Dede pmaho_log4@nabatisnack.co.id [belajar-excel]"<belajar-excel@yahoogroups.com> menulis: Dear Mr Toby, Saya rubahmenjadi : Private SubWorksheet_Change() Dim ans As String ans =Sheet12.Range("B8").Value Sheet12.Activate Range(Cells(12, 2),Cells(ans, 2)).EntireRow.Hidden = False Dst..... Tapi ga bisa, maklumsaya masih gelap VB. Mohon pencerahannya. Salam, DD From: Tobykenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Mei 2015 11:35
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Hide Otomatis Dear DD, Gunakan formula eventWorksheet_Change() pada sheet yang di tuju. TerimaKasih Pada Senin, 18 Mei 201511:10, "Dede pmaho_log4@nabatisnack.co.id [belajar-excel]"<belajar-excel@yahoogroups.com> menulis: Dear Para Master, Saya punya scriptseperti ini : Private SubWorksheet_Activate() Dim ans As String ans =Sheet13.Range("B8").Value Sheet13.Activate Range(Cells(12, 2),Cells(ans, 2)).EntireRow.Hidden = False IfSheet13.Range("B3").Value <> "" AndSheet13.Range("X70").Value > 0 AndSheet13.Range("AK70").Value > 0 AndSheet13.Range("AX70").Value > 0 Then Range(Cells(1, 1),Cells(69, 1)).EntireRow.Hidden = False Range("AL:AX").EntireColumn.Hidden= False Range("Y:AX").EntireColumn.Hidden= False Range(Cells(ans, 1),Cells(69, 1)).EntireRow.Hidden = True ElseIfSheet13.Range("B3").Value <> "" AndSheet13.Range("X70").Value > 0 AndSheet13.Range("AK70").Value > 0 AndSheet13.Range("AX70").Value = 0 Then Range(Cells(1, 1),Cells(69, 1)).EntireRow.Hidden = False Range("Y:AX").EntireColumn.Hidden= False Range("AL:AX").EntireColumn.Hidden= True Range(Cells(ans, 1),Cells(69, 1)).EntireRow.Hidden = True ElseIfSheet13.Range("B3").Value <> "" AndSheet13.Range("X70").Value > 0 AndSheet13.Range("AK70").Value = 0 AndSheet13.Range("AX70").Value = 0 Then Range(Cells(1, 1),Cells(69, 1)).EntireRow.Hidden = False Range("AL:AX").EntireColumn.Hidden= False Range("Y:AX").EntireColumn.Hidden= True Range(Cells(ans, 1),Cells(69, 1)).EntireRow.Hidden = True Else End If End Sub Gambar sheet : Error! Filename notspecified. File terlalu besarsehingga tidak dapat saya lampirkan. Pertanyaan saya adalahapa yang harus dirubah pada script VBAnya kalau pada saat saya klik listpilihan di cell "B3" baris dan kolom terhide otomatis?. Note : report akanterhide sesuai harapan setelah saya berpindah dahulu ke sheet lain. Salam, Dede This e-mail and any filestransmitted with it are confidential and intended solely for the use of theindividual to whom it is addressed. If you have received this email in errorplease send it back to the person that sent it to you. Any views or opinionspresented are solely those of its author and do not necessarily represent thoseof NABATI or any of its subsidiary companies. Unauthorized publication, use,dissemination, forwarding, printing or copying of this email and its associatedattachments is strictly prohibited. #yiv3154866276 #yiv3154866276 -- #yiv3154866276ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3154866276 #yiv3154866276ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3154866276 #yiv3154866276ygrp-mkp #yiv3154866276hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3154866276 #yiv3154866276ygrp-mkp #yiv3154866276ads {margin-bottom:10px;}#yiv3154866276 #yiv3154866276ygrp-mkp .yiv3154866276ad {padding:0 0;}#yiv3154866276 #yiv3154866276ygrp-mkp .yiv3154866276ad p {margin:0;}#yiv3154866276 #yiv3154866276ygrp-mkp .yiv3154866276ad a {color:#0000ff;text-decoration:none;}#yiv3154866276 #yiv3154866276ygrp-sponsor #yiv3154866276ygrp-lc {font-family:Arial;}#yiv3154866276 #yiv3154866276ygrp-sponsor #yiv3154866276ygrp-lc #yiv3154866276hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3154866276 #yiv3154866276ygrp-sponsor #yiv3154866276ygrp-lc .yiv3154866276ad {margin-bottom:10px;padding:0 0;}#yiv3154866276 #yiv3154866276actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3154866276 #yiv3154866276activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3154866276 #yiv3154866276activity span {font-weight:700;}#yiv3154866276 #yiv3154866276activity span:first-child {text-transform:uppercase;}#yiv3154866276 #yiv3154866276activity span a {color:#5085b6;text-decoration:none;}#yiv3154866276 #yiv3154866276activity span span {color:#ff7900;}#yiv3154866276 #yiv3154866276activity span .yiv3154866276underline {text-decoration:underline;}#yiv3154866276 .yiv3154866276attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3154866276 .yiv3154866276attach div a {text-decoration:none;}#yiv3154866276 .yiv3154866276attach img {border:none;padding-right:5px;}#yiv3154866276 .yiv3154866276attach label {display:block;margin-bottom:5px;}#yiv3154866276 .yiv3154866276attach label a {text-decoration:none;}#yiv3154866276 blockquote {margin:0 0 0 4px;}#yiv3154866276 .yiv3154866276bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3154866276 .yiv3154866276bold a {text-decoration:none;}#yiv3154866276 dd.yiv3154866276last p a {font-family:Verdana;font-weight:700;}#yiv3154866276 dd.yiv3154866276last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3154866276 dd.yiv3154866276last p span.yiv3154866276yshortcuts {margin-right:0;}#yiv3154866276 div.yiv3154866276attach-table div div a {text-decoration:none;}#yiv3154866276 div.yiv3154866276attach-table {width:400px;}#yiv3154866276 div.yiv3154866276file-title a, #yiv3154866276 div.yiv3154866276file-title a:active, #yiv3154866276 div.yiv3154866276file-title a:hover, #yiv3154866276 div.yiv3154866276file-title a:visited {text-decoration:none;}#yiv3154866276 div.yiv3154866276photo-title a, #yiv3154866276 div.yiv3154866276photo-title a:active, #yiv3154866276 div.yiv3154866276photo-title a:hover, #yiv3154866276 div.yiv3154866276photo-title a:visited {text-decoration:none;}#yiv3154866276 div#yiv3154866276ygrp-mlmsg #yiv3154866276ygrp-msg p a span.yiv3154866276yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3154866276 .yiv3154866276green {color:#628c2a;}#yiv3154866276 .yiv3154866276MsoNormal {margin:0 0 0 0;}#yiv3154866276 o {font-size:0;}#yiv3154866276 #yiv3154866276photos div {float:left;width:72px;}#yiv3154866276 #yiv3154866276photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3154866276 #yiv3154866276photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3154866276 #yiv3154866276reco-category {font-size:77%;}#yiv3154866276 #yiv3154866276reco-desc {font-size:77%;}#yiv3154866276 .yiv3154866276replbq {margin:4px;}#yiv3154866276 #yiv3154866276ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3154866276 #yiv3154866276ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3154866276 #yiv3154866276ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3154866276 #yiv3154866276ygrp-mlmsg select, #yiv3154866276 input, #yiv3154866276 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3154866276 #yiv3154866276ygrp-mlmsg pre, #yiv3154866276 code {font:115% monospace;}#yiv3154866276 #yiv3154866276ygrp-mlmsg * {line-height:1.22em;}#yiv3154866276 #yiv3154866276ygrp-
Pada Senin, 18 Mei 2015 13:00, "Dede pmaho_log4@nabatisnack.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
DearMr Toby, Success. Terimakasih banyak atas masukannya. Salam, DD From: Toby kenzotobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Mei 2015 12:26
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Hide Otomatis Dear DD, Coba pake formula ini sebagaiilustrasi,seterusnya bisa anda kembangkan lagi, Ini menggunakan event Worksheet Change() Private Sub Worksheet_Change(ByValTarget As Range) If Sheet13.Range("B3").Value> 0 Then
Range(Cells(4, 2), Cells(10, 4)).EntireRow.Hidden = True
ElseIf Sheet13.Range("B3").Value = "" Then
Range(Cells(4, 2), Cells(10, 4)).EntireRow.Hidden = False
End If End Sub TerimaKasih. Pada Senin, 18 Mei 2015 11:45,"Dede pmaho_log4@nabatisnack.co.id [belajar-excel]"<belajar-excel@yahoogroups.com> menulis: Dear Mr Toby, Saya rubahmenjadi : Private SubWorksheet_Change() Dim ans As String ans =Sheet12.Range("B8").Value Sheet12.Activate Range(Cells(12, 2),Cells(ans, 2)).EntireRow.Hidden = False Dst..... Tapi ga bisa, maklumsaya masih gelap VB. Mohon pencerahannya. Salam, DD From: Tobykenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 18 Mei 2015 11:35
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Hide Otomatis Dear DD, Gunakan formula eventWorksheet_Change() pada sheet yang di tuju. TerimaKasih Pada Senin, 18 Mei 201511:10, "Dede pmaho_log4@nabatisnack.co.id [belajar-excel]"<belajar-excel@yahoogroups.com> menulis: Dear Para Master, Saya punya scriptseperti ini : Private SubWorksheet_