Excel'deki Formül Verili Hücreyi Textbox'a Aktarma

[katip16487]

Excel Sayfa1'de A1 hücresinde =A2*A3*2 formülü bulunuyor.

UserForm'da bulunan TextBox1'in ControlSource kısmını sayfa1!a1 şeklinde düzenleyince A1 hücresindeki veriyi TextBox1'e aktarıyor, ancak aktardıktan sonra A1 hücresindeki formülü siliyor ve A1 hücresi sabit kalmaya devam ediyor.

TextBox2 A2 hücresine veri aktarıyor, TextBox3 ise A3 hücresine veri aktarıyor.

UserForm üzerinde yer alan TextBox2 ve TextBox3'deki veriler değiştiğinde TextBox1'deki değerin değişmesini, ancak A1 hücresindeki formülün aynen kalmasını istiyorum.

Bunu sağlayabileceğim bir durum var mıdır?

Yada A1 hücresindeki veriyi UserForm üzerinde sadece görebileceğim bir özellik bulunmakta mıdır?

Saygılarımla...

 

[PLİNT]

Merhaba
"Sayfa1" kod sayfasına aşağıdaki kodu eklerseniz silinsede formulü tekrar yazacaktır

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then _
    Range("A1").FormulaR1C1 = "=R[1]C*R[2]C*2"
End Sub

 

[katip16487]

Teşekkür ederim, ancak benim verdiğim tek bi örnekti, bu şekilde çok fazla hazırladığım textbox mevcut. Tek tek hepsi için formül yazmak işkence olur benim için. Yine de teşekkür ederim.

 

[Trilenium]

textbox1.text= Sheets("Sayfa1").range("A1").value

bunu yazdığınızda A1 hücresinde ne yazan veriyi textbox1 e aktaracaktır.

Textbox1 in controlsource bölümüne yazdığınızı silip bu kod ile devam edebilirsiniz...