tarihi tersten yazdırmak

[sunkid]

Merhaba Arkadaşlar,

hücreye nokta koymadan tarih girdiğimde otomatik olarak girdiğm tarihi tersten yazdırmak istiyorum.. örnek olarak 26032014 yazıp enter tuşuna bastığımda otomatik olarak 20140326 (yıl ay gün) olarak terse çevirsin.
bu mümkünmüdür arkadaşlar?

yardımlarınız için şimdiden çok teşekkürler..

 

[sunkid]

arkadaşlar yok mu bunun bir çözüm yolu?

 

[ÖmerBey]

Aşağıdaki kodu ilgili sayfanın kod bölümüne yapıştırıp bi deneyin, işinizi görebilir. Kırmızı kısmı tarih gireceğiniz aralığa göre değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Right(Target, 4) <> 2014 Or Intersect(Target, [COLOR="Red"]Range("B:B")[/COLOR]) Is Nothing Then Exit Sub
gün = Mid(Target, 1, 2)
ay = Mid(Target, 3, 2)
yıl = Mid(Target, 5, 4)
Target = yıl & ay & gün
End Sub

 

[sunkid]

mucitbet yardımlrınız için çok teşekkrü ederim yanlız üç sütünda bu durumla karşı karşıyayım E Stünu I stunu J stunu bunları nasıl ekleyebilirim?

 

[systran]

hücre formatını yyyy.aa.gg olarak biçimlendiriniz.

 

[ÖmerBey]

Deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Right(Target, 4) <> 2014 Or Intersect(Target, Range("E:E,I:J")) Is Nothing Then Exit Sub
gün = Mid(Target, 1, 2)
ay = Mid(Target, 3, 2)
yıl = Mid(Target, 5, 4)
Target = yıl & ay & gün
End Sub

 

[Necdet]

Merhaba,

01012014 rakamı hücrede 1012014 olarak değişeceğinden dikkat etmek gerek.

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Intersect(Target, [E:E, I:J]) Is Nothing Then Exit Sub
    If Len(Target.Value) < 7 Or IsNumeric(Target.Value) = False Then Exit Sub
    
    Application.EnableEvents = False
    If Len(Target.Value) = 7 Then
        Target.Value = Right(Target, 4) & Mid(Target, 2, 2) & Left(Target, 1) * 10
    Else
        Target.Value = Right(Target, 4) & Mid(Target, 3, 2) & Left(Target, 2)
    End If
    Application.EnableEvents = True
    
End Sub

 

[Seyit Tiken]

Necdet bey, Hücre biçimi Metin olarak yapılırsa o sorun düzeliyor.

 

[Necdet]

Necdet bey, Hücre biçimi Metin olarak yapılırsa o sorun düzeliyor.

e tabiki. Fakat yapılmadığı zaman için (işi garantiye almak) bu öneriyi getirdim.