Hi
I have a Solution For You, Hope it will Help you., Follow the instruction :-
1). Insert a MicroSoft Date and Time Picker Control 6.0 On your Worksheet
2). Fit that Object in a Cell "D1"
3) Drag this Cell to Down
4) Run This Code
Sub MakeEventByCode()
Dim sh As Worksheet
Set sh = ActiveSheet
Dim wb As Workbook
Set wb = ActiveWorkbook
For i = 1 To sh.OLEObjects.Count
Set sh = ActiveSheet
wb.VBProject.VBComponents(sh.Name).CodeModule.AddFromString
("'Private Sub DTPicker" & i & "_Change()")
wb.VBProject.VBComponents(sh.Name).CodeModule.AddFromString
("Range(""A" & i & """)" & ".Value = Me.DTPicker" & i & ".Value")
wb.VBProject.VBComponents(sh.Name).CodeModule.AddFromString
("End Sub")
Next
n = 0
For t = 1 To
ThisWorkbook.VBProject.VBComponents(sh.Name).CodeModule.CountOfLines Step 3
n = n + 1
wb.VBProject.VBComponents(sh.Name).CodeModule.ReplaceLine t, "Private Sub
DTPicker" & n & "_Change()"
Next
End Sub
-----Original Message-----
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of George1960
Sent: Friday, July 08, 2011 10:12 PM
To: MS EXCEL AND VBA MACROS
Subject: $$Excel-Macros$$ Create a drop down calendar in consecuative cells
in a Excel column
Hi
I am trying to insert a separate drop down calendar into consecutive
cells in a column, so as to reference a different date with the data
on each row in a Excel 2007 spread sheet, (the rows of data reflect
people and their activities for the day)
I found out how to insert a single calendar with the output linked to
a referenced cell e.g. $B$3 but not how to do this for consecutive
cells in the column.
Thanks
George
--
----------------------------------------------------------------------------
------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
