looping through range

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

john.9.williams@bt.com - 25 Mar 2008 14:55 GMT

I have a range withing a list, i wish to loop throught the range
without activating the cells and in each blank cell put todays date
in. I am using a do loop but I am struggling, possible need a for loop
but I am not to good on these, any advice much grateful

John

Reply to this Message

Mike H - 25 Mar 2008 15:06 GMT

Hi,

There are several ways of which this one may meet your needs

Sub versive()
Set myrange = Range("A1:A10") 'Change to suit
For Each c In myrange
If IsEmpty(c) Then
c.Value = Date
End If
Next
End Sub

Mike

> I have a range withing a list, i wish to loop throught the range
> without activating the cells and in each blank cell put todays date
> in. I am using a do loop but I am struggling, possible need a for loop
> but I am not to good on these, any advice much grateful
>
> John

Reply to this Message