listbox and freeform text in one cell?

**nickmax1** · 01-17-2013, 07:32 AM

I am interested in knowing if there is a way to have a dropdown list and freeflow text in one cell.

for example my dropdown list is of initials of my colleagues. After that I want to be able to write text (like "job complete" or "needs investigation) but all in the same cell. Is this possible?

I ask as normally you would have a colomn for the dropdown and another colomn for cells but i have so much code in place that refers to certain cells that it would muck things up too much

**6StringJazzer** · 01-17-2013, 04:57 PM

No, you can't do that. Your description of having another column for the text is the better solution.

You also mention code, but if adding a column breaks the code then maybe you have a code design problem. Since you are using code to begin with, you could create a custom userform that is displayed when you click on particular cells, allows you to select from a list or combobox, add some text in a textbox, then concatenate them both together and store it in the cell.

**nickmax1** · 01-17-2013, 06:46 PM

the code i mention that will be broken is a lot of macro code that deals with formatting, sorting etc. I would need to change all the ranges in all the code if a new colomn was addded.

Care to elaborate on your custom userform?

**6StringJazzer** · 01-17-2013, 07:38 PM

Here is a demo.

**nickmax1** · 01-18-2013, 06:56 AM

wow that is really great. I cant follow the logic i the code at all (my understanding is too basic!)

How does it work if I wanted to place my inputvalue range to K18 onwards (K18:K190 to be specific)? By that I mean I want the userform to pop up if any cell in that range is selected.

If Target.Count = 18 And Target.Column = 11 Then

That doesnt seem to work for me.?

Sorry for the noobness of it all!

**6StringJazzer** · 01-18-2013, 08:21 AM

Here's more of an explanation with modifications for what you have described:

Please Login or Register  to view this content.

**nickmax1** · 01-18-2013, 08:26 AM

strange i get an "method range of object global" error on your (most restricted) code above - but this seems to work:

If Not Application.Intersect(Target, Range("K18:K190")) Is Nothing Then

Ah just noticed why your code gave me an error, you missed out a "K" in your range definition.

Any benefit to using your code over the code that works for me above?

many thanks!!