Otomatik kelime değiştirme

[webuyeislemleri]

01-AUG-2011 buşekilde bir bilgiyi nasıl 01.08.2011 makro ile yaparım.

Benim yaptığım düzeltme makrosu ;

Sub Tarih_CEVIRI()
Dim Seçim As Range
For Each Seçim In Selection
Seçim = Replace(Seçim, "Jan", "01")
Seçim = Replace(Seçim, "Feb", "2")
Seçim = Replace(Seçim, "Mar", "3")
Seçim = Replace(Seçim, "Apr", "4")
Seçim = Replace(Seçim, "May", "5")
Seçim = Replace(Seçim, "Jun", "6")
Seçim = Replace(Seçim, "Jul", "7")
Seçim = Replace(Seçim, "Aug", "8")
Seçim = Replace(Seçim, "Sep", "9")
Seçim = Replace(Seçim, "Oct", "10")
Seçim = Replace(Seçim, "Nov", "11")
Seçim = Replace(Seçim, "Dec", "12")
Next
End Sub