Bir düğme ile gizle ve göster yapmak

[aydgur]

Sub Makro3()
'
' Makro3 Makro
'

'
Rows("13:16").Select
Selection.EntireRow.Hidden = True
Range("C19").Select
End Sub
Sub Makro4()
'
' Makro4 Makro
'

'
Rows("12:17").Select
Selection.EntireRow.Hidden = False
End Sub
Yukarıdaki YAKIT satırının altındaki plakaları bir düğme ile gizliyorum ve başka bir düğme ile gösteriyorum.
Yapmak istediğim , normalde plaka satırları gizli iken düğme ile açmak ve "" aynı düğmeye "" basarak tekrar gizlemek.
Nasıl yapabilirim.

 

[Ömer]

Merhaba,

ToggleButton ile yapabilirsiniz. Forumda örnekleri mevcut.

Toggle Button ile Boş Satırları Gizle ve Göster Kod Yardımı

Sayın Uzman Arkadaşlar, Bir çalışma kitabının "VERİ" isimli sayfasının "A3:A1000" aralığındaki bazı satırlarda veri bulunmamaktadır. Bu sayfaya bir Toggle button atayarak, boş satırları gizlemek veya gizli olan satırları görünür hale getirmek istiyorum. Buna göre; 1) Toggle buttona basıldığında...

www.excel.web.tr

.

 

[Tevfik_Kursun]

Merhaba,

Private Sub CommandButton1_Click()
    If CommandButton1.Caption = "SATIR GİZLE" Then
        Call Makro3
        CommandButton1.Caption = "SATIR GÖSTER"
        CommandButton1.BackColor = &HFFFFC0
    Else
        Call Makro2
        CommandButton1.Caption = "SATIR GİZLE"
        CommandButton1.BackColor = &HC0E0FF
    End If
End Sub

Anladığım kadarıyla bu, istediğinizin CommandButton ile yapılmış örneği.
İyi çalışmalar

 

[Seyit Tiken]

Alternatif Çözüm : Bu şekilde kendinize uyarlayın.

Sub gizle_göster()
[a10,a12].EntireRow.Hidden = [a10,a12].EntireRow.Hidden = 0
End Sub

 

[aydgur]

Çok özür dilerim geç teşekkür ediyorum ama hastamız vardı.

 

[aydgur]

Peki ,Seyit beyin gizle_göster makrosunu hücreye gömmek , yani hücre üstünde bir düğmeye değildi hücreye tıkladığımda çalışsın. Olabilir mi?

 

[Seyit Tiken]

Allah Şifalar Versin
Tabi, hücreye Çift Tıklayarak aynı sonuca ulaşabilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
[a10,a12].EntireRow.Hidden = [a10,a12].EntireRow.Hidden = 0
End Sub

 

[aydgur]

Teşekkür ederim şuanda rahatız çok şükür.
Peki aynı sayfada
--Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
[a10,a12].EntireRow.Hidden = [a10,a12].EntireRow.Hidden = 0
End Sub
---Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
[a21,A22].EntireRow.Hidden = [a21,A22].EntireRow.Hidden = 0
End Sub

a birden çok çift tıklama yapmak için araya ne eklemek gerekir ?

 

[Seyit Tiken]

7.mesajımda belirtiğim gibi, hangi hücre(ler) gizle-göster yapılacaksa; virgülden sonra hücre adreslerini yazınız.

 

[aydgur]

Tamam hücreleri yazıyorum da , ayrı ayrı satır grupları için bir sayfada birden fazla çift tıklamayı nasıl yaparım.
Yani yakıt altındakiler için ayrı doğalgaz altındakiler için ayrı çift tıklama yapmak istiyorum.

 

[Seyit Tiken]

Bu şeklide kendinize uyarlamaya çalışın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Target, [a9:a12]) Is Nothing Then GoTo hata
[a10,a12].EntireRow.Hidden = [a10,a12].EntireRow.Hidden = 0
hata:
If Intersect(Target, [a20:a22]) Is Nothing Then GoTo hata2
[a21,a22].EntireRow.Hidden = [a21,a22].EntireRow.Hidden = 0
hata2:
End Sub

 

[Korhan Ayhan]

Alternatif;

A1 hücresine çift tıkladığınızda 10:15 satır aralığı gizlenir ve görünür.
B1 hücresine çift tıkladığınızda 20:25 satır aralığı gizlenir ve görünür.

Kendinize göre uyarlarsınız.

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Alan As Range
    Set Alan = Rows("10:15")
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Cancel = True
        Alan.EntireRow.Hidden = Alan.EntireRow.Hidden = 0
    End If
    
    Set Alan = Rows("20:25")
    If Not Intersect(Target, Range("B1")) Is Nothing Then
        Cancel = True
        Alan.EntireRow.Hidden = Alan.EntireRow.Hidden = 0
    End If
End Sub