VBA textbox loading value from cell

[tfnduarte]

hi,
i'm starting programming on vba alone.

i'm trying to show on textbox 10 a value from a cell. That should happen when i input a value on textbox 1, but if it's complicate it can be load when the form is open.
The value showed on textbox10 i don't want it to change with keyboard so I locked it in properties.
I've tried many things and happens nothing.
the userform = Preços

    Private Sub TextBox1_change()
     Folha2.Range("f4").Value = TextBox1
    
    End Sub
    
    Private Sub TextBox10_load_textbox1()
    
       Me.TextBox10.Text = Folha2.Range(g4).Value
    End Sub

Private Sub Preços_initialize()
    Me.TextBox10.Text = Folha2.Range(g4).Value
End Sub

Anyone can help? thanks.

 

[tfnduarte]

it's really need to actualiz the value on textbox10 on change textbox1 because when i input value on textbox 1 it's going to make operations and change the value of the ceel that i want to show on textbox10

 

[RoryA]

If you want to populate textbox10 when textbox1 changes, you need that code in the textbox1_change event (and you need quotes round the range address):

    Private Sub TextBox1_change()
     Folha2.Range("f4").Value = TextBox1
       Me.TextBox10.Text = Folha2.Range("g4").Value
    End Sub

 

[tfnduarte]

If you want to populate textbox10 when textbox1 changes, you need that code in the textbox1_change event (and you need quotes round the range address):

    Private Sub TextBox1_change()
     Folha2.Range("f4").Value = TextBox1
       Me.TextBox10.Text = Folha2.Range("g4").Value
    End Sub

Thank you.
It worked
newbie errors...

 

[tfnduarte]

If you want to populate textbox10 when textbox1 changes, you need that code in the textbox1_change event (and you need quotes round the range address):

    Private Sub TextBox1_change()
     Folha2.Range("f4").Value = TextBox1
       Me.TextBox10.Text = Folha2.Range("g4").Value
    End Sub

another question, how to format textbox 10 as currency

 

[RoryA]

If the cell is formatted the way you want, use Folha2.Range("g4").Text rather than Folha2.Range("g4").Value.

 

[tfnduarte]

Thank you very much

 

[tfnduarte]

 Private Sub TextBox1_change()
     Folha2.Range("f4").Value = TextBox1
       Me.TextBox10.Text = Folha2.Range("g4").Text
       Me.TextBox35.Text = Folha2.Range("h4").Text
       Me.TextBox51.Text = Folha2.Range("i4").Text
End Sub

When i change .value to .text the values just appear when i click on the textbox why?

 

[RoryA]

I don't know what you mean?

 

[tfnduarte]

Video userform working

 Private Sub TextBox1_change()
     Folha2.Range("f4").Value = TextBox1
       Me.TextBox10.Text = Folha2.Range("g4").Text
       Me.TextBox35.Text = Folha2.Range("h4").Text
       Me.TextBox51.Text = Folha2.Range("i4").Text
End Sub

Private Sub TextBox17_Change()
Folha2.Range("f13").Value = TextBox17
  Me.TextBox26.Text = Folha2.Range("g13").Value
    Me.TextBox42.Text = Folha2.Range("h13").Value
    Me.TextBox58.Text = Folha2.Range("i13").Value

So I uploaded a video to see working...
When the

       Me.TextBox10.Text = Folha2.Range("g4").Text

have to click to appear the values
When the

       Me.TextBox26.Text = Folha2.Range("g4").Value

the values appear alone