Satırları başlık altında gizleyip tekrar açmak

[carbine]

Arkadaşlar örnekte koyduğum dosyada yapmak istediğim şeyi anlatmaya çalıştım.
Şimdi benim bir hesap tablom var bunu devamlı aşşağı kopyalıyarak devam ediyorum hesaplarımı yapmaya. Ancak bi yerden sonra yukardakilere geri dönüp tekrar aşşağıya gerekli yerleri kopyalamak zor oluyor.Benim bir başlığım olsun ona çift tıklayınca altındaki belirli sayıdaki satırlar başlığın altına gizlensin istiyorum böyle birşey yapmak mümkünmü ?

 

[Merhum İdris SERDAR]

Arkadaşlar örnekte koyduğum dosyada yapmak istediğim şeyi anlatmaya çalıştım.
Şimdi benim bir hesap tablom var bunu devamlı aşşağı kopyalıyarak devam ediyorum hesaplarımı yapmaya. Ancak bi yerden sonra yukardakilere geri dönüp tekrar aşşağıya gerekli yerleri kopyalamak zor oluyor.Benim bir başlığım olsun ona çift tıklayınca altındaki belirli sayıdaki satırlar başlığın altına gizlensin istiyorum böyle birşey yapmak mümkünmü ?

.

Dosyanız ekte.

.

 

[muygun]

Merhaba;
Otomatik süz ile bir örnekte benden
İyi çalışmalar.

 

[carbine]

Arkadaşlar teşekkür ederim. Yurttaş senin gönderdiğin benim işime yarıyor ancak bunu kendi excel dosyama nası monte edebilirim?

 

[Merhum İdris SERDAR]

Arkadaşlar teşekkür ederim. Yurttaş senin gönderdiğin benim işime yarıyor ancak bunu kendi excel dosyama nası monte edebilirim?

2 tane toggle button eklyip, bunların kodlarına da:

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


Private Sub ToggleButton2_Click()
If ToggleButton2 = True Then
    ToggleButton2.Caption = "Göster"
    ActiveSheet.Rows("14:24").Hidden = True
    Else
    ToggleButton2.Caption = "Gizle"
    ActiveSheet.Rows("14:24").Hidden = False
End If
End Sub

yazmanız gerekir.

 

[carbine]

Ben bunları nası yapacağımı bir bulduktan sonra yapmaya çalışim.Toggle butonu nası ekliyeceğimi bile bilmiyorum.Yardımlarınız için teşekkürler yinede

 

[suatbayhan]

Merhaba sayın carbine,
Artık o kadarı için sayın Yurttas hocamızı rahatsız etmeyelim.
Ben kısaca anlatayım.
Office 2007 için
Geliştirici-Ekle-ActiveX Denetimleri
Diğer Denetimler (En altta sağda)
Açılan menüden
Microsoft Forms 2.0 ToggleButton
tıklayın.
Tamam
Sonra Butonu eklemek istediğiniz yere gelip çizin.
Diğer butonu çizmek için de aynı işlemi yapıyorsunuz.
Kodları kopyalayın,
Geliştirici-Visual Basic
Buraya yapıştırın.
Dosyayı kaydedin.
Dosyadan çıkıp tekrara açarsanız tamamdır.
Selamlar...

 

[carbine]

Teşekkürler suatbayhan
şimdi şöyle bir hata mesajı alıyorum aşşagıdaki özellikler makro içermeyen çalışma kitaplarına kaydedilemez
Bu durumu nasıl düzeltebilirim?

 

[suatbayhan]

Sayın carbine,
Ben farklı bir örnekte denedim bir sorun vermedi.
Siz ne yapmaya çalıştığınızda bu hatayı verdi.
Ya da dosyayı eklerseniz belki bir çözüm bulunabilir.
Selamlar...

 

[carbine]

O zaman ben dosyayı paylaşım dediğiniz gibi birde siz denerseniz.
Dosya içinde diğer yapamadığım şeyleride yazdım. çok teşekkür ederim tekrardan

 

[suatbayhan]

Merhaba sayın carbine,
Umarım işinizi görmüştür.
Selamlar...

 

[carbine]

Sayın Suatbayhan
yardımlarınız için çok teşekkür ederim.
Ama ben bu şekilde 100 sayfa 150 sayfa yapıyorum ve bunların hepsine buton eklemek çok uzun sürecek bir iş sanırım bu çözüm dışındada birşey yapamıyoruz.Bu nedenle normal bir şekilde çalışmaya devam etmek en hayırlısı olacak snırım
Yardımlarınız için tekrar teşekkür ederim.

 

[ecglyn]

Bu sadece satırları gizlemek için. Peki bu işlemi istenilen hücre veya hücreler için yapma şansımız var mı ??