formüllü textbox

[GursoyC]

Merhaba,
ekteki dosyamda, userform1 üzerindeki textbox'a F4 hücresinde yazan değeri yazdırmaya çalışıyorum.
controlsource kullanamıyorum çünkü görüleceği üzere F4 hücresinde formül var ve değeri combobox ile sürekli değiştirilebiliyor.

çok aradım. yabancı forumlara da baktım, sadece 1 kişi worksheet_calculate özelliğini kullanarak çözdüm demiş ama çözümü yazmamış.

yardımcı olur musunuz?

 

[Ömer BARAN]

Merhaba.

UserForm'un ShowModal özelliğini FALSE yaptığınıza göre;
userform üzerinde çalışırken aynı anda sayfa üzerinde de işlem yapacaksınız.

► UserForm'a aşağıdaki kod'u uyulayın.
.

[B]Private Sub UserForm_[COLOR="Red"]Initialize[/COLOR]()[/B]
    TextBox1 = [F4]
[B]End Sub[/B]

► Alt taraftan Sheet1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan VBA ekranın'da sağdaki boş alana aşağıdaki kod'u uygulayın.
.

[B]Private Sub [COLOR="red"]ComboBox1_Change[/COLOR]()[/B]
    If UserForm1.Visible = True Then UserForm1.TextBox1 = [F4]
[B]End Sub[/B]

 

[GursoyC]

Ömer bey, çok teşekkür ederim. Mükemmel çalışıyor.

 

[Ömer BARAN]

Kolay gelsin.
.

 

[ruhadam26]

ömer bey bana da buna benzer bir şey lazım yardımcı olabilir misiniz ?