Combo box question

[Peter]

Hi,

I have written a User Form in VBA (Excel 97). This form contains a
ComboBox and the data for this ComboBox (a series of dates is
contained in sheet 2 column A.)

I have the Row Source as Sheet2!A1:A95 and this appears to be OK when
I test it - the selected dates show in the ComboBox (Although the date
then changes to a 5 digit number)

What I haven't worked out what to do is how to tell VBA that the date
I select in the ComboBox is to be written to Sheet1 cell C2. The code
so far is:

Range("C2").Select
Selection = Clear
Range("C2").Select
Selection = ???????

What needs to go on the last line to copy the selected date into cell
C2?

Any suggestions would be very much appreciated.


--
Cheers

Peter

Remove the INVALID to reply

 

[Anders S]

Hi Peter,

You can skip the Select and Clear stuff and just do

Range("C2").Value = ComboBox1.Value

Of course you may have to better qualify Range("C2") so the output lands on the intended worksheet.

The date/number question is another issue.

HTH
Anders Silven

 

[Tom Ogilvy]

Just set the control source property to Sheet1!C2

you don't need a macro.

 

[Peter]

On Mon, 16 Feb 2004 00:40:44 +0100, "Anders S"
Hi Anvers,

Thanks very much for your reply - it works fine - and there is no
problem with the date - although it shows a number in the combobox it
appears in C2 as a correctly formated date!

Hi Peter,

You can skip the Select and Clear stuff and just do

Range("C2").Value = ComboBox1.Value

Of course you may have to better qualify Range("C2") so the output lands on the intended worksheet.

The date/number question is another issue.

HTH
Anders Silven

--
Cheers

Peter

Remove the INVALID to reply

 

[Peter]

Just set the control source property to Sheet1!C2

you don't need a macro.

Hi Tom,

Many thanks for your reply - It's sorted.


--
Cheers

Peter

Remove the INVALID to reply

 

[Tom Ogilvy]

Glad you think so.

--
Regards,
Tom Ogilvy

Hi Tom,

Many thanks for your reply - It's sorted.


--
Cheers

Peter

Remove the INVALID to reply