If Then statement comparing date values
 

Hi,
I'm working on an If Then statement that compares date values. I've
currently got the following, but it isn't working. Thanks for any
help you might provide. - Louis
-------------------------------------
fillamt = UserForm1.TextBox6.Value
For j = 2 To fillamt

Cells(j, 1).Value = Cells(j - 1, 1).Value + 1
Cells(j, 1).NumberFormat = "m/d/yyyy"

Cells(j, 2).Value = Cells(j - 1, 2).Value + 1
Cells(j, 2).NumberFormat = "ddd"

If Cells(j, 2) = "Sat" Then
Cells(j, 4).Select
ActiveCell = "0"
End If

Next j

If Then statement comparing date values
 

Sub ABC()
Dim fillamt as Long, r as Range
'fillamt = "13"
fillamt = UserForm1.TextBox6.Value
Set r = Range("A1").Resize(fillamt , 1)
Range("A1").AutoFill r
r.Copy r.Offset(0, 1)
r.NumberFormat = "m/d/yyyy"
r.Offset(0, 1).NumberFormat = "ddd"
For Each cell In r
If Weekday(cell, vbSunday) = 7 Then
cell.Offset(0, 3).Value = 0
End If
Next
End Sub


--
Regards,
Tom Ogilvy


"ll" wrote:

Hi,
I'm working on an If Then statement that compares date values. I've
currently got the following, but it isn't working. Thanks for any
help you might provide. - Louis
-------------------------------------
fillamt = UserForm1.TextBox6.Value
For j = 2 To fillamt

Cells(j, 1).Value = Cells(j - 1, 1).Value + 1
Cells(j, 1).NumberFormat = "m/d/yyyy"

Cells(j, 2).Value = Cells(j - 1, 2).Value + 1
Cells(j, 2).NumberFormat = "ddd"

If Cells(j, 2) = "Sat" Then
Cells(j, 4).Select
ActiveCell = "0"
End If

Next j