Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function Gre()
- Range("E2").Select
- ActiveCell.FormulaR1C1 = "Under"
- Range("F2").Select
- ActiveCell.FormulaR1C1 = "Over"
- Range("G2").Select
- ActiveCell.FormulaR1C1 = "Result"
- With Range("E2:E" & Cells(Rows.Count, "C").End(xlUp).Row)
- .Formula = "=IF(C2<B2,B2-C2,"")"
- End With
- With Range("F2:F" & Cells(Rows.Count, "C").End(xlUp).Row)
- .Formula = "=IF(C2>B2,C2-B2,0)"
- End With
- With Range("G2:G" & Cells(Rows.Count, "C").End(xlUp).Row)
- .Formula = "=IF(F2>0,'Issue',"")"
- End With
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement