satırları gizleme?

[hrtsvd]

arkadaşlar 1 excel sayfamın içinde 60-70 sayfa var ve zaman zaman hepsinde aynı satır aralıklarını gizlemem yada tekrardan göstermem gerekiyor.. bunu her sayfada gizle-göster yapmak işkence kısa yolunu bilen arkadaş varsa söyleyebilirmi?? teşekkür ederim..

 

[Murat OSMA]

Tüm sayfalardaki 9 ile 16. satır aralığını gizlemek için aşağıdaki kodu deneyebilirsiniz...

[SIZE="2"]Sub Emre()
    Dim i As Integer
    For i = 1 To Sheets.Count
    Sheets(i).Rows("9:16").Hidden = True
    Next i: i = Empty
End Sub[/SIZE]

 

[Seyit Tiken]

Bu şekilde deneyiniz. Aynı düğmede hem satırları gizler hemde gösterir.

For g = 1 To Sheets.Count
Sheets(g).[a10:a20].EntireRow.Hidden = Not Sheets(g).[a10:a20].EntireRow.Hidden = True
Next

 

[parametre]

bu kodlarda ornegin bir hucreye farklı değerler yazılırsa onları gizleme nasıl olabilir

ornek a3 veri yazdık orada yazılı olan b8 :d20 aralıgını nasıl belirtebiliriz kolay gelsin iyi çalısmalar

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
For g = 1 To Sheets.Count
If Not [a3] = "" Then
Sheets(g).[b8:b20].EntireRow.Hidden = 0
Else
Sheets(g).[b8:b20].EntireRow.Hidden = 1
End If
Next
End Sub

 

[parametre]

Tesekkur ederiz. Aralıgı hucreye baglı olarak nasıl belirtebiliriz yani belirtilen aralıgı hucreden alacak

 

[Seyit Tiken]

Bu şekilde deneyiniz.

On Error Resume Next
a = InputBox("Gizlenecek Satır No Girin")
If a = "" Then Exit Sub
For g = 1 To Sheets.Count
Sheets(g).Rows(a).Hidden = 1
Next

 

[parametre]

tesekkur ederim