need macro to add 100 years to a selected range.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

aligatrjoe - 25 Sep 2007 22:36 GMT

Really having trouble with objects. Can't seem to navigate through a
selected range and then edit a date cell. Thanks to others I have made
progress. I can change one selected cell, but not a selection of cells.

Signature

Bill W

Reply to this Message

Chip Pearson - 25 Sep 2007 22:42 GMT

Try something like

Dim Rng As Range
For Each Rng In Selection.Cells
With Rng
If IsDate(.Value) = True Then
.Value = DateSerial(Year(.Value) + 100, Month(.Value), Day(.Value))
End If
End With
Next Rng

Signature

Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

> Really having trouble with objects. Can't seem to navigate through a
> selected range and then edit a date cell. Thanks to others I have made
> progress. I can change one selected cell, but not a selection of cells.

Reply to this Message

aligatrjoe - 26 Sep 2007 00:04 GMT

Thank you very much. Worked like a champ. Really appreciate you and all the
others taking time to help us beginners.

Signature

Bill W

> Try something like
>
[quoted text clipped - 10 lines]
> > selected range and then edit a date cell. Thanks to others I have made
> > progress. I can change one selected cell, but not a selection of cells.

Reply to this Message