Use if, ElseIf and Else with ActiveCell : ActiveCell « Excel « VBA / Excel / Access / Word

Use if, ElseIf and Else with ActiveCell : ActiveCell « Excel « VBA / Excel / Access / Word ... Sub MyMacro() If ActiveCell.Value > 1000 Then ActiveCell.Offset(0, 1).Value = ActiveCell.Value * 0.05 ElseIf ActiveCell.Value > 500 Then ActiveCell.Offset ...

www.java2s.com