[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 αλλάζει.

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

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