how to view hidden rows

gsrikanth · #1 01-23-2012, 10:24 PM

i want to view the particular hidden row,
when filter then also it was hidden

that time also i want to see

i.e., a6

JBeaucaire · #2 01-23-2012, 10:52 PM

If row 6 is hidden by an AutoFilter you will have to turn off the AutoFilter to see that row again.

gsrikanth · #3 01-23-2012, 11:12 PM

Quote:

Originally Posted by JBeaucaire

If row 6 is hidden by an AutoFilter you will have to turn off the AutoFilter to see that row again.

i want see row 6, 10, 13, 15, 17 soon up to 3000

that should be seen others should hidden

gsrikanth · #4 01-24-2012, 03:20 AM

Quote:

Originally Posted by gsrikanth

i want see row 6, 10, 13, 15, 17 soon up to 3000

that should be seen others should hidden

given rows only shown other hide
input 2,4,6
any mirco to given rows to see

gsrikanth · #5 01-24-2012, 04:21 AM

Quote:

Originally Posted by gsrikanth

given rows only shown other hide
input 2,4,6
any mirco to given rows to see

Worksheets("Sheet1").Rows(25).PageBreak = xlPageBreakNone
this may be usefull

JBeaucaire · #6 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

kabir5800 · #7 01-24-2012, 04:43 PM

Thanks for this nice information

gsrikanth · #8 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

JBeaucaire · #9 01-25-2012, 01:57 AM

No idea what you really mean.

gsrikanth · #10 01-25-2012, 03:37 AM

Quote:

Originally Posted by JBeaucaire

No idea what you really mean.

list i have should be seen, others should hide

i have all whole list
like i give in input like 1,10,11,100,101,102,150,149

differentiate with comma

other then above number other should hidden

JBeaucaire · #11 01-27-2012, 05:29 AM

This version will hide all rows, then unhide the ones you have entered in popup box:

Code:

Option Explicit

Sub ShowOnlyCertainRows()
Dim RowNums As Variant, LR As Long, Rw As Long

RowNums = Application.InputBox("Show which rows?", "Show", "1,10,11,100,101,102,150", Type:=2)
If RowNums = "False" Then Exit Sub

Application.ScreenUpdating = False
With ActiveSheet
    .UsedRange.Rows.Hidden = True       'hides all rows, doesn't work on AutoFilter
    RowNums = Split(RowNums, ",")
    
    For Rw = LBound(RowNums) To UBound(RowNums)
        .Rows(RowNums(Rw)).Hidden = False
    Next Rw
End With

Application.ScreenUpdating = True
End Sub

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