date picker

[macamarr]

Thank you in advance for ;ooking at my question.
When using a DATE PICKER, what would the code be to make the date picker insert the date into cell a1, then a2 the next time and so on and on......?

 

[Corticus]

Hi,

Insert Calendar(I used Calendar Control 9.0)

insert the following formula in B1:
=CountA(A:A)+1

this will tell the calendar to write to the next blank space.

Insert this code into sheet1:

Private Sub Calendar1_Click()

Range("A" & Range("B1").Value).Value = Calendar1.Value

End Sub

HTH,
Corticus