#1
|
|||
|
|||
how to view hidden rows
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 |
#2
|
|||
|
|||
If row 6 is hidden by an AutoFilter you will have to turn off the AutoFilter to see that row again.
|
#3
|
|||
|
|||
Quote:
that should be seen others should hidden |
#4
|
|||
|
|||
Quote:
input 2,4,6 any mirco to given rows to see |
#5
|
|||
|
|||
Quote:
this may be usefull |
#6
|
|||
|
|||
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 |
#7
|
|||
|
|||
Thanks for this nice information
|
#8
|
|||
|
|||
Quote:
|
#9
|
|||
|
|||
No idea what you really mean.
|
#10
|
|||
|
|||
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 |
#11
|
|||
|
|||
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 |