Sub SimpleCalc()
Dim SimpleMethodRng, SimpleMethod As String, i As Integer
ActiveWorkbook.Worksheets("Dashboard").Range("P5").Select
SimpleMethodRng = ActiveWorkbook.Worksheets("Dashboard").Range("N5:P12")
For i = 1 To 8
SimpleMethod = SimpleMethodRng(i, 1)
If SimpleMethod = "per pyung" Then _
Selection.Offset(i - 1, 0).Value = SimpleMethodRng(i, 2) * Range("GLA") _
Else Selection.Offset(i - 1, -1).Value = SimpleMethodRng(i, 3) / Range("GLA")
Next i
End Sub
Sub SimpleCalc2()
Dim SimpleMethodRng As Range, SimpleMethod As String, i As Integer
SimpleMethodRng = ActiveWorkbook.Worksheets("Dashboard").Range("N5:P12")
For i = 1 To 8
If SimpleMethodRng(i, 1) = "per pyung" Then _
SimpleMethodRng(i, 3).Value = SimpleMethodRng(i, 2) * Range("GLA") _
Else SimpleMethodRng(i, 2).Value = SimpleMethodRng(i, 3) / Range("GLA")
Next i
End Sub
Bookmarks