Text formatında olan tarihleri yeniden tarih formatına çevirmek

[vurkan]

Arkadaşlar merhaba, Çift tıklamayla ANA SAYFA dan ÖDENENLER sayfasına aktardığım satırda oluşturduğum tarih, hücrede yazı formatında oluyor. Böyle olunca tarih filtresinde kullanılamıyor. Bunları tarih formatına çevirmek için nasıl bir yol izlemeliyim. Hücreye girip enter yapınca (çift tıklama veya F2 ile) tarih formatına dönüyorlar. Her satır aktardığımda tekrarlanan bir kod veya aşağıdaki koda ilave bir satır olabilir.
Dönüştürmek istediğim tarihler L3 ten başlayan sütundalar. Aşağıdaki kodun neresine ne eklersem istediğim olur. Saygılar

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
Application.Calculation = XlCalculation.xlCalculationManual
Dim s1 As Worksheet
Dim s3 As Worksheet
Set s1 = Sheets("ANA SAYFA")
Set s3 = Sheets("ÖDENENLER")
son3 = s3.Cells(65536, "B").End(3).Row + 1
sat = Target.Row
süt = Target.Column
If süt = 12 And sat > 2 And sat <= 5000 Then
Cancel = True
If Target.Value = Format(Now, "dd.mm.yyyy") Then
Target.Value = ""
Else
Target.Value = Format(Now, "dd.mm.yyyy")
t = Target.Row
s1.Range("B" & t & ":L" & t).Copy
s3.Range("B" & son3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
s3.Range("B" & son3 - 1 & ":L" & son3 - 1).Copy
s3.Range("B" & son3 & ":L" & son3).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
s1.Select
s1.Range("L" & t).EntireRow.Delete
s1.Range("B3").Select
End If
End If
If t > 2 Then
Application.ScreenUpdating = True
Application.Calculation = XlCalculation.xlCalculationAutomatic
MsgBox "BU SATIR ÖDENENLER SAYFASINA AKTARILMIŞTIR", vbInformation, "BİLGİ"
End If

End Sub

 

[Orion1]

İlgili yeri aşağıdaki kod ile değiştiriniz.

If Target.Value = date Then

Target.Value = ""

Else

Target.Value = date

 

[vurkan]

Sayın Orion1 İlginize teşekkür ederim. Önerdiğiniz değişiklik işe yaradı. Sağolun

 

[Orion1]

Sayın Orion1 İlginize teşekkür ederim. Önerdiğiniz değişiklik işe yaradı. Sağolun

Rica ederim.
İyi çalışmalar.