VBA?????????

Здр. на всички !

Въпроса ми е , как да проверя дали има съвпадение на датата и месеца , защото в този момент ми проверява само дали датата в лист 1 е равна на датата в лист 2 и ако е вярно, отпечатва стойност в определената клетка .
Благодаря !

For j = 1 To 255
If Day(Sheets("Лист1").Range("b13")) = Day(Sheets("Лист2").Cells(2, j)) Then
Sheets("Лист2").Cells(15, j) = Sheets("Лист1").Range("F12")
End If
Next j
End Sub

If Day(Sheets("Sheet1").Range("b13")) = Day(Sheets("Sheet2").Cells(2, j)) And _
Month(Sheets("Sheet1").Range("b13")) = Month(Sheets("Sheet2").Cells(2, j)) Then ...

Здр.
Благодаря ти за идеята ,ама нещо не се полу4ава !
Кода извиква Синтактичка грешка,защо?

Явно трябва и елементарни неща да се казват. Напиши го на един ред и ще се оправи.