- Katılım
- 21 Ekim 2005
- Mesajlar
- 17,094
- Excel Vers. ve Dili
- Excel, 365 - İngilizce
Kod:
Private Sub ToggleButton1_Click()
[COLOR="Red"] If ToggleButton1.Value = True Then
For s = 2 To Sheets.Count
Sheets(s).Visible = 2
ToggleButton1.Caption = "GÖSTER"[/COLOR]
[COLOR="SeaGreen"]Next[/COLOR]
[COLOR="Blue"] Else
For s = 2 To Sheets.Count
Sheets(s).Visible = 1
ToggleButton1.Caption = "GİZLE"[/COLOR]
[COLOR="seagreen"]Next[/COLOR]
End If
End Sub
.