togglebutton da satır ekleme

[honestguy25]

selamlar 1. satırdan 15. satıra kadar bir dizi başlıklar ve alt başlıklar yapıyorum. ve bir kaç tane togglebutton ile alt başlıkları gizleyip açıyorum. acaba mevcut bir başlığa yeni bir alt başlık eklediğimde. togglebuttonların kodları otomatik olarak nasıl değişir.... teşekkürler.

 

[honestguy25]

arkadaşlar bu sorunu nasıl çözebilirim. togglebutton harici de olabilir.

 

[honestguy25]

örnek doksya ekledim. excell 2010.. inceleyebilriseniz sevinirim . togglebutton ile gizleyip açtıım üst başlığın ardına daha sonra başka alt başlıklar eklediğimde togglebutton un kodları otomatik nasıl değişir?

 

[honestguy25]

örnek dosya

 

[honestguy25]

2003-2007 modunda kabul ediyor ornek dosyaları sanırım

 

[NBATMAN]

Kodlar değişsin derken neyi kast ediyorsunuz? aşaşğıda sizin kodlarınız var. Değişmesini istediğiniz yeri işaretler misiniz?

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = "Göster"
ActiveSheet.Rows("8:9").Hidden = True
Else
ToggleButton1.Caption = "Gizle"
ActiveSheet.Rows("8:9").Hidden = Flse
End If
End Sub

 

[honestguy25]

hocam şöyle... mevcut düzene yeni satır eklendiğinde yerler kayacagından artık butonun gizlemesi gereken diyelim ki("8:9") aralığı degılde ("8:12") aralığı oldu.. bunu elle girmeden otomatik olarak yapabilecek bir mantık varmı acaba.. zira pek çok toggle button olacak...