VB Code to hide and unhide rows

[ateebali]

Dear Sir
Using following code;

Sub Macro1()
'
' Macro1 Macro
'


'
Range("A7:A8").Select
Selection.EntireRow.Hidden = False


End Sub

It is linked with button, when I click it, its Unhide the rows A7:A8
I need to write the code then when we click again, it should hide A10:A11
then when click again it should hide A13:A14

 

[Fluff]

Try

Sub ateebali2()
   Dim Ar As Areas
   Set Ar = Range("A5:A250").SpecialCells(xlVisible).Areas
   Ar(Ar.Count).Offset(1, 1).Resize(1, 15).ClearContents
   Ar(Ar.Count).EntireRow.Hidden = True
End Sub

 

[ateebali]

works perfect, thanks

 

[Fluff]

You're welcome

 

[ateebali]

Dear Sir
I am sorry to bother you again.

Please see this link;

https://chandoo.org/forum/threads/vb...ss-post.40572/

The code is not working as I have also used one more code in the file, need your help please.

 

[Fluff]

Please do not ask members here to help you on another site (see rule#4)
If you are having problems with the code, then need to specify what those problems are.

 

[ateebali]

All right sir, see below codes;

This is to unhide rows between A5:A250

Sub addrow()
Dim Ar As Areas
Set Ar = Range("A5:A250").SpecialCells(xlVisible).Areas
Ar(Ar.Count).Offset(4).Resize(2).EntireRow.Hidden = False
End Sub

This is to hide rows between A250:A9 as well as it will clear content to next rows means A250 then A246 so on till A10

Sub deleterow()

Dim Ar As Areas
Set Ar = Range("A5:A250").SpecialCells(xlVisible).Areas
Ar(Ar.Count).Offset(1, 1).Resize(1, 15).ClearContents
Ar(Ar.Count).EntireRow.Hidden = True
End Sub



This is last code which I added to clear contents of selected rows and hide Row 9:250
Sub Clear_Me()
'Modified 12/29/2018 2:34:32 AM EST
Application.ScreenUpdating = False
Dim i As Long
For i = 6 To 250 Step 4
Cells(i, 2).Resize(, 15).ClearContents
Next
Range("B9:B250").Select
Range("B250").Activate
Selection.EntireRow.Hidden = True
Range("B6").Select


Application.ScreenUpdating = True
End Sub

 

[Fluff]

The first two codes are the ones I supplied & you said they worked, so what is your question?

 

[ateebali]

Yes sir but when I applied third code, now all rows are hidden, need code to unhide all
Also hide rows code should not work when we press button and only A5:A6 rows are displayed
If the code hide row A5:A6, then unhide row code is not working

 

[Fluff]

How about

Sub deleterow()
 
   Dim Ar As Areas
   Set Ar = Range("A5:A250").SpecialCells(xlVisible).Areas
   If Ar.Count = 1 Then Exit Sub
   Ar(Ar.Count).Offset(1, 1).Resize(1, 15).ClearContents
   Ar(Ar.Count).EntireRow.Hidden = True
End Sub

 

[ateebali]

Thanks this works, now all resolved