Delete text from text box

[dpaton05]

I have a text box on my spreadsheet with some text in it, "Please type notes here", and when I click in it, I want the text to disappear. Is there a way to do this?

 

[DanteAmor]

Sorry about that Dante, I will try and ask everything in the original post for a thread in future.

Do not worry. I just wanted to know if the first code worked.

 

[DanteAmor]

How do you close a thread?

Just commenting that the code provided works.

As I said, I am still glad to help you, but you could put feedback on each question solved.

 

[DanteAmor]

By the way, thank you for your answers above.

Now everything is fine with your textbox or something is missing?

 

[dpaton05]

It does work but it is not really what I need as I didn't know what I needed when I asked the question. I need a text box that will expand down as you type more, but one that has default text "Please type text here" that will disappear when you click in it for the first time. The spreadsheet will also be locked and I will still want to be able to enter data in the text box. I think that is all I want.

Thanks,

 

[DanteAmor]

It does work but it is not really what I need as I didn't know what I needed when I asked the question. I need a text box that will expand down as you type more, but one that has default text "Please type text here" that will disappear when you click in it for the first time. The spreadsheet will also be locked and I will still want to be able to enter data in the text box. I think that is all I want.

Thanks,

Try this

Private Sub TextBox1_Change()
  TextBox1.Width = 200
End Sub


Private Sub TextBox1_GotFocus()
  TextBox1.Width = 200
  If TextBox1 = "Please type notes here" Then
    TextBox1 = ""
  End If
End Sub


Private Sub TextBox1_LostFocus()
  TextBox1.Width = 200
  If TextBox1 = "" Then
    TextBox1 = "Please type notes here"
  End If
End Sub

Change EnterKeyBehavior property to True
Change Multiline property to True
Change Autosize property to True

 

[dpaton05]

I put the code of lostfocus() in the workbook open sub and it couldn't find the text box. It is an active x text box, is that the correct text box?

 

[DanteAmor]

I put the code of lostfocus() in the workbook open sub and it couldn't find the text box. It is an active x text box, is that the correct text box?

Before putting it on automatically, you tried what I sent you in post # 15.
As I told you, with all pleasure I continue to support you, but let's close one part and continue with another.

 

[dpaton05]

I am sorry again that I keep asking different questions in this thread that are not relating to the title. I will try to remember to start a new thread and ask them for other threads.

Your code does in post 15 partially works, thank you.

It works when I have the file open and click in the text box but when I open the file, I get the error of object required and highlights this line

TextBox1.Width = 200

 

[dpaton05]

But I have just realised that I don't need it as I have set the width in the properties so I opens the right width, meaning I could delete that code so it does work, thank you very much.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.