select issue

[nedy_03]

Hello,



I've recorded a macro that at a certain point use this selection sintax:



Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H20")



I would need it to run the autofill until it find a blank value on column G. Can u help me on that? ..



Thx,

Nedy

 

[Smitty]

Here's one way:

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> foo()
    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
        i = Cells(Rows.Count, "G").End(xlUp).Row
    Range("H2").AutoFill Destination:=Range("H2:H" & i)
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Note there's no selecting needed.

HTH,

Smitty

 

[nedy_03]

Thx