hiding select rows in sheets
I utilise a number of rows into which I place the steps of a chemical process.
The rows for the chemical steps are between row 20 and 87. I enter a chemical process which takes a number of these rows to complete. I then have to manually hide the unused rows as they are not required for printing and for getting to other rows below row 87. Is there a macro/code I can use which will check for empty cells in column B (where the process is entered) in rows 20-87 so that these rows will be automatically hidden. I already have a macro to unhide these cells. I would need the code to work in any selected sheet as the chemical process stages may be entered over 10 different sheets (St1, St2, St3 etc). can anyone help? |
hiding select rows in sheets
Hi,
Put this in a general module, it works on the active sheet. Note that isempty means exactly that, a formula that returns Null isn't empty. Sub stance() Dim MyRange As Range Set MyRange = ActiveSheet.Range("B20:B87") For Each c In MyRange If IsEmpty(c) Then c.EntireRow.Hidden = True End If Next End Sub Mike "Roger on Excel" wrote: I utilise a number of rows into which I place the steps of a chemical process. The rows for the chemical steps are between row 20 and 87. I enter a chemical process which takes a number of these rows to complete. I then have to manually hide the unused rows as they are not required for printing and for getting to other rows below row 87. Is there a macro/code I can use which will check for empty cells in column B (where the process is entered) in rows 20-87 so that these rows will be automatically hidden. I already have a macro to unhide these cells. I would need the code to work in any selected sheet as the chemical process stages may be entered over 10 different sheets (St1, St2, St3 etc). can anyone help? |
hiding select rows in sheets
Thanks Mike,
Roger "Mike H" wrote: Hi, Put this in a general module, it works on the active sheet. Note that isempty means exactly that, a formula that returns Null isn't empty. Sub stance() Dim MyRange As Range Set MyRange = ActiveSheet.Range("B20:B87") For Each c In MyRange If IsEmpty(c) Then c.EntireRow.Hidden = True End If Next End Sub Mike "Roger on Excel" wrote: I utilise a number of rows into which I place the steps of a chemical process. The rows for the chemical steps are between row 20 and 87. I enter a chemical process which takes a number of these rows to complete. I then have to manually hide the unused rows as they are not required for printing and for getting to other rows below row 87. Is there a macro/code I can use which will check for empty cells in column B (where the process is entered) in rows 20-87 so that these rows will be automatically hidden. I already have a macro to unhide these cells. I would need the code to work in any selected sheet as the chemical process stages may be entered over 10 different sheets (St1, St2, St3 etc). can anyone help? |
All times are GMT +1. The time now is 08:38 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com