Comparing two cells with dates in VBA

[Edleets]

I have trouble trying to get the right sintax of comparing two dates locates in two different sheets.

Example:
Sheet 1, cell A1 = 12/11/2009
Sheet 2, cell B1 = 12/11/2009

If I need to do something based on condition that Sheet1 date = sheet 2 date, how will the code be written? I have

If Sheets("Sheet1").range("A1") = Sheets("Sheet2").range("B1") Then
**** my code here

I am not getting anything, am I missing something?

Thanks
Edmundo

 

[Simon Lloyd]

So your code now looks something like this?

Sub n()
Dim i As Long
Sheets("Lines").Range("C68:P68").Selection.Copy
For i = 4 To 366
If CDate(Sheets("L1").Cells(i, 4).Value) = CDate(Sheets("Lines").Range("A68").Value) Then
Cells(i, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
MsgBox "Date Not Found"
Exit Sub
End If
Next
End Sub

however there will still be a problem i think, where you see Cells (i, 4).Pastespecial a sheet isn't designated, but that should be simple to sort out

 

[VoG]

This is almost bound to crash

Sheets("Lines").Range("C68:P68").Selection.Copy

 

[Simon Lloyd]

This is almost bound to crash

Sheets("Lines").Range("C68:P68").Selection.Copy

VoG, thanks, it was just a missed portion when i deleted his previous selects

Sub n()
Dim i As Long
Sheets("Lines").Range("C68:P68").Copy 'correction courtesy of VoG
For i = 4 To 366
If CDate(Sheets("L1").Cells(i, 4).Value) = CDate(Sheets("Lines").Range("A68").Value) Then
Cells(i, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
MsgBox "Date Not Found"
Exit Sub
End If
Next
End Sub