Loop and copy

[seacrest]

I need a macro that will look down col D Range(D5:D45)
then if col E > 1
copy cell in col H
Paste in col D

 

[lionelnz]

This is not clear. Do you mean you want to look down & see if cells in range(e5:E45) >1 copy cell in the same row of ColH to ColD?

 

[seacrest]

That is correct

 

[HarryS]

sub tryThis
for rr = 5 to 45
if cells(rr,5)>1 then
cells(rr,4)=cells(rr,8)

next rr

end sub

 

[seacrest]

thanks but that diddn't work

 

[HarryS]

<TABLE class=tborder id=post1589491 cellSpacing=0 cellPadding=6 width="100%" align=center border=0><TBODY><TR vAlign=top><TD class=alt1 id=td_post_1589491 style="BORDER-RIGHT: #ffffff 1px solid">Quote
I need a macro that will look down col D Range(D5:D45)
then if col E > 1
copy cell in col H
Paste in col D
<!-- / message --></TD></TR><TR><TD class=alt2 style="BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 0px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #ffffff 1px solid">

It should have been close.
Why are we looking down column D when the action is dependant on column E

</TD><TD class=alt1 style="BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 0px solid; BORDER-LEFT: #ffffff 0px solid; BORDER-BOTTOM: #ffffff 1px solid" align=right><!-- controls --></TD></TR></TBODY></TABLE>

 

[Peter_SSs]

thanks but that diddn't work

It is usually more helpful if you describe in what way it didn't work. For example:
- error message (what message and/or what line of code)
- did nothing.
- did the wrong thing (What, where etc)

However, in this case, I think I can see the problem (and I suspect Harry didn't test his code before posting. )

I'll work with his and make a couple of modifications. Try this:

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> tryThis()<br>    <SPAN style="color:#00007F">Dim</SPAN> rr <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN><br>    <br>    <SPAN style="color:#00007F">For</SPAN> rr = 5 <SPAN style="color:#00007F">To</SPAN> 45<br>        <SPAN style="color:#00007F">If</SPAN> Cells(rr, 5) > 1 <SPAN style="color:#00007F">Then</SPAN><br>            Cells(rr, 4) = Cells(rr, 8)<br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>    <SPAN style="color:#00007F">Next</SPAN> rr<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[HarryS]

Sorry about that was thinking of

if cells(rr,5)>1 then cells(rr,4)=cells(rr,8)

but stupidity struck me as a blockhead instead of a block if then end if

 

[seacrest]

Thankyou for your help