textbox que mostra valores

[tfnd]

Private Sub TextBox1_change()
Folha2.Range("K5").Value = TextBox1

End Sub

Private Sub TextBox10_Change()
If CheckBox1 = True Then
UserForm1.TextBox10 = Folha2.Range(L5).Value
Else
UserForm1.TextBox10 = Folha2.Range(P5).Value
End If

End Sub

Boas, 

estou a iniciar me a programar alguns formularios em vba... mas... percebo muito pouco disto.... lol desculpem a franqueza.

tenho uma text box onde insiro um valor (textbox1)  e ao inserir o valor nessa text box e, eu queria que foste mostrada na text box 10 um valor de uma célula e que não desse para alterar.

 

Grato pela atenção dispensada 

Tiago Duarte

 

[tfnd]

Private Sub TextBox1_change()
Folha2.Range("f4").Value = TextBox1
End Sub

Private Sub TextBox10_Change()

End Sub

Mudei a folha e sem condições apenas pretendia que ao colocar um valor no textbox1 fosse apresentado o valor que está em Folha2.range("f5").value

[tfnd]

Também já experimentei adicinar o código seguinte que ao inicializar o formulário preenchia o text box com o valor de "g4" mas nada acontece.

Nunca aparece o valor.

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

 

[Luis_vxd]

Olá Tiago

Para assignar conteudo de uma célula à TextBox deve, com a TextBox selecionada clicar na 'Formula bar' e escrever, por exemplo "=A1".

O que estiver na célula A1 vai aparecer na TextBox