Tarih Formatı

[efeem]

Arkadaşlar gecenin bu saatinde yazıyorum. İşin içinden çıkamadım. Ekteki virgülle yazılan tarihi alt hücreye geçtiğinde noktalı hale gelmesini istiyorum. Virgülü noktaya çevirecek bi kod oluşturabildim ama otomatik alt hücreye geçince çevirmiyor makroyu çalıştır diyorum öyle oluyor. Yardım eden olursa memnun olurum.

 

[sametozyavuz]

formatını değişticeğiniz hücreleri seçiniz.
excelin Ctrl + h özelliği ile
virgülleri nokta ile değiştirin.
sonrada hücreerin tarih formatını isteğinize göre değiştirin.

 

[antonio]

Arkadaşlar gecenin bu saatinde yazıyorum. İşin içinden çıkamadım. Ekteki virgülle yazılan tarihi alt hücreye geçtiğinde noktalı hale gelmesini istiyorum. Virgülü noktaya çevirecek bi kod oluşturabildim ama otomatik alt hücreye geçince çevirmiyor makroyu çalıştır diyorum öyle oluyor. Yardım eden olursa memnun olurum.

Nerede, nasıl görünmesini istiyorsanız (Office 2007 ile):
Seçili alana sağ tıkla, "Hücreleri Biçimlendir"i seç, çıkan pencerede ki "Sayı" sekmesinin altında ki listeden "İsteğe uyarlanmış"ı seçeneklerinden dilediğini seç.
Daha sonra sen daima ayıraç kullanarak tarihi olması gereken şekilde yaz, hücre senin ayarlarına göre ona biçim verecektir.
Resimli anlatım ektedir.
Kolay gelsin.

 

[efeem]

Nerede, nasıl görünmesini istiyorsanız (Office 2007 ile):
Seçili alana sağ tıkla, "Hücreleri Biçimlendir"i seç, çıkan pencerede ki "Sayı" sekmesinin altında ki listeden "İsteğe uyarlanmış"ı seçeneklerinden dilediğini seç.
Daha sonra sen daima ayıraç kullanarak tarihi olması gereken şekilde yaz, hücre senin ayarlarına göre ona biçim verecektir.
Resimli anlatım ektedir.
Kolay gelsin.

Yanlış anlaşıldım galiba. Ben veri girişinin virgülle yapılmasını fakat enter'a bastığımda excelin bunu noktalı şekle çevirmesini istiyorum. Tarih girişi: 21,12,2013 Hücrede: 21.12.2013 görünmesini istiyorum. Yardım edebilecek arkadaş muhakkak vardır.

 

[efeem]

yok mu bi fikri olan işin ehli bi arkadaş

 

[Seyit Tiken]

Bu şekilde deneyiniz. Kısa yol varken uzun yola ne gerek var?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
If Len(Target) = 4 Then
If InStr(Target, ".") = 0 Then Target = Left(Target, 2) _
& "." & Mid(Target, 3, 2) & "." & Format(Date, "yyyy")
End If
End Sub

 

[numan şamil]

Alternatif olsun
"c" sutunua tarih girişi yapılıp enterlenince çalışır
kodları sayfanın kod bölümüne yazınız

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DGR As String
Dim STR As Long
Application.EnableEvents = False
If Target.Count = 1 Then
If Intersect(Target, Range("c1:c" & Rows.Count)) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
For STR = 1 To Cells(Rows.Count, "C").End(xlUp).Row
Cells(STR, "C") = Replace(Cells(STR, "C"), ",", ".")
Next
End If
Application.EnableEvents = True
End Sub

 

[efeem]

Alternatif olsun
"c" sutunua tarih girişi yapılıp enterlenince çalışır
kodları sayfanın kod bölümüne yazınız

Private Sub Worksheet_Change(ByVal Target As Range)
Dim DGR As String
Dim STR As Long
Application.EnableEvents = False
If Target.Count = 1 Then
If Intersect(Target, Range("c1:c" & Rows.Count)) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
For STR = 1 To Cells(Rows.Count, "C").End(xlUp).Row
Cells(STR, "C") = Replace(Cells(STR, "C"), ",", ".")
Next
End If
Application.EnableEvents = True
End Sub

Eyvallah on numara süper tam istediğim gibi. Cevap yazan herkese Teşekkürler.