makro ile satır gizleme

[ITouch87]

Merhabalar.

Öncelikler makrolar konusunda daha yeni olduğum için sorumun kusuruna lütfen bakmayınız.

4.satırdan başlamak kaydıyla 5'er satır atlayarak satır gizlemek istiyorum.Yardımcı olabilir misiniz?

Not:başlangıç satırı 4,bitiş satırı 154 olmalıdır.

 

[Orion1]

buyurun.

Sub gizle59()
Dim i As Long
For i = 4 To 154 Step 4
    Rows(i).Hidden = True
Next i
MsgBox "Satırlar gizlendi." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ITouch87]

Çok teşekkür ederim.Bir soru daha sorabilir miyim

Aynı mantıkta 4,5 sabit 6,7,8,9 gizleme yaparak ardışık olarak bir formül de verebilirseniz çok memnun olurum.Şimdiden teşekkürler.

 

[Orion1]

Buyurun.

Buyurun.

Sub gizle59()
Dim i As Long
For i = 5 To 9
    Rows(i).Hidden = True
Next i
MsgBox "Satırlar gizlendi." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[ITouch87]

Çok teşekkür ederim.

 

[Orion1]

Çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.