Tarih formatları metin biçiminde aktarılıyor

[byenerji]

arkadaşlar yapmakta olduğum değer föyünde değerleri diğer sayfaya arşivlediğim tarihi rapor almak için kullanamıyorum tarih formatları uymuyor raporladığım sayfadaki format text galiba bu konuda yardımcı olurmusunuz birde gözünüze başka eksiklikler takılırsa yardımlarınızı bekliyorum

teşekkürler

 

[Korhan Ayhan]

Selamlar,

Modül1 içinde bulunan kodu aşağıdaki şekilde değiştirip denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet, S2 As Worksheet, SATIR As Long
    
    Set S1 = Sheets("VERİ GİRİŞ")
    Set S2 = Sheets("DATA")
    
    SATIR = S2.Range("A65536").End(3).Row + 1
    
[COLOR=red]    S2.Cells(SATIR, "A") = CDate(S1.Range("D2"))
[/COLOR]        
    S1.Range("D3:D" & S1.Range("A65536").End(3).Row).Copy
    S2.Cells(SATIR, "C").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    Application.CutCopyMode = False
    
    
    S2.Select
    Range("A1").Select
    
    Set S1 = Nothing
    Set S2 = Nothing
    ActiveWorkbook.Save

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub