Texbox'ta bir verinin görünmesi

[İsmail Küçükşengün]

Merhabalar;

Tüm forum üyelerine iyi bir gün dilerim.
Sayın xxrt'nin Excel Dersanesi için hazırladığı "TextBox Properties" yazısını inceledim. Çok faydalı oldu. Ya gözümden kaçtı ya da bulamadım. Sorum şudur:
Userform üzerinde bulunan bir Textbox'a (daha önceden belirlenmiş) mesela veri sayfasının K3 hücresindeki veri kendiliğinden gelebilir mi?
Yani userform her açıldığında TEXTBOX' ta, dosyada veri sayfasının K3 hücresinde veri gözüksün.

 

[İsmail Küçükşengün]

Private Sub TextBox5_Change()
Sheets("veri").Range("K3").Value = TextBox5.Text
End Sub

Şeklinde kod yazdım. Fakat textbox.ta veri görünmüyor.

 

[mehmett]

Şöyle deneyin;

[vb:1:565c72b829]Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox5 = Sheets("Sayfa1").Range("K3").Value
End Sub[/vb:1:565c72b829]

Exit yerine başka olaylar da kullanabilirsiniz tabii.

 

[İsmail Küçükşengün]

Sayın mehmett;
İlginize teşekkür ederim. Verdiğiniz örneğe göre uyguladığım KOD:

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Sheets("Bülent").Range("AR2").Value
End Sub
Bazen gösteriyor, çoğu zaman göstemiyor. Textbox'un yanında seçim yaptığım buton var.Seçimi yaptıktan sonra AR2 ye gelen veri anında görünmüyor. Yeniden seçim için butona bastığımda bazen veri Textbox-2 de görünüyor.Bu Textbox Userformda bulunan bir Frame nesnesi üzerinde. Verinin görünmemesi bundan kaynaklanabilir mi?

NOT: Yanında bulunan Textbox-1' tıkladığımda (verinin görünmesini istediğim) Textbox-2 ye veri geliyor.

 

[İsmail Küçükşengün]

:hey: :yardim:

 

[orcunerkek54]

Private Sub UserForm_Initialize()
TextBox5 = Sheets("Sayfa1").Range("K3").Value
End Sub
bu kodu copyalayarak yapıştırın ve tekran deneyin umarım işinizi görür kolay gelsin

 

[Ali]

NOT: Yanında bulunan Textbox-1' tıkladığımda (verinin görünmesini istediğim) Textbox-2 ye veri geliyor.

Gelir çünkü Textbox2'ye verinin gelmesini

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) ile

Textbox2'den çıkıldığında(exit) AR2 değerinin gelmesini istemişsiniz

 

[İsmail Küçükşengün]

Arkadaşlar;
Paylaşımcılığınıza ÇOK TEŞEKKÜR EDİYORUM.