Buton ve satır gizle-göster makrosu

[kamil_hoca]

İ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.

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin. Kod seçili alanları gizleyecektir. Koddaki selection.rows yerine bir aralıkta yazabilirsiniz. Ã?rneğin; [a20:a25].EntireRow.Hidden = True



[vb:1:ca42032ef9]Sub gizle()
Selection.Rows.EntireRow.Hidden = True
End Sub

Sub goster()
Selection.Rows.EntireRow.Hidden = False
End Sub
[/vb:1:ca42032ef9]

 

[Levent Menteşoğlu]

Pardon siz tek butonlu istemiştiniz. Bu durumda togglebuton kullanın ve aşağıdaki kodları kullanın.

[vb:1:c0a7692707]Private Sub ToggleButton1_Click()
Selection.Rows.EntireRow.Hidden = False
If ToggleButton1.Value = True Then Selection.Rows.EntireRow.Hidden = True
End Sub
[/vb:1:c0a7692707]

 

[kamil_hoca]

İlginize teşekkürler leventm, deneyeceğim.

 

[xxrt]

ToggleButton ile Satır Gizlemek Göstermek

Sayın leventm'nin ilk mesajından sonra bunu hazırlamıştım fakat daha sonraki mesajı ile sorunuza tam cevabı vermiş.Hazırlamışken örnek olsun diye yolluyorum..

Çalışma Sayfasına Denetim Araç Kutusu>>Değiştirme Düğmesi ekliyerek aşağıdaki kodları değiştirme düğmesine çift tıklayarak yazınız..

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