- Katılım
- 3 Aralık 2004
- Mesajlar
- 6
İhtiyacım olan şey, bir tek butonla istenilen sayıda satırın ilk basışta gizlenmesi ikinci basışta gösterilmesi.
Ãimdiden teşekkürler.
Ãimdiden teşekkürler.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Satır Göster"
a = InputBox(prompt:="Gizlemek İstediğiniz Satırı Yazın A1..B1 Gibi")
Range(a).Select
Selection.Rows.EntireRow.Hidden = True
MsgBox "Gizlendi"
Else
ToggleButton1.Caption = "Satır Gizlendi"
a = InputBox(prompt:="Görmek İstediğiniz Satırı Yazın A1..B1 Gibi")
Range(a).Select
Selection.Rows.EntireRow.Hidden = False
MsgBox "Satır Gösterildi"
End If
End Sub