Code:
Function CaTaxConstant(Constant) As Double
' Calculates Tax Constants
Select Case Constant
Case 0 To 41543.99: CaTaxConstant = 1 * 0
Case 41544 To 83087.99: CaTaxConstant = 1 * 2908
Case 83088 To 128799.99: CaTaxConstant = 1 * 6232
Case Is >= 128800: CaTaxConstant = 1 * 10096
End Select
End Function
Currently I've got
Code:
Sub Enter2011CaCon()
Range("B18").Select
ActiveCell.FormulaR1C1 = "=CaTaxConstant(R[-3]C)"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Code:
If xCell.Value = "K" Then
xCell.Offset(0, 1) = K
End If
-- g