Dear DD, Coba pake formula ini sebagai ilustrasi,seterusnya bisa anda
kembangkan lagi,Ini menggunakan event Worksheet Change() Private Sub
Worksheet_Change(ByVal Target 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 IfEnd Sub TerimaKasih.
Pada Senin, 18 Mei 2015 11:45, "Dede pmaho_l...@nabatisnack.co.id
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
DearMr Toby, Sayarubah menjadi : Private Sub Worksheet_Change() Dim
ans As String ans = Sheet12.Range("B8").Value Sheet12.Activate Range(Cells(12,
2), Cells(ans, 2)).EntireRow.Hidden = False Dst..... Tapiga bisa, maklum
saya masih gelap VB. Mohon pencerahannya. Salam, DD From: Toby
kenzotobyke...@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
event Worksheet_Change()pada sheet yang di tuju. TerimaKasih Pada
Senin, 18 Mei 2015 11:10,"Dede pmaho_l...@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 <> "" And
Sheet13.Range("X70").Value> 0 And Sheet13.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 files transmittedwith it are confidential
and intended solely for the use of the individual towhom it is addressed. If
you have received this email in error please send itback to the person that
sent it to you. Any views or opinions presented aresolely those of its author
and do not necessarily represent those of NABATI orany of its subsidiary
companies. Unauthorized publication, use, dissemination,forwarding, printing or
copying of this email and its associated attachments isstrictly prohibited.
#yiv2666361110 #yiv2666361110 -- #yiv2666361110ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2666361110
#yiv2666361110ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2666361110
#yiv2666361110ygrp-mkp #yiv2666361110hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv2666361110 #yiv2666361110ygrp-mkp #yiv2666361110ads
{margin-bottom:10px;}#yiv2666361110 #yiv2666361110ygrp-mkp .yiv2666361110ad
{padding:0 0;}#yiv2666361110 #yiv2666361110ygrp-mkp .yiv2666361110ad p
{margin:0;}#yiv2666361110 #yiv2666361110ygrp-mkp .yiv2666361110ad a
{color:#0000ff;text-decoration:none;}#yiv2666361110 #yiv2666361110ygrp-sponsor
#yiv2666361110ygrp-lc {font-family:Arial;}#yiv2666361110
#yiv2666361110ygrp-sponsor #yiv2666361110ygrp-lc #yiv2666361110hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2666361110
#yiv2666361110ygrp-sponsor #yiv2666361110ygrp-lc .yiv2666361110ad
{margin-bottom:10px;padding:0 0;}#yiv2666361110 #yiv2666361110actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2666361110
#yiv2666361110activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2666361110
#yiv2666361110activity span {font-weight:700;}#yiv2666361110
#yiv2666361110activity span:first-child
{text-transform:uppercase;}#yiv2666361110 #yiv2666361110activity span a
{color:#5085b6;text-decoration:none;}#yiv2666361110 #yiv2666361110activity span
span {color:#ff7900;}#yiv2666361110 #yiv2666361110activity span
.yiv2666361110underline {text-decoration:underline;}#yiv2666361110
.yiv2666361110attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv2666361110 .yiv2666361110attach div a
{text-decoration:none;}#yiv2666361110 .yiv2666361110attach img
{border:none;padding-right:5px;}#yiv2666361110 .yiv2666361110attach label
{display:block;margin-bottom:5px;}#yiv2666361110 .yiv2666361110attach label a
{text-decoration:none;}#yiv2666361110 blockquote {margin:0 0 0
4px;}#yiv2666361110 .yiv2666361110bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv2666361110
.yiv2666361110bold a {text-decoration:none;}#yiv2666361110 dd.yiv2666361110last
p a {font-family:Verdana;font-weight:700;}#yiv2666361110 dd.yiv2666361110last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2666361110
dd.yiv2666361110last p span.yiv2666361110yshortcuts
{margin-right:0;}#yiv2666361110 div.yiv2666361110attach-table div div a
{text-decoration:none;}#yiv2666361110 div.yiv2666361110attach-table
{width:400px;}#yiv2666361110 div.yiv2666361110file-title a, #yiv2666361110
div.yiv2666361110file-title a:active, #yiv2666361110
div.yiv2666361110file-title a:hover, #yiv2666361110 div.yiv2666361110file-title
a:visited {text-decoration:none;}#yiv2666361110 div.yiv2666361110photo-title a,
#yiv2666361110 div.yiv2666361110photo-title a:active, #yiv2666361110
div.yiv2666361110photo-title a:hover, #yiv2666361110
div.yiv2666361110photo-title a:visited {text-decoration:none;}#yiv2666361110
div#yiv2666361110ygrp-mlmsg #yiv2666361110ygrp-msg p a
span.yiv2666361110yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2666361110
.yiv2666361110green {color:#628c2a;}#yiv2666361110 .yiv2666361110MsoNormal
{margin:0 0 0 0;}#yiv2666361110 o {font-size:0;}#yiv2666361110
#yiv2666361110photos div {float:left;width:72px;}#yiv2666361110
#yiv2666361110photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv2666361110
#yiv2666361110photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2666361110
#yiv2666361110reco-category {font-size:77%;}#yiv2666361110
#yiv2666361110reco-desc {font-size:77%;}#yiv2666361110 .yiv2666361110replbq
{margin:4px;}#yiv2666361110 #yiv2666361110ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv2666361110 #yiv2666361110ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2666361110
#yiv2666361110ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2666361110
#yiv2666361110ygrp-mlmsg select, #yiv2666361110 input, #yiv2666361110 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv2666361110
#yiv2666361110ygrp-mlmsg pre, #yiv2666361110 code {font:115%
monospace;}#yiv2666361110 #yiv2666361110ygrp-mlmsg *
{line-height:1.22em;}#yiv2666361110 #yiv2666361110ygrp-mlmsg #yiv2666361110logo
{padding-bottom:10px;}#yiv2666361110 #yiv2666361110ygrp-msg p a
{font-family:Verdana;}#yiv2666361110 #yiv2666361110ygrp-msg
p#yiv2666361110attach-count span {color:#1E66AE;font-weight:700;}#yiv2666361110
#yiv2666361110ygrp-reco #yiv2666361110reco-head
{color:#ff7900;font-weight:700;}#yiv2666361110 #yiv2666361110ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv2666361110 #yiv2666361110ygrp-sponsor
#yiv2666361110ov li a {font-size:130%;text-decoration:none;}#yiv2666361110
#yiv2666361110ygrp-sponsor #yiv2666361110ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv2666361110
#yiv2666361110ygrp-sponsor #yiv2666361110ov ul {margin:0;padding:0 0 0
8px;}#yiv2666361110 #yiv2666361110ygrp-text
{font-family:Georgia;}#yiv2666361110 #yiv2666361110ygrp-text p {margin:0 0 1em
0;}#yiv2666361110 #yiv2666361110ygrp-text tt {font-size:120%;}#yiv2666361110
#yiv2666361110ygrp-vital ul li:last-child {border-right:none
!important;}#yiv2666361110
