Solved

Excel: Macro to Hide Rows Based on Column Value

Posted on 2014-09-24
2
616 Views
Last Modified: 2014-09-25
Hello,

Seeking help to code a macro that when activated will

1. Hide rows 10-29 if a value in column AB says 'Hide'

E.g if AB10 says 'Hide' - then row 10.

2. Print the sheet

3. Unhide rows 10-29 (regardless of the AB column values).

What's the best way of doing this?

Cheers.
0
Comment
Question by:dabug80
2 Comments
 
LVL 24

Accepted Solution

by:
Phillip Burton earned 500 total points
ID: 40343397
Sub HidenThenPrint()
For introw = 10 To 29
    If Cells(introw, 28) = "Hide" Then
        Rows(introw).Hidden = True
    End If
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Rows("10:29").EntireRow.Hidden = False
End Sub

Open in new window

0
 
LVL 1

Author Closing Comment

by:dabug80
ID: 40345173
Great. Thanks for your help
0

Featured Post

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Freeze panes is an option within all variants of Excel to enable parts of a sheet to remain stationary when the cursor is in another part of the sheet. This is a very useful feature which is overlooked or under used.
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

813 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now