asked on
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
H2 =
H3 = 0
H4 = 0
H5 = Blue
I would want my J column to look like this:
J1= Green
J2= Blue
If my H column looked like this:
H1 = Green
H2 =
H3 = 0
H4 = 0
H5 = Blue
I would want my J column to look like this:
J1= Green
J2= Blue
Microsoft ExcelVBA
Last Comment
Subodh Tiwari (Neeraj)
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
With activesheet
LR= .cells(.cells.rows.count, "H").end(xlup)
End with
For each c in activesheet.range("h1:h"&L
If c.value<>"" and c.value<>0 then
C.offset(0,-2).value=c.val
End if
Next c
End sub