C1:C26 aralığını kaydederken arada bir hücreyi tarih formatında

[kelkitli]

Değerli Dostlar Selamlar,
Tarih konusuyla ilgili sıkıntılarım var. Şöyleki:

Sub kayıt()
Set S1 = Sayfa1
Set S2 = Sayfa2
S1.Select
Set Bul = S2.[B:B].Find([C1])
If Not Bul Is Nothing Then
MsgBox "MÜKERRER KAYIT !", vbCritical, "DİKKAT !"
UserForm1.Show
Exit Sub
End If
Range("C1:C26").Copy
S2.Select
Son_Satır = Range("B65536").End(3).Offset(1).Row
Range("A" & Son_Satır) = Son_Satır - 1
Range("B65536").End(3).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
Application.CutCopyMode = False
S1.[C1:C26] = ""
S1.Select
Set S1 = Nothing
Set S2 = Nothing
MsgBox "YAŞLI KAYDI TAMAMLANDI"
End Sub

Burada C1:C26 aralığını kaydederken C5 ve C25 hücrelerini Tarih formatında
yani "dd.mm.yyyy" olarak kaydetmem gerekiyor. With deyimimi kullanmalıyım yada nasıl yapılmalı.
Birde sistemden (mesela doğum tarihi 1940) yıl olarak gelen tarihleri aynı yıl 01.07.(yıl) olarak hücrede düzeltmem lazım. 1940 olunca 23.04.1905 yazıyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Sizin kodunuza kırmızı renkli satırlar eklenmiştir. Yada koda hiç ekleme yapmayıp Sayfa2 de "F" ve "Z" sütunlarını tarih formatında biçimlendirerek sorununuza çözüm bulabilirsiniz.

Sub Kayıt()
    Set S1 = Sayfa1
    Set S2 = Sayfa2
    S1.Select
    Set Bul = S2.[B:B].Find([C1])
    If Not Bul Is Nothing Then
    MsgBox "MÜKERRER KAYIT !", vbCritical, "DİKKAT !"
    UserForm1.Show
    Exit Sub
    End If
    Range("C1:C26").Copy
    S2.Select
    Son_Satır = Range("B65536").End(3).Offset(1).Row
    Range("A" & Son_Satır) = Son_Satır - 1
    Range("B65536").End(3).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=True, Transpose:=True
    Application.CutCopyMode = False
[COLOR=red]    S2.Cells(Son_Satır, "F") = Format(S1.[C5], "dd.mm.yyyy")[/COLOR]
[COLOR=red]    S2.Cells(Son_Satır, "Z") = Format(S1.[C25], "dd.mm.yyyy")[/COLOR]
    S1.[C1:C26] = ""
    S1.Select
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "YAŞLI KAYDI TAMAMLANDI"
End Sub

 

[kelkitli]

Sayın Korhan Hocam Selamlar,
Hücre biçimlendirmeyi yaptım ancak yeni kayıtlardan sonra toplam hesap içerisinde görünmüyordu. Hücreye değişiklik yapmadan çift tıklayınca toplam hesapta gözüküyordu. Teşekkür ederim. Bu şekilde daha net bir çözüm oldu sanırım. Sağolun sizin bilgilriniz ve katkılarınızla.