Excel XP Choose date in cell from small calendar?

[kuzkuz]

Hey,

I want to have an Excel XP spreadsheet that in one of the culomns will be for dates that will be chosen from the small calendar like in Outlook, I know this thing exist on Access but really want it on Excel.

Any idea?

Thx for your help

Kuz

Hey, make your did for today!
help a Newbie! (That's me )

 

[kuzkuz]

Hey, I learned how I can create that small calendar control in:

http://www.fontstuff.com/vba/vbatut07.htm

but I would like to open when I focus on a specific cell or click on it.
any idea for that?

Hey, make your did for today!
help a Newbie! (That's me )

 

[VulcanJedi]

follow the direction in thatwebpageto develop the form and you can simply code to activate w/ a certain column or cells


Tranpkp

 

[PeterMoran]

Hi kuzkuz,

I found that webpage and developed the calender as per Martin's directions and it works perfectly. I thought it was so good I set up the FAQ for it here.

I would think you might follow Martin's instructions and include it in the right-click menu.

I am not sure how and if you could get it to display on any of the appropriate cells becoming the active cell.

Good Luck!
Peter Moran

 

[johnwm]

You could use the Worksheet_SelectionChange event. I use something similar for a listbox:

Set a Public in the Worksheet module:
[tt]
Public myRange As Range
[/tt]
Grab the SelectionChange:
[tt]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With List1
.ListIndex = -1
.Left = Target.Left
.Top = Target.Top
.Visible = True
Set myRange = Target
End With
End Sub
[/tt]
Use the List_Click event to update the underlying sheet:
[tt]
Private Sub List1_Click()
myRange(1, 1) = List1.Text
List1.Visible = False
End Sub
[/tt]

If you want to restrict the cells this works on, use a Select Case on the Target.Row and/or the Target.Column values

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

 

[Nicos67]

Hello All - thanks for tips above

Wondering if you cvould help me with following:

I have a very similar Problem - I want the Active X Calendar to pop up when the User enters the text box and once the date has been selected and the useer tabs to the next datafield for Calendar to dissappear - Is this possible

Thanks

Nicos

 

[Bowers74]

Nicos67,

You will probably get better results if you were to start a new thread, and since this is a VBA question, then you should post it in the VBA forum as well.

forum707



Peace!!

Mike

Didn't get the answers that you wanted? Take a look at FAQ219-2884

 

[kuzkuz]

Hey Guys,

Thx for your replies, it helped a lot, and we used it on a sheet used by many users...

Thx a lot again ;-)

Kuz

Hey, make your did for today!
help a Newbie! (That's me )