Please help correct a simple error

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

lwhite - 09 Dec 2004 13:42 GMT

I am trying to place a value into a string and then
place that value in a cell. I don't what I did wrong but
I am sure it is simple code. This happens in a
CommandButton. I have a combo box on the sheet that has a
drop down list in it. I select the item and then click
the button. I select the cell, place the vlaue and then
select another cell. That is it. I am building towards a
larger total function for the button.

Dim myDesc As String

Set myDesc = Me.ComboBox2

Sheets("Quote").Select
Range("J17").Select
Range("J17").Value = myDesc

Sheets("Quote").Select
Range("G17").Select

Reply to this Message

Art - 09 Dec 2004 21:39 GMT

Try this:

Sub temp()
Dim x As ComboBox
Set x = Me.ComboBox1
Range("A2") = x
Range("B7").Select
End Sub

Art

Reply to this Message