textbox value to a cell

[AnthonyMinnaar]

Hi all, I was wondering if there's a way to send the value of a textbox to a cell (see picture below).

I have found a post on the forum where someone posted the following:

Private Sub OK_Click()
Sheets("Sheet1").Range("C9") = TextBox1.value
Sheets("Sheet1").Range("C10") = TextBox2.value
End Sub

But I cant seem to make this work, what am I doing wrong?

thanks in advance,

Anthony

 

[Anonymous1378]

That looks like it's for a user form, perhaps try:

Private Sub OK_Click()

Sheets("Sheet1").Range("C9").Value = Sheets("Sheet1").Shapes("TextBox1").TextFrame.Characters.Text
Sheets("Sheet1").Range("C10").Value = Sheets("Sheet1").Shapes("TextBox2").TextFrame.Characters.Text

End Sub

 

[AnthonyMinnaar]

That looks like it's for a user form, perhaps try:

Private Sub OK_Click()

Sheets("Sheet1").Range("C9").Value = Sheets("Sheet1").Shapes("TextBox1").TextFrame.Characters.Text
Sheets("Sheet1").Range("C10").Value = Sheets("Sheet1").Shapes("TextBox2").TextFrame.Characters.Text

End Sub

that works! thank you