İki Konumlu Butona Macro Atamak

[mtdz]

Ýki Konumlu Butona Macro Atamak

Merhaba, herkese selamlar... :hey:
Denetim araç çubuğundan aldığım iki konumlu butona (üzerine gelince adı Değiştirme Düğmesi olarak gözüküyor) -yani basınca kalıyor, tekrar basınca geri geliyor-, macro atamak istiyorum. Yapmak istediğim ise şu : Birinci basışta 21. satırı gizleyecek, ikinci basışta ise 21. satırı gösterecek. Macrolarım hazır fakat birinci basışta gizliyorum 2. basış için nasıl bir yol izleyeceğimi bilemiyorum. Çözümü bilen lütfen yardımcı olsun.
Kullandığım Kod şu şekilde :
Private Sub ToggleButton1_Click()
' SATIR GİZLE
Rows("21").Select
Selection.EntireRow.Hidden = False
Range("FK21").Select
' SATIR GÃ?STER
Range("FK21").Activate
Selection.EntireRow.Hidden = True
Rows("20").Select
End Sub

 

[Levent Menteşoğlu]

Sanırım toggle butondan bahsediyorsunuz. Aşağıdaki kodu kullanın.

[vb:1:09b9cc260d]Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then Rows("21").EntireRow.Hidden = True
If ToggleButton1.Value = False Then Rows("21").EntireRow.Hidden = False
End Sub
[/vb:1:09b9cc260d]

 

[ALPEN]

[vb:1:a40d76967b]Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
Rows("21:21").EntireRow.Hidden = True
Else
Rows("21:21").EntireRow.Hidden = False
End If
End Sub[/vb:1:a40d76967b]

 

[mtdz]

Teşekkür ederim arkadaşlar, istediğim gibi oldu.
Yine Yeni Birşeyler Ã?ğrendim. :hihoho: