UserFormdan Excele Tarih kaydı

[bumer]

Herkese iyi Günler,
Userformdan Excel'e tarih girişi yaptığım çalışma sayfasında "Giris", "Kopya" ve "Suz" diye üç sayfam var. Tarihe göre süzme yaptığımda "Tarih" Sütununu tarih olarak görmediği için süzme işlemini yapamıyorum. Her üç sayfa da "Tarih" sütunu tarih olarak formatlanmıştır."Giriş" sayfasında hücreye çift tıklandıktan sonra hücre değeri tarih formatına dönüşmekte ve süzme işlemi yapılabilmektedir. Sormak istediğim konu, formdan kayıt yaptığımda kaydın süzme yapılacak biçimde olmasını nasıl sağlayabilirim?
Kodlar aşağıdadır. Herkese şimdiden teşekkür ederim. İyi Günler.("Dosya ekle" bulamadığım için dosyayı ekleyemedim)

Private Sub Activate()
    DTPicker1.Value = Now
End Sub

Private Sub CommandButton1_Click()
Sheets("Giris").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0).Value = Format(DTPicker1.Value, "dd.mm.yyyy")
ActiveCell.Offset(0, 1).Value = TextBox1.Text
Range("A1").Select
DTPicker1.Value = Now
TextBox1.Text = Empty
End Sub

Private Sub CommandButton2_Click()
Sheets("Giris").Select
Cells.Select
    Selection.Copy
    Sheets("Kopya").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Set s1 = ThisWorkbook.Worksheets("Kopya")
    Set s2 = ThisWorkbook.Worksheets("Suz")
        s1.AutoFilterMode = False
        s2.AutoFilterMode = False
        s2.Range("A1:G5000").Delete
        
        Call s1.Range("A1").AutoFilter(1, ">=" & CLng(CDate(DTPicker2.Value)), xlAnd, "<=" & CLng(CDate(DTPicker3.Value)))
        s1.UsedRange.SpecialCells(xlCellTypeVisible).Copy
        
        s2.Paste s2.Range("A1")
        Application.CutCopyMode = False
        s1.AutoFilterMode = False
        s2.Select
End Sub

 

[Orion1]

ActiveCell.Offset(0, 0).Value = Format(DTPicker1.Value, "dd.mm.yyyy")

Yuakarıdaki satırı aşağıdaki ile değiştirin.

ActiveCell.Offset(0, 0).Value = DTPicker1.Value
activecell.offset(0,0).numberformat="dd.mm.yyyy"

 

[bumer]

Sayın Orion1,
Her şeyden önce ilginiz için teşekkür ederim. Bazı özel nedenlerden kendi sorumu takip edemedim. ancak şimdi zaman bulabildim ve cevabınızı gördüm. Tekrar teşekkür ederim.
aslında ben cevabı bu forumda gezinirken başka bir soru içinde bulmuştum ama meydana gelen özel durum nedeni ile soruya dönüp açıklamada bulunamadım.
Adı geçen kodu aşağıdaki şekilde değiştirince sorun düzeldi.

ActiveCell.Offset(0, 0).Value = CDate(DTPicker1.Value)

Geciktiğim için şahsınızdan özür diler, tekrar teşekkür ederim

 

[Orion1]

Cdate yazmanıza gerek yok zaten Dtpicker nesnesi tarih nesnesidir.