satır aç kapa

[Barons]

Merhaba

Ekli dosyada "Declarations" yazısına tıkladığımda gizli satırları açmasını ,tekrar tıkladığımda ise aynı satırları kapatmasını yani gizlemesini nasıl sağlayabilirim.?

Yardımcı olacak arkadaşlara Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kod ile deneyin.

[vb:1:4fcdd1ae9e]Dim a As Integer
Sub ackapa()
If a = 0 Then
Rows("4:7").EntireRow.Hidden = True
a = 1
Exit Sub
End If
If a = 1 Then
Rows("4:7").EntireRow.Hidden = False
a = 0
End If
End Sub
[/vb:1:4fcdd1ae9e]

 

[Barons]

Leventm çok teşekkürler

Tam istediğim gibi olmuş...elinize sağlık...Anlamışsınızdır, sanki web sayfası gibi yapmayı düşünüyorum...Tıkladığımda alt menüler açılsın...ancak makro ataması için metin kutusunu kullanmak zorunda kalıyorum...acaba hücreye normal yazı yazarak yapılabilirmi...

tekrar teşekkürler

 

[Levent Menteşoğlu]

Yapılabilir. A4 hücresindeki metin kutusunu silin ve aşağıdaki kodu sayfa1 in kod sayfasına kopyalayın. A4 hücresini tıkladığınızda kod çalışacaktır.

[vb:1:e3c70c1f56]Dim a As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Cells.Address <> "$A$4" Then Exit Sub
If a = 0 Then
Rows("5:6").EntireRow.Hidden = True
a = 1
[a6].Select
Exit Sub
End If
If a = 1 Then
Rows("5:6").EntireRow.Hidden = False
a = 0
[a6].Select
End If
End Sub
[/vb:1:e3c70c1f56]

 

[Barons]

Evet çok teşekkürler

Mükemmel

elinize sağlık sayın leventm