Sub InsertSlopeFormula() Dim Cell As Range For Each Cell In Range("C1:C115") If Cell.Value > 1 And Cell.Offset(1).Value = "" Then Cell.Offset(2).Value = "a" Next Cell End Sub
Sub InsertSlopeFormula() Dim Cell As Range For Each Cell In Range("C1:C115") If Cell.Value > 1 And Cell.Offset(1).Value = "" Then Cell.Offset(2).Value = "a" Next Cell End Sub
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.
Reply With Quote
