Check two cells within a row and potentially hide the row

**Craig K.** · 10-10-2012, 10:46 AM

I would like to thank you in advance for any help you can provide. I'm new to trying to write code for an excel macro from scratch. I usually record them then tweak.

I need to build a macro that will check the value of two cells within the same row to make sure they are 0 (zero). If they are both 0 I need the row to be hidden. This needs to be done for a static number of rows.

Basically: If cell Q41 = 0 AND AC41 = 0 then hide the row. Continue this until row 78, for the given columns, then stop.

Please let me know if I need to provide more information. Any help is greatly appreciated.

Regards,

Craig K.

**AB33** · 10-10-2012, 11:41 AM

Sub hidezero
Dim LR as long, I as long
LR= cells(rows.count,1).end(xlup).row
For I = LR to 2 step -1

If cells(i,1)= cells(i,2) then
rows(i).hidden= true
end if
Next I
End sub

**Craig K.** · 10-10-2012, 12:12 PM

AB33, I'm not quite sure how to adapt that to my needs. When I enter that code into a macro, I get an error at the very beginning.

**AB33** · 10-10-2012, 12:21 PM

Try this one

Please Login or Register  to view this content.

**AB33** · 10-10-2012, 12:43 PM

Or specific to your request

Please Login or Register  to view this content.

**Craig K.** · 10-10-2012, 01:25 PM

Thank you very much AB33

. This is exactly what I needed. I have a question for you though.

I removed the portions of the code where you defined LR, Dim LR As Long and LR = Cells(Rows.Count, 1).End(xlUp).Row and the code works fine. What's the purpose of having those pieces? Should I put them back in?

**AB33** · 10-10-2012, 02:05 PM

Craig,
Sorry for confusing you and should have explained better. I have removed the unnecessay lines (Please see amended post 6). You do not need to put them back. I is the only varaible we need for your purpose.
The last code is fixed. It means the code loops from 78 back ward to 41. The first code has flexiblity build on it, so if you wish to adapt it , you can use post 5. It loop through last row to row 2(Back) as long as you have data in Column A, ie that is where LR ends. For e.g, If you have ten rows in column A, your last row would be row 10. You can use any column. In my code I assumed and used column A, but you can change it to suite your needs. For e.g, you could have used one of the choosen columns Q, or AC. I hope this helps.