placeing marco results into a cell

[seaaggie]

I want to have the results from a macro go into a cell without haveing to use cells(1,2)=resultes. instead the results goes into the cell that is active.

 

[Sbirro Cornuto]

Try:

ActiveCell.Value = your result

 

[seaaggie]

tried that I think it is something wrong with the macro this is the macro
Sub excavation()
Application.ScreenUpdating = False
config = MsgBox("enter quantities in feet only", , "excavation")
userinput1 = InputBox("grade change between manholes", "excavation", 1)
userinput2 = InputBox("distance between manholes", "excavation", 1)
userinput3 = InputBox("depth of excavation at highest FL elevation", "excavation", 1)
userinput4 = InputBox("width at bottom of trench", "excavation", 1)
tri2 = tri1(userinput1, userinput2, userinput4)
squr1 = squar1(userinput2, userinput3, userinput4)
total1 = squr1 + tri2
Cells(9, 5) = total1
End Sub

 

[Sbirro Cornuto]

What are these lines suppose to do?

tri2 = tri1(userinput1, userinput2, userinput4)
squr1 = squar1(userinput2, userinput3, userinput4)

 

[seaaggie]

[No message]

 

[seaaggie]

they go to two different functions
Function tri1(b, h, l)
tri1 = ((0.5 * (b * h)) * l) / 27
End Function
Function squar1(s, r, l1)
squar1 = (s * r * l1) / 27
End Function

 

[Sbirro Cornuto]

If the functions work, where's the problem?

 

[seaaggie]

well I just tried the functions they work but the macro will not display the results in the worksheet active cell or for the macro I sent you cell (9,5)

 

[Sbirro Cornuto]

Works for me! I threw your functions on the top the code you sent earlier and it works just fine. I replaced the Cell definition by ActiveCell.Value = total1 and it writes the total1 in whatever Cell is active. No probs...

 

[seaaggie]

thanks works great now