Format(, "dddd") satırında hata

[mersilen]

merhabalar

aşağıdaki kodda hata alıyorum,hücrelerden biri metin, diğeri tarih formatında yardımcı olabilir misiniz?

Private Sub CommandButton1_Click()
Dim x, ts As Integer
Application.ScreenUpdating = False
Application.Calculation = xlManual

For x = 5 To 5
If Cells(x, "Q") = "" Then
For ts = 8 To 14
If Format(Cells(ts, "L"), "dddd") = Format(Cells(x, "Q"), "dddd") Then
Range("C22") = Clear
Range("C22") = "gün " & ts - 7 & " " & Format((Cells(ts, "L")), "dddd")
gs = ts - 7

Range("a" & 15 + ts) = "doğru"
Else
Range("c" & 15 + ts) = "hata"
End If
Next
End If
Next x

 

[Ömer]

Merhaba,

Eklediğiniz dosyada herhangi bir hata almadım. Sorularınızı daha detaylı açıklamaya özen göstermenizi rica ederim.

.

 

[mersilen]

teşekkür ederim,
sorun bendeymiş.

Format(Cells(ts, "L"), "dddd") = Format(Cells(x, "P"), "dddd")