Tarih formatına cevirme

[Musa Batur]

Ekdeki listemde a sutunudaki sayıları tarih formatına cevirme

 

[Ömer]

Merhaba,

=--(SOLDAN(A3;UZUNLUK(A3)-4)&"."&PARÇAAL(A3;UZUNLUK(A3)-3;2)&"."&SAĞDAN(A3;2))

Denermisiniz..

Formülün yazıldığı hücrelerin biçimini tarih olarak biçimlendiriniz..

.

 

[fedeal]

Merhaba,

Sub n()
For i = 3 To WorksheetFunction.CountA(Sheets("sayfa1").Range("A3:A65536")) + 2
a = Left(Cells(i, 1).Value, Len(Cells(i, 1).Value) - 4)
b = Right(Cells(i, 1).Value, 2)
c = Mid(Cells(i, 1).Value, Len(Cells(i, 1).Value) - 3, 2)
Cells(i, 5).Value = a & "." & c & ".20" & b
Next
End Sub

dosyanız ekte