Bakigemlik
Altın Üye
- Katılım
- 16 Ocak 2013
- Mesajlar
- 674
- Excel Vers. ve Dili
- 2010 Türkçe
Merhaba,
06/01/2022 formatını 01.06.2022 tarihine nasıl çevirebilirim |
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
06/01/2022 formatını 01.06.2022 tarihine nasıl çevirebilirim |
Sub ASutunu()
On Local Error Resume Next
For i = 2 To Range("a65536").End(3).Row
ay = Mid(Cells(i, 1).Value, 1, 2)
gun = Mid(Cells(i, 1).Value, 4, 2)
yıl = Mid(Cells(i, 1).Value, 7, 4)
Cells(i, "B").Value = FormatDateTime(gun & "." & ay & "." & yıl, vbShortDate)
Next i
End Sub