[belajar-excel] Menyembunyikan kolom berdasarkan semester dan jenjang [1 Attachment]

classic Classic list List threaded Threaded
4 messages Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

[belajar-excel] Menyembunyikan kolom berdasarkan semester dan jenjang [1 Attachment]

Milis Belajar Excel mailing list
Mohon bantuan para master excel dengan persoalan yg saya hadapi,file
terlampir
Atas bantuannya saya ucapkan terima kasih

SOAL PUSINGKU.xlsm (37K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Menyembunyikan kolom berdasarkan semester dan jenjang [1 Attachment]

Milis Belajar Excel mailing list
Barang kali begini:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells = Range("C2") Then
Rows("9:41").Hidden = False
If Range("C2") = "I" Then Rows("25:40").Hidden = True
If Range("C2") = "II" Then Rows("10:24").Hidden = True
End If
End Sub

Private Sub Worksheet_Activate()
Columns("A:N").Hidden = False
If Sheet1.Range("C6") = "MI" Then
Columns("F:M").Hidden = True
If Sheet1.Range("C2") = "I" Then Columns("D:E").Hidden = True
If Sheet1.Range("C2") = "II" Then Columns("B:C").Hidden = True
End If
If Sheet1.Range("C6") = "MTS" Then
Columns("J:M").Hidden = True
Columns("B:E").Hidden = True
If Sheet1.Range("C2") = "I" Then Columns("H:I").Hidden = True
If Sheet1.Range("C2") = "II" Then Columns("F:G").Hidden = True
End If
End Sub



On 07/04/2017 6:19, farud oke [hidden email] [belajar-excel] wrote:
>
> Mohon bantuan para master excel dengan persoalan yg saya hadapi,file
> terlampir
> Atas bantuannya saya ucapkan terima kasih
>
>


Copy of SOAL PUSINGKU.xlsm (34K) Download Attachment
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Menyembunyikan kolom berdasarkan semester dan jenjang

Milis Belajar Excel mailing list
Untuk penulisannya ditulis di module ato di sheetnya mas..


Pada tanggal 10 Apr 2017 2.30 PM, "nangagus [hidden email]
[belajar-excel]" <[hidden email]> menulis:


>
>
> Barang kali begini:
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Target.Cells = Range("C2") Then

> Rows("9:41").Hidden = False
> If Range("C2") = "I" Then Rows("25:40").Hidden = True
> If Range("C2") = "II" Then Rows("10:24").Hidden = True
> End If
> End Sub
>
> Private Sub Worksheet_Activate()
> Columns("A:N").Hidden = False
> If Sheet1.Range("C6") = "MI" Then
> Columns("F:M").Hidden = True
> If Sheet1.Range("C2") = "I" Then Columns("D:E").Hidden = True
> If Sheet1.Range("C2") = "II" Then Columns("B:C").Hidden = True
> End If
> If Sheet1.Range("C6") = "MTS" Then
> Columns("J:M").Hidden = True
> Columns("B:E").Hidden = True
> If Sheet1.Range("C2") = "I" Then Columns("H:I").Hidden = True
> If Sheet1.Range("C2") = "II" Then Columns("F:G").Hidden = True
> End If
> End Sub
>
>
>
> On 07/04/2017 6:19, farud oke [hidden email] [belajar-excel] wrote:
>
>
>
> Mohon bantuan para master excel dengan persoalan yg saya hadapi,file
> terlampir
> Atas bantuannya saya ucapkan terima kasih
>
>
>
>
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

Re: [belajar-excel] Menyembunyikan kolom berdasarkan semester dan jenjang

Milis Belajar Excel mailing list
di sheet,

coba buka lampiran email yang dulu


On 10/04/2017 20:21, farud oke [hidden email] [belajar-excel] wrote:

>
> Untuk penulisannya ditulis di module ato di sheetnya mas..
>
>
> Pada tanggal 10 Apr 2017 2.30 PM, "nangagus [hidden email]
> <mailto:[hidden email]> [belajar-excel]"
> <[hidden email] <mailto:[hidden email]>>
> menulis:
>
>     Barang kali begini:
>     Private Sub Worksheet_Change(ByVal Target As Range)
>     If Target.Cells = Range("C2") Then
>     Rows("9:41").Hidden = False
>     If Range("C2") = "I" Then Rows("25:40").Hidden = True
>     If Range("C2") = "II" Then Rows("10:24").Hidden = True
>     End If
>     End Sub
>
>     Private Sub Worksheet_Activate()
>     Columns("A:N").Hidden = False
>     If Sheet1.Range("C6") = "MI" Then
>     Columns("F:M").Hidden = True
>     If Sheet1.Range("C2") = "I" Then Columns("D:E").Hidden = True
>     If Sheet1.Range("C2") = "II" Then Columns("B:C").Hidden = True
>     End If
>     If Sheet1.Range("C6") = "MTS" Then
>     Columns("J:M").Hidden = True
>     Columns("B:E").Hidden = True
>     If Sheet1.Range("C2") = "I" Then Columns("H:I").Hidden = True
>     If Sheet1.Range("C2") = "II" Then Columns("F:G").Hidden = True
>     End If
>     End Sub
>
>
>
>     On 07/04/2017 6:19, farud oke [hidden email]
>     <mailto:[hidden email]> [belajar-excel] wrote:
>>
>>     Mohon bantuan para master excel dengan persoalan yg saya
>>     hadapi,file terlampir
>>     Atas bantuannya saya ucapkan terima kasih
>>
>
>

Loading...