Bisa juga untuk kebutuhan lihat tabel, pake CommandButton2 aja tanpa
commandbutton1, dengan event kliknya berbunyi :
Private Sub CommandButton2_Click()
If Len(CommandButton2.Caption) > 5 Then
CommandButton2.Caption = "Bakul"
Range("c6:f56").EntireRow.Hidden = True
Else
CommandButton2.Caption = "Hide Bakul"
Range("c6:f56").EntireRow.Hidden = False
End If
End Sub
Kid.
2011/8/18 STDEV(i) <[email protected]>
> dear bung utang..
>
> lihat jawaban langasung di sheet1 & modules di VBE
>
> Private Sub CommandButton1_Click()
> Rows("6:56").Select
> Selection.EntireRow.Hidden = True
> CommandButton1.Visible = False
> CommandButton2.Visible = True
> End Sub
>
> Private Sub CommandButton2_Click()
> Range("c6:f56").Select
> Selection.EntireRow.Hidden = False
> CommandButton1.Visible = True
> CommandButton2.Visible = False
> End Sub
>
>
>
>
> 2011/8/18 utthank abe <[email protected]>
> >
> > berkat agank2 di "belajar xl" za jadi ketagihan makro :)
> > iniy ada pertanyaan lagi mengenai hide, copy rumuz yang nda makan tenaga,
> > berikut lampiran filenya
> > tq.
> > --
> > R125
>
