Thread: new to date
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default new to date

Run this at least once a day:

Sub updatee()
n = Day(Date)
Set f3 = Range("F3")
Set z100 = Range("Z100")
If n = 1 Then
If z100.Value = Date Then
Else
z100.Value = Date
f3.Value = f3.Value + 123
End If
End If
End Sub

the update is performed on the first of the month and is only performed once
on that day. (uses Z100 to remember the update has already been performed)
--
Gary''s Student - gsnu200835


"Curt" wrote:

Am trying to when day = x add 123 to cell f3
End result will be every time day =x add 123 to cell f3. This will grow with
each month.
I got day out of cell when date changed f3 now #value
This could be done on close or open of workbook. tried all I can think of.
No luck yet.
Thanks to all for help