'=IF(ISBLANK(B22),"",IF(ISBLANK(B23),"",IF((B22-B23=0),"Met",IF((B22-B23<0),
"Over","Under"))))
Sub test()
Dim rng1 As Range, rng2 As Range
Set rng1 = Range("B22")
Set rng2 = Range("B23")
With ActiveCell
If IsEmpty(rng1.Value) Or IsEmpty(rng2.Value) Then
.Value = ""
Else
Select Case rng1.Value - rng2.Value
Case 0: .Value = "Met"
Case Is < 0: .Value = "Over"
Case Else: .Value = "Under"
End Select
End If
End With
End Sub
'=IF(ISBLANK(B22),"",IF(ISBLANK(B23),"",IF((B22-B23<0),-(B22-B23),IF((B22-B2
3=0),"",B22-B23))))
Sub test2()
Dim rng1 As Range, rng2 As Range, dblTemp As Double
Set rng1 = Range("B22")
Set rng2 = Range("B23")
With ActiveCell
If IsEmpty(rng1.Value) Or IsEmpty(rng2.Value) Then
.Value = ""
Else
dblTemp = rng1.Value - rng2.Value
Select Case dblTemp
Case Is < 0: .Value = -dblTemp
Case 0: .Value = ""
Case Else: .Value = dblTemp
End Select
End If
End With
End Sub
--
Rob van Gelder -
http://www.vangelder.co.nz/excel
"Erik" wrote in message
...
I have a couple of formulas that I would like to replace with a sub. This
is beyond my capabilities however. Any suggestions are appreciated. The
formulas follow:
=IF(ISBLANK(B22),"",IF(ISBLANK(B23),"",IF((B22-B23=0),"Met",IF((B22-B23<0),"
Over","Under"))))
=IF(ISBLANK(B22),"",IF(ISBLANK(B23),"",IF((B22-B23<0),-(B22-B23),IF((B22-B23
=0),"",B22-B23))))