Changing the contents of a text box change (Text1.Text = &qu

[Satal Keto]

I know that i can change the text in a text box by using something like this...

Private Sub CommandButton1_Click()
TextBox1.Text = "Hello World"
End Sub

If i change the information in the text box to

Hello World 2

Is there any way of getting the CommandButton1_click() to change so that it would come up with that when i pressed on say CommandButton2?

Is there anyway at the same time to change special characters (like ") into their Chr representations (& Chr(34) &)
And where the enter key has been used "& Chr(10) &" ?

Thanks alot for any help in advance

 

[Andrew Poulsom]

If you want to change the first line of the CommandButton1_Change procedure, set a reference to "Microsoft Visual Basic for Applications Extensibilty 5.3" and try this code:

Private Sub CommandButton2_Click()
    With ThisWorkbook.VBProject.VBComponents("UserForm1").CodeModule
        .ReplaceLine .ProcBodyLine("CommandButton1_Click", vbext_pk_Proc) + 1, vbTab & "TextBox1.Text = """ & TextBox1.Text & """"
    End With
End Sub

You can use the Asc function to get the ASCII code of a character. Example:

Sub Test()
    MsgBox Asc("""")
End Sub

 

[Satal Keto]

Sorry im not very good at explaining what i say, Ok what i mean is...
when i press CommandButton1 it puts the text "hello world" in Text1.
If i change the text in Text1 to say "hello world 2", is there a way of getting the information saved so that next time i press CommandButton1 for it to put the text "hello world 2" in Text1.

So using code (as much as possible) changing this

Private Sub CommandButton1_Click()
Text1.Text = "hello world"
End Sub

into ....

Private Sub CommandButton1_Click()
Text1.Text = "hello world 2"
End Sub

*where hello world 2 is the text which was in Text1

Sorry i meant with the replacing characters that it was done at the same time as the text in Text1 being put into CommandButton1_Click(), as the text in Text1 would be over a couple of lines

 

[Andrew Poulsom]

Did you try the code I posted?

 

[Satal Keto]

Sorry i miss understood what you put and thought you thought i was talking about something else.

This is what i get

Run-time error '1004':
Programmatic access to Visual Basic Project is not trusted

 

[Andrew Poulsom]

Tools|Macro|Security, check Trust access to Visual Basic Project and click OK.

 

[Satal Keto]

Thanks that got rid of the 1004 error (although now im getting a 9 error "subscript out of range)
But thanks alot for trying to help :D

 

[Andrew Poulsom]

Thanks that got rid of the 1004 error (although now im getting a 9 error "subscript out of range)
But thanks alot for trying to help :D

Is the error on this line?

With ThisWorkbook.VBProject.VBComponents("UserForm1").CodeModule

Change the UserForm reference if your is not named UserForm1.