<div>
Sub test<br />
<br />
With activesheet <br />
LR= .cells(.cells.rows.count, &quot;H&quot;).end(xlup)<br />
End with<br />
For each c in activesheet.range(&quot;h1:h&quot;&amp;L<wbr />R)<br />
If c.value&lt;&gt;&quot;&quot; and c.value&lt;&gt;0 then<br />
C.offset(0,-2).value=c.val<wbr />ue<br />
End if <br />
Next c<br />
End sub
</div>


Sub test

With activesheet
LR= .cells(.cells.rows.count, "H").end(xlup)
End with
For each c in activesheet.range("h1:h"&LR)
If c.value<>"" and c.value<>0 then
C.offset(0,-2).value=c.value
End if
Next c
End sub

<div>
<div class="content wysiwyg-content">
I have data in Column H of my excel file. &nbsp;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. &nbsp;Then if it finds another value that is not blank or a zero i want that value place in cell J2 and so on.<br />
<br />
If my H column looked like this:<br />
H1 = Green<br />
H2 = <br />
H3 = 0<br />
H4 = 0<br />
H5 = Blue<br />
<br />
I would want my J column to look like this:<br />
J1= Green<br />
J2= Blue
</div>
</div>


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

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.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.