Loss1003
04-21-2016, 06:37 PM
Please see if you can help me rewrite the code below. perhaps a select case or another method might accomplish what I'm trying to do.
If UserForm1.Date2.Value >= UserForm1.Order1 Then
UserForm1.Days1.Value = ""
Exit Sub
End If
With UserForm1
If .Order1 = "" Or .Due1 = "" Then
.Days1 = ""
End If
End With
With UserForm1
If .Due1 >= .Order1 Then
.Days1.Value = DateDiff("d", CDate(.TDate1.Value), CDate(.Due1.Value))
End If
End With
With UserForm1
If .Extend1 >= .Order1 Then
.Days1.Value = DateDiff("d", CDate(.Due1.Value), CDate(.Extend1.Value))
End If
End With
With UserForm1
If .Date2 = "" Then
.Days1.Value = DateDiff("d", CDate(UserForm1.Order1.Value), CDate(UserForm1.Due1.Value))
End If
End With
If UserForm1.Date2.Value >= UserForm1.Order1 Then
UserForm1.Days1.Value = ""
Exit Sub
End If
With UserForm1
If .Order1 = "" Or .Due1 = "" Then
.Days1 = ""
End If
End With
With UserForm1
If .Due1 >= .Order1 Then
.Days1.Value = DateDiff("d", CDate(.TDate1.Value), CDate(.Due1.Value))
End If
End With
With UserForm1
If .Extend1 >= .Order1 Then
.Days1.Value = DateDiff("d", CDate(.Due1.Value), CDate(.Extend1.Value))
End If
End With
With UserForm1
If .Date2 = "" Then
.Days1.Value = DateDiff("d", CDate(UserForm1.Order1.Value), CDate(UserForm1.Due1.Value))
End If
End With