Hücreye çift tıklamak sureti ile textbox' a atama

[mustafa155]

Sevgili arkadaşlar ekte gönderdiğim dosyada bir adet textbox ve B sütununda da numaralar bulunmaktadır. Benim istediğim B sütunundaki herhangi bir hücreye çift tıkladığımda hücre içerisinde yazılı numaranın textbox 1 içinde görülmesidir. Saygılarımla

 

[korkut31]

buyrun

arzu ettiğiniz işlemi ekteki dosyada hazırladım..
lütfen kodlarına bakınız ve kendinize uyallayınız.
uamrım yardımcı olabilmişizdir. iyi çalışmalr

 

[mustafa155]

sayın korkut31 verdiğiniz önek için çok teşekkür ederim. Yalnız, kullandığım asıl çalışmada B sütunundaki girişler bu kadar değil, devamlı giriş yapılamakta, B sütununa 2000 tane bile veri girebilirim. Sizin yaptığınız tam istediğim gibi elinize sağlık ama, bu işlemin tüm sütun için geçerli olmasını istiyorum.
Saygılarımla

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Cancel = True
TextBox1 = Target
End Sub

 

[mustafa155]

sayın leventm tam uydu. Eline sağlık