Excelde ki formülü textboxa uygulama

[ruhadam26]

Userformda veri girişi yaptığım bir çalışmada örneğin:Kaydet butonuna bastığımda girdiğim veriler excele gerekli hücrelere aktarılıyor. Ama kaydetmeden yani veri girişi devam ederken textbox3 e girdiğim değerin karşılığını textbox4 de görmek istiyorum.textbox3 e veri girişi yapıp kaydettiğimde excelde D4 hücresine yazıyor o hücreye yazılan değer ise D5 hücresindeki formülü çalıştırıp D5 hücresine bir değer getiriyor. bu getirilen değeri userformda textbox4 de anlık görmek istiyorum.Textbox4 e el ile veri girişi olmayacak veriyi hücreden çekip userform üzerinde göstererek bir nevi otokontrol olacak. textbox yerine combobox yada labelde olur yeterki form üzerinde excele kaydetmeden ne yazacağını görebileyim nasıl yapabilirim.Siz değerli üstadlardan bu konuda yardımlarınızı şiddetle bekliyorum
dosya:http://s2.dosya.tc/server8/gr1957/GUNLUK_RAPOR.rar.html

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Private Sub Textbox3_Change()
On Local Error GoTo hata
TextBox4.Value = Sheets("DATA").Range("A:A").Find(What:=TextBox3, LookAt:=xlWhole).Offset(0, 1)
Exit Sub
hata:
TextBox4.Value = "HATA"
End Sub

 

[ruhadam26]

Private Sub Textbox3_Change() On Local Error GoTo hata TextBox4.Value = Sheets("DATA").Range("A:A").Find(What:=TextBox3, LookAt:=xlWhole).Offset(0, 1) Exit Sub hata: TextBox4.Value = "HATA" End Sub

çok teşekkür ederim tam istediğim gibi oldu. Yalnız textbox4 te gösterilen deger gri olarak yazıyor zor gözüküyor. siyah renkte yazsa ve textbox4 e el ile bir şey girilemesin.

 

[ÖmerBey]

Rica ederim, ancak gri yazması sizin yaptığınız ayarlardan kaynaklanıyor. Textbox4'ün enabled değerini true yaparsanız renk sorunu ortadan kalkar. Giriş yapılmaması için de locked değerini true yapınız.

 

[ruhadam26]

Rica ederim, ancak gri yazması sizin yaptığınız ayarlardan kaynaklanıyor. Textbox4'ün enabled değerini true yaparsanız renk sorunu ortadan kalkar. Giriş yapılmaması için de locked değerini true yapınız.

Tekrardan teşekkür ederim emeğinize sağlık