textbox a veri alma

[kemal turan]

Merhaba,
Userform üzerinde bulunan textbox1 e seçilen hücre değerini aktaracak koda ihtiyacım var.
Şöyle olacak ;
Mausla hangi hücreyi seçmiş isem o hücre değeri textbox1 de görülecek

 

[cenk e.]

Merhaba, şunu dener misiniz?

Private Sub Userform_Initialize()
TextBox1.Text = Cells(ActiveCell.Row, ActiveCell.Column)
End Sub

 

[kemal turan]

merhaba sn.cenk bey,
userform açılmadan seçili hücreyi textboxa alıyor, burası da bir çözümdür bizim için.
Kodumuzu birde userform açık iken ;
seçili hücreyi değiştirdiğimizde textbox daki verininde sürekli yenilenmesini sağlayacak şekilde geliştirebilirmiyiz.

 

[cenk e.]

Merhaba, bu soru için aklıma spreadsheet kullanmaktan başka bir seçenek gelmiyor.

 

[kemal turan]

MEerhab Cen bey,
Vermiş olduğunuz kodu "VERİ AL" adlı bir commandbutona bağlayarak sorunu çözdüm.
Teşekkür eder, hayırlı günler dilerim.
Selametle kalınız.

Private Sub CommandButton3_Click()
TextBox1.Text = Cells(ActiveCell.Row, ActiveCell.Column)
End Sub

 

[cenk e.]

Rica ederim, ben userform açık olduğu halde excel sayfasına tıklayabilip (işlem yapılamıyor normalde) veri girişi yapmak ve onu textbox'a getirmek anladığımdan spreadsheet önermiştim, bu şekilde de işinizi görüyorsa sıkıntı yok.

 

[kemal turan]

Anladığınız doğru.
Benin olaya userform açıkken ihtiyacım var.
Benim bulduğum çözümde de userform açık, Commmand butonu userform üzerine koydum.
Selametle kalınız.