copy formula from cell to textbox

[sachin katariya]

I have created a user form to update fees of students
problem is fees is paid in installment like =5000+5000 => 10000
but in text box it shows only value i.e 10000

How to copy formula from cell to textbox

 

[sachin katariya]

Private Sub CommandButton4_Click()
Dim x As Long
Dim y As Long
x = Sheets("data").Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheets("data").Cells(y, 1).Text = TextBox22.Value Then
TextBox1.Text = Sheets("data").Cells(y, 5)
TextBox2.Text = Sheets("data").Cells(y, 7)
TextBox3.Text = Sheets("data").Cells(y, 8)......

This is to search student

 

[StuLux]

If you are happy with a simple function in VBA place the following code in a module within your workbook:

Function GetFormula(cell As Range) As String
    GetFormula = cell.Formula
End Function

An example of how to use this:
If your formula of =5000+5000 is in cell A1 then you will now be able to use the formula =GetFormula(A1) in any other cell to show the formula itself rather than the result.

For users with Office 365 there is now a new formula called FORMUALTEXT that does the same thing without having to add your own VBA.

 

[StuLux]

Apologies - have just noted that you want to return this to a text box however by 'extracting' the text of the formula (as per my response) to another cell this should make it easier to show in a text box.

 

[sachin katariya]

THANK YOU SIR