Copy From Combobox to Cell
 

When I set boundcolumn to 0 the code will work, but the value of the
combobox will not stay when file is saved and reopened. When I say value I
mean the text displayed in the box. When bound column is set to 1 the code
will not work, or does not have the desired outcome, No information shows up
in cell E4, but the value, text displayed, will not stay when file is saved
and reopened. What am I doing wrong?

Private Sub ComboBox10_Change()

If ComboBox10.Value = 0 Then
Range("e4").Value = " "
ElseIf ComboBox10.Value = 1 Then
Range("e4").Value = "Urgent"
ElseIf ComboBox10.Value = 2 Then
Range("e4").Value = "Routine"
End If

End Sub

Thanks so much for all the help.

Tim Duell
Buckeye Shapeform

Copy From Combobox to Cell
 

Thanks for responding and the idea. Your idea ended with the same results.
when boundcolumn is set to 0 code works but will not retain values. When
boundcolumn is set to 1 it will reatain values but code will not work. I
did notice one thing slightly different though. When boundcolumn was set to
0 and it did not retain values. It did retain the item number of the
combobox inplace of the text label it was given. If I could just get it to
retain the text value instead I would be golden. Any ideas.

Thanks so much

Tim Duell
Buckeye Shapeform

"Tom Ogilvy" wrote in message
...
Try using the click event.

Make sure you don't have any links (linked cell, Listfillrange)

--
Regards,
Tom Ogilvy



"Tim Duell" wrote:

When I set boundcolumn to 0 the code will work, but the value of the
combobox will not stay when file is saved and reopened. When I say value
I
mean the text displayed in the box. When bound column is set to 1 the
code
will not work, or does not have the desired outcome, No information shows
up
in cell E4, but the value, text displayed, will not stay when file is
saved
and reopened. What am I doing wrong?

Private Sub ComboBox10_Change()

If ComboBox10.Value = 0 Then
Range("e4").Value = " "
ElseIf ComboBox10.Value = 1 Then
Range("e4").Value = "Urgent"
ElseIf ComboBox10.Value = 2 Then
Range("e4").Value = "Routine"
End If

End Sub

Thanks so much for all the help.

Tim Duell
Buckeye Shapeform

Copy From Combobox to Cell
 

When you set boundcolumn to zero, it does return the index. That is how it
is designed. That is what the zero means you want.

Cell values don't change by themselves. Are you saving the workbook before
you close it - you say you are.

I am sure whatever you are doing is causing it.

--
Regards,
Tom Ogilvy

"Tim Duell" wrote in message
...
Thanks for responding and the idea. Your idea ended with the same
results. when boundcolumn is set to 0 code works but will not retain
values. When boundcolumn is set to 1 it will reatain values but code will
not work. I did notice one thing slightly different though. When
boundcolumn was set to 0 and it did not retain values. It did retain the
item number of the combobox inplace of the text label it was given. If I
could just get it to retain the text value instead I would be golden. Any
ideas.

Thanks so much

Tim Duell
Buckeye Shapeform

"Tom Ogilvy" wrote in message
...
Try using the click event.

Make sure you don't have any links (linked cell, Listfillrange)

--
Regards,
Tom Ogilvy



"Tim Duell" wrote:

When I set boundcolumn to 0 the code will work, but the value of the
combobox will not stay when file is saved and reopened. When I say
value I
mean the text displayed in the box. When bound column is set to 1 the
code
will not work, or does not have the desired outcome, No information
shows up
in cell E4, but the value, text displayed, will not stay when file is
saved
and reopened. What am I doing wrong?

Private Sub ComboBox10_Change()

If ComboBox10.Value = 0 Then
Range("e4").Value = " "
ElseIf ComboBox10.Value = 1 Then
Range("e4").Value = "Urgent"
ElseIf ComboBox10.Value = 2 Then
Range("e4").Value = "Routine"
End If

End Sub

Thanks so much for all the help.

Tim Duell
Buckeye Shapeform

Copy From Combobox to Cell
 

I appreciate the clarification on the Boundcolumn, I was not really sure
what It meant even after looking at the help. I also agree without a doubt
that I am doing something wrong. Do you have any ideas what it might be.

Thanks

Tim Duell
Buckeye Shapeform

"Tom Ogilvy" wrote in message
...
When you set boundcolumn to zero, it does return the index. That is how
it is designed. That is what the zero means you want.

Cell values don't change by themselves. Are you saving the workbook
before you close it - you say you are.

I am sure whatever you are doing is causing it.

--
Regards,
Tom Ogilvy

"Tim Duell" wrote in message
...
Thanks for responding and the idea. Your idea ended with the same
results. when boundcolumn is set to 0 code works but will not retain
values. When boundcolumn is set to 1 it will reatain values but code
will not work. I did notice one thing slightly different though. When
boundcolumn was set to 0 and it did not retain values. It did retain the
item number of the combobox inplace of the text label it was given. If I
could just get it to retain the text value instead I would be golden.
Any ideas.

Thanks so much

Tim Duell
Buckeye Shapeform

"Tom Ogilvy" wrote in message
...
Try using the click event.

Make sure you don't have any links (linked cell, Listfillrange)

--
Regards,
Tom Ogilvy



"Tim Duell" wrote:

When I set boundcolumn to 0 the code will work, but the value of the
combobox will not stay when file is saved and reopened. When I say
value I
mean the text displayed in the box. When bound column is set to 1 the
code
will not work, or does not have the desired outcome, No information
shows up
in cell E4, but the value, text displayed, will not stay when file is
saved
and reopened. What am I doing wrong?

Private Sub ComboBox10_Change()

If ComboBox10.Value = 0 Then
Range("e4").Value = " "
ElseIf ComboBox10.Value = 1 Then
Range("e4").Value = "Urgent"
ElseIf ComboBox10.Value = 2 Then
Range("e4").Value = "Routine"
End If

End Sub

Thanks so much for all the help.

Tim Duell
Buckeye Shapeform