Tarihleri istenilen biçim verme

[Vedat Özer]

Selamlar,

25/09/2010 Tarihleri ben hücrenin içine girip f2 tuşuna basıp tekrar çıkınca istediğim şekli alıyo (25.09.2010) Fakat bunun gibi yüzlerce tarih var nasıl bir kod yazılır ....

Umarım anlatabilmişimdir.

 

[1Al2Ver]

Merhaba,

Aşağıdaki formülü dener misiniz ?

B2'ye ;

=METNEÇEVİR(YERİNEKOY(YERİNEKOY(KIRP(YERİNEKOY(A2;",";"."));" ";".");"/";".");"gg.aa.yyyy")

 

[Vedat Özer]

Selamlar,

Sayın,1Al2Ver
İlginiz için çok teşekkür ederim.

Bu Formülü ben kompile a Sutununa uygulamak isitoyrum makro ile nedeni ise
Dosya formatı çok büyük böyle bir formül eklediğimde dosya kendini dahada kasacak.
Tekraradan Teşekkürler.

 

[1Al2Ver]

Merhaba,

Hücreyi silmek için spacebar kullanın

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
Application.EnableEvents = False
If Len(Target.Value) = 8 Then
Target = DateSerial(Right(Target.Value, 4), Mid(Target.Value, 3, 2), Left(Target.Value, 2))
ElseIf Len(Target.Value) = 7 Then
Target = DateSerial(Right(Target.Value, 4), Mid(Target.Value, 2, 2), Left(Target.Value, 1))
Else
Target = "Hatalı Tarih"
End If
Application.EnableEvents = True
Son:
End Sub

Sayın Necdet Yeşertener'in, isteğim üzerine cevapladığı bir çözümdür,

Umarım işinize yarar.

 

[Vedat Özer]

Selamlar,

Dosyaya bir türlü ekleyemedim.
Teşekkürler ,

 

[1Al2Ver]

Selamlar,

Dosyaya bir türlü ekleyemedim.
Teşekkürler ,

Merhaba,

Kodu fare ile seçin, kopyala deyin ve ilgili sayfanın VBA'sına yapıştırın,

 

[1Al2Ver]

Merhaba,

Dosyanıza kodu ekledim ve bende sorun olmadı, ancak yine de test ediniz,

Kolay gelsin.

 

[Ömer]

Merhaba,

Alternatif olarak aşağıdaki yolu izleyebilirsiniz.

Boş bir hücreye 0 yazın bu hücreyi kopyalayıp verilerinizi fare ile seçtikden sonra sağ klik yaparak özel yapıştır / topla / tamam butonu ile işlemi bitirin daha sonra istediğiniz format da biçimlendirirsiniz..

Linkde detaylı bilgi mevcuttur.

Excel'in sistem biçimine uygun olmayan verilerin, biçimini düzeltme yolları

.

 

[1Al2Ver]

Sayın Vedat Özer, merhaba,

7 nolu mesajda çözümlü dosya var, bakabildiniz mi ?

Teşekkür ederim.

 

[Vedat Özer]

Selamlar,

Sayın,1al2Ver Kusura bakmayın iş yogunlugundan atlamışım teşekkür ederim.

Ömer Hocama'da Açıklama için teşekkür ederim.