Hücre metni içindeki tarihi makro ile ayrıştırma

[akmes]

Merhaba;
A2 sütunundan itibaren 10.000 satırda 2021-11-30 20:08:09.430 gibi ifadeler içinde 2021-11-30 tarihini, 30.11.2021 şeklinde yan sutüna aktarmak istiyorum. Yardımlarınızı rica ediyorum. İnanın çok makbule geçecek. Şimdiden teşekkür ediyorum.

 

[Levent Menteşoğlu]

Aşağıdaki gibi denermisiniz.

Sub tarihial()
For a = 2 To [a1048576].End(3).Row
Cells(a, "b") = CDate(Split(Cells(a, "a"), " ")(0))
Next
End Sub

 

[akmes]

Aşağıdaki gibi denermisiniz.

Sub tarihial()
For a = 2 To [a1048576].End(3).Row
Cells(a, "b") = CDate(Split(Cells(a, "a"), " ")(0))
Next
End Sub

Levent Bey, çok teşekkür ederim. Tam istediğim gibi oldu. Elinize emeğinize sağlık.