date picker HELP

A

Andre ZA

I don’t want to type in the date I want to click on calendar
this is only a example

Date Description what I did with chash Cash withdraw
15/12/2007 Pay Koos R 10.00
? Pay taxi R 200 0
? Spent on dog R 165 R 112.25
 
M

Mike H

You could try this.
Insert|Object|calendar control
A calendar should appear.
Right click the worksheet tab, view code and paste this in:-

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then' Change to suit
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Calendar1.Value = Now
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = (Calendar1.Value)
ActiveCell.NumberFormat = "dd/mm/yyyy"' Change to suit
End Sub

Mike
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top