TextBox'tan Metin Kutusuna Veri Yazma

[Seyit Tiken]

Herkese Selamlar,
UserForm'un üzerinde bulunan TextBox'tan Metin Kutusuna veri yazılabilir mi? Yani TextBox'a yazılan bir verinin direkt Metin Kutusuna gözükmesi. Mümkün mü acaba? Teşekkür ediyorum.

Not : Arada HÜCRE(hücre adresleri) yok.

 

[alpi]

Metin Kutusu TextBox'un türkçesidir.

yani siz sorunuzda Metin Kutusundakileri Metin Kutusuna yazdırmak istiyorum ne yapmalıyım diye soruyosunuz.

bence örnek dosya eklerseniz daha iyi olur ve biraz daha açıklama lütfen.

 

[Recep İpek]

Metin Kutusu derken hücreyi kastediyorsanız aşağıdaki kodları kullanabilirsiniz.

Textbox'a yazdığınız verileri A1 hücresinde gösterir.

Private Sub TextBox1_Change()
[A1] = TextBox1.Value
End Sub

 

[mehmett]

Sn alpi,

Sn Seyit Tiken, "Metin Kutusu" derken çizim araç çubuğundaki metin kutusunu kastediyor sanırım.

Çizim araç çubuğundan çizilen metin kutusuna hücredeki veri alınabilir. Dolayısıyla textbox'tan hücreye, hücreden metin kutusuna veri alınabilir.

Ama direk textbox'tan metin kutusuna alınabilir mi bilemiyorum.

 

[Recep İpek]

Eğer bu şekilde ise aşağıdaki işe yarayabilir.

Private Sub TextBox1_Change()
Sheet1.TextBox1.Value = TextBox1.Value
End Sub

 

[alpi]

Sayın Mehmet eğer dediğiniz gibiyse şu şekilde veri aktarılşabilir.
Sheets(1).TextBox1.Text = TextBox1.Text

Tabi biz burada boşa kürek sallıyor gibiyiz çünkü soruyu soran şahıs bir yardımcı olsa bizde ona yardımcı olabileceğiz

 

[Seyit Tiken]

Arkadaşlar konu ile ilgili dosyayı gönderiyorum.
Daha yeni fırsat buldum sayın ALPİ.

 

[alpi]

Sözlerimde kırıcımı oldum bilmiyorum ama öyle olmak istememiştim.

sorunuzun yanıtı
form üzerindeki texbox'un change olayına aşağıdaki kodu yazın

ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = TextBox1.Text

 

[Seyit Tiken]

Denedim oldu sayın ALPİ. ALLAH razı olsun.

 

[heft]

Selamlar,
Tam tersi olursa yani
sayfada 80 adet text box var hangisini cliklersem o textbox taki değer A33 hücresine yazılsın .
Bunu nasıl yapabilirim?