Copy information from one cell to many cells based on certain criteria

So here is what I am trying to do. There are two columns (well actually more but I am only concerned with two here). They are a date and mileage and look something like the following.

Date Mileage
-----------------
8/23/06 31
8/24/06
8/23/06
8/25/06 56
8/24/06 12

This continues. Basically, there are multiple rows on the sheet that can have the same day. I want to be able to enter the mileage traveled on a certain day and have it automatically fill in that same mileage for all other rows that have the same day.

The shell would look something like this I would imagine:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Column = 5 Then '5 is the column containing the mileage data

'pseudo code follows

get the date associated with the row where you just entered mileage

for each row
if the date is the same as above
enter Target.Value into column 5 of that row
end if
end for


End If
End Sub

For example, when I enter 31 for 8/23/06 all rows containing 8/23/06 will also get a mileage of 31.

Help please!

Thanks.

Thomas

I pretty much figured it out...the code is below. I have run into other problems that I have posted in a new thread.

Please Login or Register  to view this content.

Wonderful. Thanks for the code!

If the user enters a mileage and there is no date in that row, I don't want to do anything. How can I add that functionality.

Thanks again!

Thomas