TARİH hk.

[adige18]

mrb paket programlarında tarih direrken gün ay yıl arasına nokta beya sılaç koymadan tarih yazabiliyoz örneğin 13022008 yazdığımda 13/02/2008 çıkıyo biliysonuzdur bunu excel hücresinde de olma ihtimali varmıdır? hücreye 13022008 yazdığımda 13/02/2008 yazılabilirmi yardımcı olursanız sevinirim

 

[Necdet]

Merhaba,

Aşağıdaki linki inceleyiniz.

http://www.excel.web.tr/search.php?searchid=521346

 

[amelie]

format cells-custom 'a 00"."00"."0000 biçimini atarsanız .'sız giriş yapabilirsiniz.Ancak bu bilgi tarih formatında olmaz!

 

[Merhum İdris SERDAR]

mrb paket programlarında tarih direrken gün ay yıl arasına nokta beya sılaç koymadan tarih yazabiliyoz örneğin 13022008 yazdığımda 13/02/2008 çıkıyo biliysonuzdur bunu excel hücresinde de olma ihtimali varmıdır? hücreye 13022008 yazdığımda 13/02/2008 yazılabilirmi yardımcı olursanız sevinirim

Ekteki örneği inceleyin.

 

[akrhector]

merhaba amelie
yazmış olduğun kodu biraz açarmısın çünkü bu benim içinde bir sorun örneğin ben tarihi hücreye girer iken 01012008 olarak yazıp bunu bana 01.01.2008 olarak çevirmesini istiyorum.bilmem çok şeymi istiyorum.
eğer ilgilenirsen çok memnun olurum.
şimdiden teşekkürler.
kurtulus erdoğan

 

[Necdet]

Merhaba,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.
Sadece A sütununda çalışır, bunu değiştirebilirsiniz. Girilen değerin 7 yada 8 uzunluğunda olması halinde çalışır. Onun dışında çalışmaz girilen değer aynen kalır.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [[COLOR=red][B]A:A[/B][/COLOR]]) Is Nothing Then Exit Sub
If IsNumeric(Target) = False Or Target = "" Then GoTo Son
Tarih = ""
Select Case Len(Target)
    Case 8
        Yıl = Right(Target, 4) + 0
        Ay = Mid(Target, 3, 2) + 0
        Gün = Left(Target, 2) + 0
        Tarih = DateSerial(Yıl, Ay, Gün)
    Case 7
        Yıl = Right(Target, 4) + 0
        Ay = Mid(Target, 2, 2) + 0
        Gün = Left(Target, 1) + 0
        Tarih = DateSerial(Yıl, Ay, Gün)
    Case Else
        GoTo Son
End Select
    Application.EnableEvents = False
    With Target
        .Value = Tarih
        Application.EnableEvents = True
     End With
     
Son:
End Sub