3 atlayarak satır gizle göster

[yalovam77]

merhabalar..

Sayın üstadlar bir buton aracılığı ile a sütununda A5 hücresinden başlayıp 3 hücre atlayarak yani a5-a8-a11 gibi a5-a500 arasında boş olan satırları gizlenecek ve satırlar gizlendiği zaman butonda göster yazacak ve göster dediğimde gizlenen satırlar gösterilecek bunu nasıl yaparım.

 

[halit3]

merhabalar..

Sayın üstadlar bir buton aracılığı ile a sütununda A5 hücresinden başlayıp 3 hücre atlayarak yani a5-a8-a11 gibi a5-a500 arasında boş olan satırları gizlenecek ve satırlar gizlendiği zaman butonda göster yazacak ve göster dediğimde gizlenen satırlar gösterilecek bunu nasıl yaparım.

bunu denermisiniz.

Sub gizle()
For i = 5 To 500
If Cells(i, 1).Value = "" Then
Rows(i).EntireRow.Hidden = True
End If
i = i + 2
Next
End Sub

Sub göster()
Rows("5:500").EntireRow.Hidden = False
End Sub

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "GİZLE" Then
For i = 5 To 500
If Cells(i, 1).Value = "" Then
Rows(i).EntireRow.Hidden = True
End If
i = i + 2
Next
CommandButton1.Caption = "GÖSTER"
Exit Sub
Else
Rows("5:500").EntireRow.Hidden = False
CommandButton1.Caption = "GİZLE"
Exit Sub
End If
End Sub

 

[yalovam77]

3 atlayarak gizle göster

Merhaba üsdadım
öncelikle özür dilerim. sorduğum soruyu yanlış sormuşum hakkınızı helal edin lütfen, A5 ten başlarken A5 boş ise altındaki A6 ve A7 de üç satır birden gizlenecek üç atlayarak kontrol edilecek ama altında satırlarla birlikte üç satırda gizlenecek soruma birde örnek ekledim. şimdiden teşekkür ederim

 

[halit3]

Rows(i).EntireRow.Hidden = True

yukarıdakinni aşağıdaki ile değiştiriniz.

Rows(i & ":" & i + 2).EntireRow.Hidden = True

 

[yalovam77]

teşekkür

üsdadım teşekkür ederim.sorduğum sorunun cevabını aldım. hayırlı günler