ControlSource fonksiyonunu kodda kullanmak. Nasıl?

[woyzeck]

Merhaba Arkadaşlar,

ControlSource fonksiyonunu VB tasarım ekranındaki "properties tabloasundan"diil de "code" ekranında nası kullanabiliriz?

demem şu ki benim denediğim code aşağıdaki gibi ama işe yaramadı.

Private Sub KALIP1_Change()
KALIP1.ControlSource = "CNC_IS_EMR!C19"
End Sub

çünkü önümde bulunan ComboBox'lara tektek properties menüsünden ControlSource'un karşılığını yazmak zahmet oluyor. iş uzuyor yani. eğer kodunu yazarsam daha kısa sürede iş biter.

teşekkürler...

 

[Orion1]

Userform'un Initialize olayına yazmanız dağa doğru olacaktır.

Private Sub UserForm_Initialize()
TextBox1.ControlSource = "A1"
End Sub

 

[woyzeck]

@orion, çok teşekürler, işe yarıyor.

daha çoooookkk yol almam lazımm öğrenmem için...

ellerine sağlık

 

[bilalakdeniz]

Merhabalar, Bu fonksiyonu formüllü bir hücre için nasıl kullanabiliriz, Hücre değeri değişince textbox unda değişmesini nasıl yaparız,

 

[mancubus]

merhaba.

sn evren gizlen'in belirttiği A1 hücresinde formül veya değer olması önemli değil. formül sonucu ne ise atandığı textbox'ta o çıkacaktır.

Texbox'da çıkmasını istediğiniz hücre için doğrudan hücre referansı yazabileceğiniz gibi, bu hücreye alan adı tanımlayabilirsiniz de.

aşağıda bir örnek mevcut. çalışma kitabına Sayfa1'deki A1 hücresine referans göstererek "deneme" isminde alan adı ekler ve bunu Textbox1'in controlsource'u olarak atar.

Private Sub UserForm_Initialize()

ActiveWorkbook.Names.Add Name:="deneme", RefersTo:=Sheets("Sayfa1").Range("A1")
TextBox1.ControlSource = "deneme"

End Sub

 

[halit3]

Alternatif kod

Private Sub UserForm_Initialize()
TextBox1.ControlSource = "GİRİŞ!A1"
End Sub