MTS to AVI Converter: Fast Solution to Error: date Picker Macro

Monday, September 26, 2016

Fast Solution to Error: date Picker Macro

date Picker Macro

Hi all

Is there a macro I can add to a worksheet to add a date picker to a range of cells in the sheet?

Thanks

MN

Anwsers to the Problem date Picker Macro

Hi,

There are a couple of steps to do this.

1.
One the developer tab click 'Insert' and in the ActiceX toolbox click the toolbox icon (Bottom Right) and click 'Calendar Control 12.0' OK.

2.
On the worksheet click and hold down the left mouse button and drag to create your calendar.
Resize it as required.
Click Exit design Mode.

3.
Right click the worksheet tab, view code and paste all the code below in on the right.
Where it says A1:G10 change this to the range you want this to work on.

4.
Clicking in the range makes the calendar appear, click a date and the date goes in the active cell.
Click anywhere else and the calendar becomes invisible.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:g10")) Is Nothing Then
        Calendar1.Top = Target.Top + Target.Height
        Calendar1.Left = Target.Left + Target.Width / 2 - Calendar1.Width / 2
        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 mmm yy"
End Sub

Access the files on your computer via MY COMPUTER
Under the C: drive, access the WINDOWS folder
Select the SOFTWARE DISTRIBUTION folder, followed by the DOWNLOAD folder.
Delete any files within this download folder.
If you are unable to delete these files, open the command prompt (CMD) as the administrator, and type "net stop wuauserv" into the CMD prompt window. Press ENTER. This should allow you to delete the files from step 4.
Once the files are deleted, open and run the CMD as the administrator and type "wuauclt.exe /updatenow". Press ENTER.