Excel VBA - I'm looking for code that will loop through a column and return a value to another column if a condition is true.
I have data in Column H of my excel file. I want to hit a button on the sheet that will loop through the data in column H and if the data is not blank or a zero i want the value that is in that cell to be placed in cell J1. Then if it finds another value that is not blank or a zero i want that value place in cell J2 and so on.
If my H column looked like this:
H1 = Green
H3 = 0
H4 = 0
H5 = Blue
I would want my J column to look like this:
LR= .cells(.cells.rows.count, "H").end(xlup)
For each c in activesheet.range("h1:h"&L
If c.value<>"" and c.value<>0 then