VBA for Hiding Rows

S

SONART

New Member
Joined
Aug 18, 2010
Messages
43
Hi,

Could someone please help urgently with a VBA to hide/unihide rows.

The range starts from constant row 22 (start row) and ends on constant row 83 (end row).

Between these ranges I would like to only show rows with values.

The number of rows I would like to appear from constant row 22 is derived from cell (A7). The value in this cell changes or dynamic and is determined by a count formula ie. row 22 (start row) + counta(range).

Thanks,
SONART
 

Excel Facts

How to total the visible cells?
From the first blank cell below a filtered data set, press Alt+=. Instead of SUM, you will get SUBTOTAL(9,)
Sort by date Sort by votes
I'm not so sure about this, as I didn't recall hiding rows causing calculation (Anyone wishing to comment?), and my need adjusted to your formula, but try:

Rich (BB code): 
Option Explicit
    
Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    Rows("22:83").Hidden = True
    Rows("22:" & Cells(7, 1).Value).Hidden = False
    Application.EnableEvents = True
End Sub

The above goes in the Worksheet's Module. Right-Click the sheet's tab, and select View Code.

Hope that helps,

Mark
 
Upvote 0
SONART said:
The range starts from constant row 22 (start row) and ends on constant row 83 (end row).

Between these ranges I would like to only show rows with values.
Click to expand...
Your question was not entirely clear... the ending part was sort of confusing, but I believe the above quoted section indicates what you want to happen. Here is a macro that should do what you want...

Code: 
Sub HideEmptyRows()
  Dim UnusedColumn As Long
  Const StartRow As Long = 22
  Const EndRow As Long = 83
  UnusedColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, _
                 SearchDirection:=xlPrevious, LookIn:=xlFormulas).Column + 1
  With Range(Cells(StartRow, UnusedColumn), Cells(EndRow, UnusedColumn))
    .FormulaR1C1 = "=IF(COUNTA(RC[-7]:RC[-1]),"""",""X"")"
    .Value = .Value
    .SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True
    .Clear
  End With
End Sub
 
Upvote 0
Please don't post virtually this same thread from here as it could waste someone's time (as it has mine in the past) if they answer the earlier post unknowing the issue has been resolved here.
 
Last edited:
Upvote 0
My apologies Trebor76. This thread is the simplified version or approach of my initial post yesterday. I'll delete it next time.

Thanks GTO your formula works perfectly!!!

Thanks Rick for taking the time to reply.
 
Upvote 0
You must log in or register to reply here.

Similar threads

O
  • Question Question
Somewhat basic UDFs work except that they return #VALUE! error after hiding rows with VBA.
Replies
2
Views
129
OaklandJim
O
N
  • Question Question
Hiding/showing rows between two values
Replies
1
Views
465
Joe4
Joe4
S
  • Question Question
What's the best/most efficient way to set Variables for Columns
Replies
9
Views
228
dmt32
D
R
  • Question Question
Linked dynamic named ranges - unexpected results.
Replies
2
Views
199
Ramses505
R
W
  • Question Question
Creating a 'Reset' button for a text form, plus additional buttons
Replies
2
Views
291
WEB78
W

Forum statistics

Threads
1,224,560
Messages
6,179,520
Members
452,921
Latest member
BBQKING

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top