Editable Text Based on Drop Down List

[rxharp419]

Hello,

I would like to have a drop-down list in A1.

Based on the value selected in the drop-down list in A1, I would like a specific parage of text to pop up in A2. I would like for this text in A2 to be editable so minor things can be changed as needed.

Is this possible?

 

[My Aswer Is This]

I have several question.
1. Have you ever run a Macro before?
2. Do you know what a sheet change event macro is?
3. And if ever of these questions is no then I would think you should start out asking for a very simple macro like in your first question before moving on to more complicated ones like in your second post.
4. Are you able to read and understand this scrip?
5. It seems very clear to me.
6. At the top of the script it says:
Target.row=1 that means you want to enter data in row(1)
and then it says
Target.Column= 14 that means Column(14)

That results in Range("N1")

 

[vcoolio]

@M.A.I.T:-

If it helps any, I just ran a test on your code and it works just fine. The only two things that I can think of that may be causing the OP some grief are:-

1) The code hasn't been placed in the worksheet module.
2) The OP is not typing in the criteria exactly as per the code (i.e. punctuation including upper and lower cases).

If (2) is the reason, the code won't fire but will not show an error message either. One way to overcome this would be to place:-

Option Compare Text

above

Private Sub Worksheet_Change(ByVal Target As Range)

This will make the code case insensitive but won't account for lack of spaces (e.g.Lump Sum, LumpSum) or too many spaces.

BTW. Do you ever go to bed?

Cheerio,
vcoolio.

 

[rxharp419]

If you followed my instruction in my previous post. And put the script in the sheet like I said
And then you enter a value into range "N1" the script will run.
And you must enter "Estimate" or "Lump Sum" like you asked for.
You should be able to read the script and see what it does.
It does work for me.
Not sure why you want to enter a value in "N1" and have it up date a value in Range("H1034")
But that is what you asked for.

And the script must be put in the sheet where you plan to enter a value into Range "N1"

In your first post you said "A1" and "A2" so not sure why you are changing things.
Did my first post work?

And your sheet name must be exact. If you know English you should be able to read the script.

Hi again!

Okay, so my experience is limited but i did do my best to try what you said to do in the previous post both times. I than realized I am using a mac and should have mentioned that. I dont know if that makes a big difference or not.

I right clicked on the tab on the worksheet which is the "quote" sheet and selcted view code. Then the VBA window came up which looks much different than the windows version as I remember. I then selected the "quote" sheet and input the code you provided. I tried to run it but i could not get it to work. I dont know how to upload a screen shot other wise i would have. Or even the workbook.

Thank you again for your help. Learning as i go here.

 

[My Aswer Is This]

And when you tried to run it. Tell me what you did to run it.
Not sure if Apple does things different or not.

To run it you should have clicked on Range("N1" and entered one of the values you mentioned.
And in my last post I asked several questions and you answered none of them.
I ask questions trying to learn how much you know not sure why you did not answer any of them.

You must enter "Estimate" or "Lump Sum" exactly like that.

 

[rxharp419]

@M.A.I.T:-

If it helps any, I just ran a test on your code and it works just fine. The only two things that I can think of that may be causing the OP some grief are:-

1) The code hasn't been placed in the worksheet module.
2) The OP is not typing in the criteria exactly as per the code (i.e. punctuation including upper and lower cases).

If (2) is the reason, the code won't fire but will not show an error message either. One way to overcome this would be to place:-

Option Compare Text

above

Private Sub Worksheet_Change(ByVal Target As Range)

This will make the code case insensitive but won't account for lack of spaces (e.g.Lump Sum, LumpSum) or too many spaces.

BTW. Do you ever go to bed?

Cheerio,
vcoolio.

LOL i have been home with the flu! So havent been able to sleep much.

Okay, so it works! And it always worked. I am an idiot! Thank you all for your help!

 

[My Aswer Is This]

So are you saying it now works?
What did you do to get it to work?

 

[rxharp419]

And when you tried to run it. Tell me what you did to run it.
Not sure if Apple does things different or not.

To run it you should have clicked on Range("N1" and entered one of the values you mentioned.
And in my last post I asked several questions and you answered none of them.
I ask questions trying to learn how much you know not sure why you did not answer any of them.

You must enter "Estimate" or "Lump Sum"

Gosh i am an idiot! It worked and it always did i just had 1 little thing of information i gave you incorrect.

My last questions that still pertains to this, i figured out that it would be better to have the information populate into a text box instead of the cell H1034. This works better for what i am doing.

The text box name is "(Array("TextBox 6"))", is this possible?

 

[rxharp419]

So are you saying it now works?
What did you do to get it to work?

I was so used to actually have to hit the "run" button to see something work that i didnt realize that it was working in the background, and not mention i told you J16 and J17 when it was actually J16 AND J18.

SORRY

 

[My Aswer Is This]

I do not believe your textbox is named:
(Array("TextBox 6"))

Why would you name a textbox like that.
I would guess it's "TextBox6"

Gosh i am an idiot! It worked and it always did i just had 1 little thing of information i gave you incorrect.

My last questions that still pertains to this, i figured out that it would be better to have the information populate into a text box instead of the cell H1034. This works better for what i am doing.

The text box name is "(Array("TextBox 6"))", is this possible?

 

[rxharp419]

I do not believe your textbox is named:
(Array("TextBox 6"))

Why would you name a textbox like that.
I would guess it's "TextBox6"

Yes, it is "TextBox6". Copy and paste the whole thing sorry.