Multiple DTPicker Properties

[Apratiwi]

Hello All,
I am trying to set properties of the Multiple DTPickers.

What i am doing at the moment is like this:

Private Sub TakeDate()
ActiveCell.Value = Me.DTPicker1.Value
ActiveCell.Value = Me.DTPicker2.Value
ActiveCell.Value = Me.DTPicker3.Value
ActiveCell.Value = Me.DTPicker4.Value
ActiveCell.Value = Me.DTPicker5.Value
ActiveCell.Value = Me.DTPicker6.Value
ActiveCell.Value = Me.DTPicker7.Value
ActiveCell.Value = Me.DTPicker8.Value
ActiveCell.Value = Me.DTPicker9.Value
ActiveCell.Value = Me.DTPicker10.Value
ActiveCell.Value = Me.DTPicker11.Value
ActiveCell.Value = Me.DTPicker12.Value
ActiveCell.Value = Me.DTPicker13.Value
End Sub

Silly right? The problem is the number of date picker will keep increasing.
Is there any way i can put indexing for the dtpicker?
or that i can set properties for all dtpicker in a worksheet?

Thanks for the help...

 

[Rick Rothstein]

That code does not make any sense... each line after the first overwrites what the previous line assigned to the ActiveCell. In other words, all the code you posted can be reduced to this...

[COLOR=#000000]Private Sub TakeDate()
  ActiveCell.Value = Me.DTPicker13.Value[/COLOR]
End Sub

Is that what you really want? If not, please explain what it is you are trying to do.