date and sending message

R

rpahl

I am trying to create a macro that sends a specific number to a
specific cell on a certain day.

"If the first day of the month, then send 75 to cell A2
If the second day of the month, then send 75 to cell A3" etc. for
the whole month.

Can some one help me Please

Thank
 
D

Don Guillett

something lilke

Sub ifdate()
If Day(Now()) = 1 Then range("a2")=75 'MsgBox "Hi"
If Day(Now()) = 2 Then range("a3")=75 'MsgBox "Hi"
End Sub
 
N

Norman Harker

Hi rpahl!

Here's a formula approach:

A2:
=IF(DAY(TODAY())=ROW(A1),75,"")
Copy down to A32
 
Top