210612 gibi girilen tarihi 21/06/12 'ye düzeltme?

[Jerusalem]

Ben kendimce bi' cari hesap defteri düzenliyorum fırsat buldukça, Excel'de başlıkta belirttiğim işlemi yapma şansımız var mı? Bir kaç tane makale okudum - isteğe uyarlamış hücre biçimlendirme- konusunda ama yinede sonuç alamadım.

 

[Muhammet Okumuş]

Merhaba
Belki daha usta bir cevap olabilir. İsterseniz kodu inceleyiniz.

Sub Çevir()
For i = 4 To Range("A1000").End(3).Row
Cells(i, 13) = "=MID(A4,1,2)&""/""&MID(A4,3,2)&""/""&MID(A4,5,6)"
Cells(i, 1) = Cells(i, 13).Value
Cells(i, 13) = ""
Cells(i, 1) = Format(Date)
Next
End Sub

 

[Ömer]

Merhaba,

Alternatif olsun.

Sub TCevir()
 
    Dim i As Long
 
    For i = 4 To Cells(Rows.Count, "A").End(xlUp).Row
        With Cells(i, "A")
            If IsDate(.Value) = False Then
                On Error Resume Next
                .Value = CDate(Format(.Value, "00-00-00"))
                If Err.Number = 0 Then .NumberFormat = "dd\/mm\/yy"
            End If
        End With
    Next i
 
End Sub

.

 

[Muhammet Okumuş]

Usta cevap bu olsa gerek. Ama Ömer Bey hep bir şeyler kapıyorum sizden. Teşekkürler...

 

[Jerusalem]

@Ömer, @muokumus ilgi alaka için teşekkür ederim ama bu kodu nereye yazacağıma dair en ufak bir fikrim yok. ekte verdiğim çalışma sayfasının "tarih" sütununa uygularsanız ya da kodu nereye yazacağımı söylerseniz çok makbule geçer. teşekkürler.

 

[Muhammet Okumuş]

Hocam ben dosyaya Ömer Bey'in kodunu eklemiştim. Onun adına paylaşıyorum.

 

[Ömer]

Usta cevap bu olsa gerek. Ama Ömer Bey hep bir şeyler kapıyorum sizden. Teşekkürler...

Rica ederim, faydam dokunuyorsa ne mutlu bana.

 

[snx111]

Sitede formül deyince aklıma ilk Ömer bey gelir...

Yazdığı bir formülü NASA nın 3 adamı halen çözmeye ugraşmaktadır .... (bkz : .Hürriyet gazetesi 2004)

 

[cetins58]

Mausun sağ tarafına bas.Hücre biçimlendire gel.isteğe uyarlanmış gg/aa/yy yaz ve kapat.şimdi istediğin olur.Kolay gelsin.çetins58 Kolay gelsin