Sub btwtwodates()
Range("JH2:JH200000").ClearContents
Dim StartRow As Long, Lastrow As Long
StartRow = 2
Lastrow = Sheet3.Cells(Sheet3.Rows.Count, 1).End(xlUp).Row
Dim sClass As String
For i = StartRow To Lastrow
dateoffirsttest = Sheet3.Range("Y" & i).Value
dateofconfirmation = Sheet3.Range("AD" & i).Value
numberofppw = Sheet3.Range("JG" & i).Value
If numberofppw = 1 Then GoTo newknownstatus
newknownstatus:
If dateoffirsttest <= dateofconfirmation Then
sClass = "1"
Else
sClass = ""
End If
Sheet3.Range("JH" & i).Value = sClass
Next
End Sub
Bookmarks