I have a dataset on Worksheet "Results" and the dataset is in cells B8:K900 (Actual data in these cells, rest all cells have other meta information this dataset)
Each column of this data set refers to a certain variable like B column has Steam flow, C column has Steam temp etc.
I would like to use these values to plug into a calculator on another sheet, Row by row.
Eventually I will have results in 2 Cells on another sheet which I would like to bring back to Column L and M
Code so far:
Note: Goal Seek and Rerun are 2 macros which I would like run after one row of Scenario is in input, as these will help to get results. Hence I have added them in loop also
Any help would be appreciated.
Code
Sub Goal_Seek()
Range("I33").GoalSeek Goal:=Range("P33").Value, ChangingCell:=Range("E3")
End Sub
Sub Rerun()
Do Until Range("P20") = Range("P22").Value Range("P20") = Range("P22").Value
Loop
End Sub
Sub Calcs()
Dim wb As Workbook
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, ws4 As Worksheet, ws5 As Worksheet
Dim rng As Range
Set wb = ActiveWorkbook
Set ws1 = wb.Worksheets("Results")
Set ws2 = wb.Worksheets("PI Data")
Set ws3 = wb.Worksheets("Mole_avg")
Set ws4 = wb.Worksheets("eff")
Set ws5 = wb.Worksheets("FlueGas")
Set rng = ws1.Range("B8:M9") For Each Row In rng.Rows ws1.Range("B") = ws2.Range("B6").Value ws1.Range("C").Copy Destination:=ws2.Range("B3") ws1.Range("D").Copy Destination:=ws2.Range("B4") ws1.Range("E").Copy Destination:=ws2.Range("B5") ws1.Range("F").Copy Destination:=ws2.Range("B6") ws1.Range("G").Copy Destination:=ws2.Range("B7") ws1.Range("H").Copy Destination:=ws2.Range("B8") ws1.Range("I").Copy Destination:=ws2.Range("B9") ws1.Range("J").Copy Destination:=ws2.Range("B10") ws1.Range("K").Copy Destination:=ws2.Range("B11")
Application.Run "Goal_Seek" Application.Run "Rerun"
ws3.Range("P17").Copy Destination:=ws1.Range("L") ws3.Range("T22").Copy Destination:=ws1.Range("M") Next Row
End Sub