how to view hidden rows

JBeaucaire · #1 01-24-2012, 06:43 AM

If any rows are hidden with an AutoFilter, this won't work. Otherwise, this will hide all rows on the activesheet except the ones that match your input value:

Code:

Sub ShowOnlyCertainRows() 
Dim RowNum As Long, LR As Long, Rw As Long  
RowNum = Application.InputBox("Show rows that are multiple of what number?", "Multiples of...", 3, Type:=1) 
If RowNum = 0 Then Exit Sub  

Application.ScreenUpdating = False 
With ActiveSheet  
   .UsedRange.Rows.Hidden = False       'unhides all rows, doesn't work on AutoFilter
    LR = .Range("A" & .Rows.Count).End(xlUp).Row  
    For Rw = 1 To LR 
        If .Range("A" & Rw).Row Mod RowNum <> 0 Then .Rows(Rw).Hidden = True 
    Next Rw 
End With 

Application.ScreenUpdating = True  
End Sub

Also posted: http://www.mrexcel.com/forum/showthread.php?t=607766

gsrikanth · #2 01-24-2012, 10:13 PM

Quote:

Originally Posted by JBeaucaire

If any rows are hidden with an AutoFilter, this won't work. Otherwise, this will hide all rows on the activesheet except the ones that match your input value:

Code:

Sub ShowOnlyCertainRows() 
Dim RowNum As Long, LR As Long, Rw As Long  
RowNum = Application.InputBox("Show rows that are multiple of what number?", "Multiples of...", 3, Type:=1) 
If RowNum = 0 Then Exit Sub  

Application.ScreenUpdating = False 
With ActiveSheet  
   .UsedRange.Rows.Hidden = False       'unhides all rows, doesn't work on AutoFilter
    LR = .Range("A" & .Rows.Count).End(xlUp).Row  
    For Rw = 1 To LR 
        If .Range("A" & Rw).Row Mod RowNum <> 0 Then .Rows(Rw).Hidden = True 
    Next Rw 
End With 

Application.ScreenUpdating = True  
End Sub

Also posted: http://www.mrexcel.com/forum/showthread.php?t=607766

if i want to give information like i want view 2-10, are 2, 10, 11 etc., three inputs at a time

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
hidden rows	gsrikanth	Excel	5	01-19-2012 02:40 PM
merging rows and creating sub-rows	gib65	Excel	2	12-09-2011 02:09 PM
Hidden tables?	dluhop	Word Tables	1	09-04-2011 02:41 AM
Hidden style applied over already-hidden text.	christie	Word	1	08-17-2011 09:10 AM
Hidden address	nicolapiva	Outlook	2	11-16-2010 12:12 AM