hiding multiple lines in excel

[Khardy3352]

I am using custom views from a master document to filter information. I would
like to hide evry 2nd & 3rd row. Because the document has approx 2000+ rows,
is there a way to do so without recording a macro while I manually hide every
2nd & 3rd row?

Be kind, I am a rookie

 

[Don Guillett]

Sub hiderows()
For i = Cells(rows.Count, "a").End(xlUp).row To 2 Step -3
rows(i).Hidden = True
Next i
End Sub

 

[Khardy3352]

Mr Guillet
Thank you . Because I am so new at this, the only macros I have used are
those which I record. My assumption is that once I have the desired columns
hidden, I select tools - macros-create-type a name- copy and paste this in
the window that comes up when I select create. What do I do to taylor it to
my document? I want to add a keyboard shortcut as well (i.e. ctrl+p to open
the view instead of using the menu)

 

[Gord Dibben]

Alt + F11 to open the VB Editor.

CTRL + r to open the Project Explorer.

Select your workbook/project and right-click>insert>module.

Paste the code into that module.

You may want to revise the code to hide every 2nd and 3rd row which I assume
is rows 2,3,5,6,8,9 etc.

Sub hiderows()
For i = Cells(Rows.Count, "a").End(xlUp).Row - 1 To 2 Step -3
Rows(i).Resize(2).Hidden = True
Next i
End Sub

Alt + q to return to the Excel window.

Tools>Macro>Macros and select your hiderows macro name and "Options"

Enter your shortcut key here and OK.


Gord Dibben MS Excel MVP

 

[Khardy3352]

Thank you so much for your explanation. I appreciate your help!