Putting a formula into a cell where cells vary

Private Sub CommandButton1_Click()
Dim NumMembers As Integer
NumMembers = Cells(2, 2).Value
Dim ConCheck As Integer
Dim Con1 As Integer
Dim Con2 As Integer


For ConCheck = 1 To NumMembers


Con1 = Cells(4 + ConCheck, 12)
Con2 = Cells(4 + ConCheck, 13)


If Cells(4 + Con1, 3) = "Fixed" Then GoTo Fixed 'check if the bearing is fixed

Cells(4 + Con1, 8).Formula = (Cells(4 + ConCheck, 11) ^ 2 - (Cells(4 + Con2, 9) + Cells(4 + Con1, 9)) ^ 2) ^ 0.5 - Cells(4 + Con2, 8) 'print Con1(x)
Cells(4 + Con1, 9).Formula = (Cells(4 + ConCheck, 11) ^ 2 - (Cells(4 + Con2, 8) + Cells(4 + Con1, 8)) ^ 2) ^ 0.5 - Cells(4 + Con2, 9) 'print Con1(y)
Cells(4 + Con2, 8).Formula = (Cells(4 + ConCheck, 11) ^ 2 - (Cells(4 + Con1, 9) + Cells(4 + Con2, 9)) ^ 2) ^ 0.5 - Cells(4 + Con1, 8) 'print Con2(x)
Cells(4 + Con2, 9).Formula = (Cells(4 + ConCheck, 11) ^ 2 - (Cells(4 + Con1, 8) + Cells(4 + Con2, 8)) ^ 2) ^ 0.5 - Cells(4 + Con1, 9) 'print Con2(y)

Fixed: Next ConCheck

End Sub


This is my script I have written to attempt to input formulae into cells. The issue that I have is keep the formula in the cell instead of the value as the value changes as more equations are solved but when I put the "" marks round I obviouosly just get what is written above in the cell. I have found it difficult to explain this but basically would like to code in a way that the variables that correspond to cells become fixed to that cell when the formula prints into the cell e.g.

Cells(4 + Con1, 8).Formula = (Cells(4 + ConCheck, 11) ^ 2 - (Cells(4 + Con2, 9) + Cells(4 + Con1, 9)) ^ 2) ^ 0.5 - Cells(4 + Con2, 8)

becomes

Cells(4 + Con1, 8).Formula = "((K5) ^ 2 - (I6 + I7)) ^ 2) ^ 0.5 - H6"

so that formula stays in that cell but the VBA script can still alter the formula dependant on the variables.

hope this makes sense please help!

sorry about that new to this!

but that worked a dream however, there's often 2 or more of these equation being entered into the one cell. I expected this, do you know any ways to solve them to give a value into the cell, all while keeping the formula there so if I were to change a cell on the spreadsheet it would change all corresponding cells?

My VBA knowledge is limited. and I realise this is complex so any help is welcomed!

so the spreadsheet is used to calculate positions of bearings in a large machine using a coordinate system. The end goal is to have these coordinates in the cells but as formula so if i wish to see how a change in length alters the position of the bearings. This has all been done however the system as is tries to put multiple formulas into the one cell but the system needs these to solve it as one is not enough. I do wonder if the VBA will stretch this far and be able to do this.
The spreadsheet is poor and try avoid hitting the "Insert" button as it is buggy and wipes entered data. Really struggling to see where to attach the file??????

got it. sorry about that.