buton yardımıyla karekter değiştirme ve sıralama

[finfdg]

sayfaya koyduğum buton yardımıyla d sutunundaki tüm "." karekterleri "/" karekteriyle değiştirek tarihe göre seçimi genileten küçükten büyüğe sıralama yaptırmak istiyorum. ilginize şimdiden teşekkür ederim.

 

[veyselemre]

veri1 kod sayfasına aşağıdaki kodu yapıştırın.

Private Sub CommandButton1_Click()
dson = [d65536].End(3).Row
Range("D2:D" & dson).NumberFormat = "dd\/mm\/yyyy"
Range("A1:D" & dson).Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess
End Sub

 

[finfdg]

ellerine sağlık tam istediğim gibi olmuş.