Wingfield65,
That makes much more sense, we can do that. I will try to get this done quickly, I have an appointment soon. Please find below code and see if it works.
Sub sensitivity()
Dim row as Integer
For row = 1 to 800
If Worksheets("sensitivity").Cells(row + 1, 1) <> "" Then
Worksheets("inputs").Cells(2, 3) = Worksheets("sensitivity").Cells(row + 1, 1)
Worksheets("inputs").Cells(3, 3) = Worksheets("sensitivity").Cells(row + 1, 2)
Worksheets("sensitivity").Cells(row + 1, 3) = Worksheets("results1").Cells(2, 3)
Worksheets("sensitivity").Cells(row + 1, 4) = Worksheets("results2").Cells(2, 3)
Else
End if
Next row
That should do it, i'm sure others will help if i've made an error in code grammar. The "For" command works wonders in excel.
I'll try to poke back into the thread if you have any other questions.
DarkF1ame
Bookmarks