Dear Para Master,
Saya punya script seperti ini :
Private Sub Worksheet_Activate()
Dim ans As String
ans = Sheet13.Range("B8").Value
Sheet13.Activate
Range(Cells(12, 2), Cells(ans, 2)).EntireRow.Hidden = False
If Sheet13.Range("B3").Value <> "" And Sheet13.Range("X70").Value > 0 And
Sheet13.Range("AK70").Value > 0 And Sheet13.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
ElseIf Sheet13.Range("B3").Value <> "" And Sheet13.Range("X70").Value > 0 And
Sheet13.Range("AK70").Value > 0 And Sheet13.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
ElseIf Sheet13.Range("B3").Value <> "" And Sheet13.Range("X70").Value > 0 And
Sheet13.Range("AK70").Value = 0 And Sheet13.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 :
[cid:image001.png@01D0915A.E7461B80]
File terlalu besar sehingga tidak dapat saya lampirkan.
Pertanyaan saya adalah apa yang harus dirubah pada script VBAnya kalau pada
saat saya klik list pilihan di cell “B3” baris dan kolom terhide otomatis?.
Note : report akan terhide sesuai harapan setelah saya berpindah dahulu ke
sheet lain.
Salam,
Dede
________________________________
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.
