• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

HÜCREDEKİ OTOMATİK TARİH FORMATI

  • Konbuyu başlatan Konbuyu başlatan ali.bal
  • Başlangıç tarihi Başlangıç tarihi
Katılım
9 Kasım 2004
Mesajlar
20
Excel Vers. ve Dili
Excel 2003 TR/ING
HÜCREDEKÝ OTOMATÝK TARÝH FORMATI

Arkadaşlar selam.Bir konuda yardımıınızı rica edeceğim.
Bir hücreye tarih girişi yapılıyor.bu giriş için girilen rakamı otomatik tarih olarak nasıl algılatırız.Ã?rneğin 18112004 olarak girince otomatik 18.11.2004
formatını kendi kendi versin.makrolu-makrosuz yardımlarınız için şimdiden teşekkür ederim.
Saygı ve sevgilerimle!
 
Sayın leventm linki inceledim ve "=DATE(LEFT(C3;4);MID(C3;5;2);RIGHT(C3;2))" formülünden bahsediyor ancak bu formülü hücreye yazamıyorum çünkü giriş yapıyorum o hücreye makro da nasıl kullanabilirim bunu acaba? Teşekkür ederim.Saygılarımla!
 
worksheet in change olayına

[vb:1:70ef40213a]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim blg As Range
If Target.Count > 1 Then Exit Sub
Set blg = Range("A:A")
If Intersect(Target, blg) Is Nothing Then Exit Sub
If Len(Target) = 8 Then
If InStr(Target, ".") = 0 Then Target = Left(Target, 2) & "." & Mid(Target, 3, 2) & "." & Right(Target, 4)
End If
End Sub[/vb:1:70ef40213a]

kodunu eklerseniz, a sütununa bahsettiğiniz formatta girdiğiniz her tarih kısaltmasını istediğiniz formata çevirir.
 
Merhaba :hey:

Makrosuz çözüm:

Kod:
=CONCATENATE(LEFT(C3;2);".";MID(C3;3;2);".";RIGHT(C3;4))

İyi çalışmalar
 
Başka hücreye formülü yazar(örneğin d3) , c kolonunuda saklayabilir.Alternatif çözüm.
 
İlginize ve bilginize çok teşekkür ederim.Tam istediğim bilgiler.Bu paylaşımcı yönünüz için de ayrıca teşekkür ederim.
Saygılarımla.
 
Acaba bir de hücre biçimlendir>isteğe uyarlanmış>00.00.0000 şeklinde bir şey var mıydı?
 
arkadaşlar yine sitemizde bir arkadaşımızın yazmış olduğu format vardı. hatırlatma babında yazayım dedim. hücre biçimlendir>isteğe uyarlanmış kısmına ##\.##\.#### yapar isek 11082004 tarihini otomatik olarak 11.08.2004 şeklinde görüntüleyecektir. kolay gelsin
 
ArkadaŞlar Merhaba
Benİmde Benzer Bİr Sorunum Var
Fakat Ben TÜm Sheet İÇİn GeÇerlİ Olmasini İstİyorum
Yanİ AÇilan Excel Sheetİnde 07022007 Gİbİ Bİr Rakam GİrdİĞİmde Otomatİk Olarak 07/02/2007 Formatina Çevİrmesİnİ İstİyorum
Makroyla Halledebİlmek MÜmkÜn MÜ Acaba
TeŞekkÜrler
 
ArkadaŞlar Merhaba
Benİmde Benzer Bİr Sorunum Var
Fakat Ben TÜm Sheet İÇİn GeÇerlİ Olmasini İstİyorum
Yanİ AÇilan Excel Sheetİnde 07022007 Gİbİ Bİr Rakam GİrdİĞİmde Otomatİk Olarak 07/02/2007 Formatina Çevİrmesİnİ İstİyorum
Makroyla Halledebİlmek MÜmkÜn MÜ Acaba
TeŞekkÜrler

sayın 1903bjk aşağıdaki kodlar işinize yarar umarım, bu kodlarda B hücresinde tarih yazıldığı zaman etkin oluyor, siz kendinize göre bu kodu değiştirerek istediğiniz hücreye uyarlayabilirsiniz.
kodlar

Private Sub Worksheet_Change(ByVal Target As Range)

Dim blg As Range
If Target.Count > 1 Then Exit Sub
Set blg = Range("b:b")
If Intersect(Target, blg) Is Nothing Then Exit Sub
If Len(Target) = 8 Then
If InStr(Target, "/") = 0 Then Target = Left(Target, 2) & "/" & Mid(Target, 3, 2) & "/" & Right(Target, 4)
End If
End Sub
 
Geri
Üst