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]

How about

Sub ateebali()
   Dim Ar As Areas
   Set Ar = Range("A5:A250").SpecialCells(xlVisible).Areas
   Ar(Ar.Count).EntireRow.Hidden = True
End Sub

 

[ateebali]

Perfect Sir, you are excel Tiger, really appreciated

 

[Fluff]

You're welcome & thanks for the feedback

 

[ateebali]

Dear Air,
One more query, like when they are hiding rows, it should also clear contents from column B:P of hidden rows

 

[Fluff]

Like

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

 

[ateebali]

This works perfect, thanks

 

[Fluff]

You're welcome

 

[ateebali]

Dear Sir
This code also clearing content of ROW# 13 which is header and which I don't want to clear content
What I want;
It hide Row# 13 & 14 but clear content only row# 14 (column: B:P)
Next Click, It should hide Row# 9 & 10 but clear content only Row: 10

 

[ateebali]

Dear Si, please respond back, thanks a lot in advance

 

[mole999]

Dear Si, please respond back, thanks a lot in advance

This forum has volunteers only, they do what they can when they can, they are not here continuously, and are unpaid, and they can be anywhere in any timezone