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
|