[VBA] Μορφοποιηση κελιού ημερομηνίας σε Χ/Χ/ΧΧΧΧ με χρήση μακροεντολής

[Zounds]

καλησπέρα,

θα ήθελα να μορφοποιήσω τη στήλη f με ημερομηνίες που έχουν την μορφή 20.05.2015 σε 20/5/2015 ( απο χχ.χχ.χχχχ σε χ/χ/χχχχ )

χρησιμοποιήσα τον παρακάτω κωδικα

Sub datesformat()
'
' DateFormat Macro
'
    Range("f:f").Select
   
    'Selection.NumberFormat = "m/d/yyyy"
   
    Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Cells.Find(What:=".", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False).Activate
        
    'Selection.NumberFormat = "m/d/yyyy"
    
    Selection.Replace What:="/0", Replacement:="/", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    
    'Selection.NumberFormat = "m/d/yyyy" 
    
End Sub

ομως σε κάποια κελιά που η ημερομηνια ειναι για παραδειγμα 10/01/2015 ενώ θελω να την κανει 10/1/2015, δεν την αλλάζει...

'Οταν όμως μπαίνω σε ένα απο αυτα τα κελιά και πατάω f2 και μπαίνω μέσα και πατάω enter αλλάζει.

Κάποια βοήθεια ;

ευχαριστώ εκ των προταίρων.

[Tasos]

Καλησπέρα!

Δοκίμασε:

Sub test()
    With Range("F1:F" & Range("F" & Rows.Count).End(xlUp).Row)
        .NumberFormat = "d/m/yyyy"
        ' αν δεν υπάρχει αποτέλεσμα αφαίρεσε την απόστροφο από την παρακάτω γραμμή
        '.Formula = .Formula
    End With
End Sub

Καλή συνέχεια!

Τάσος

[Zounds]

Μολις το δοκίμασα κάποια κελιά επιμένουν να φαίνονται ως General Format παρά την εφαρμογή του κώδικα ....
και φαίνονται για παραδειγμα 15/01/2015 αντί 15/01/2015 που θέλω... ή 15/1/2015 με general format που παλι δεν μου κανει γιατι στο φιλτραρισμα δεν τα αναγνωριζει σαν ημερομηνίες.

Τί ακριβώς γίνεται ;

[Tasos]

Η στήλη που θέλεις να μορφοποιήσεις προφανώς περιέχει κελιά με μορφή "κείμενο" ή κελιά με μορφή "Γενική" που περιέχουν Απόστροφο ( ' ) + την ημερομηνία.

Δοκίμασε:

Sub GhangeNumberFormat()
    With Range("F1:F" & Range("F" & Rows.Count).End(xlUp).Row)
        .NumberFormat = "d/m/yyyy"
        .TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 4)
    End With
End Sub

Δες και το παράδειγμα στο συνημμένο.

Τάσος

[Zounds]

Καλησπέρα,

σε ευχαριστώ πολύ για την βοηθειά σου,

τελικά αυτή η γραμμούλα

        .TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 4)

έκανε την διαφορά.. δεν θα μπορούσα να το σκεφτώ δεν το ήξερα ...

ευχαριστώ,