date picker HELP
I dont 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 -- Ak ZA |
date picker HELP
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 "Andre ZA" wrote: I dont 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 -- Ak ZA |
All times are GMT +1. The time now is 08:31 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com