Karakter ayırma

[ridvan2111]

Merhaba,

A1 hücresine Yazdığım 17000101001 Karakterlerini
B1 Hücresine 1700-01-01 şekline (son üç karekteri yazmayacak) formülle nasıl yazdırırım?

 

[ExcelF1]

Formüllerle aram pek iyi değil ama B1'e yazarak bir deneyiniz. İşinizi görecektir.

=PARÇAAL(A1;1;4)&"-"&PARÇAAL(A1;5;2)&"-"&PARÇAAL(A1;7;2)

 

[ridvan2111]

Teşekkürler.
Tam istediğim gibi

 

[Murat OSMA]

Makro ile yapmak isterseniz, alternatif olarak şu kodları da kullanabilirsiniz;

Sub Emre()
    Dim i As Integer
    For i = 1 To Range("A65536").End(3).Row
        Cells(i, 2) = Format(VBA.Left(Cells(i, 1), 8), "0000-00-00")
    Next i
    i = Empty
End Sub

 

[ExcelF1]

Bu kodlamada (olacağını sanmıyorum ama) Integer veri tipinin hataya neden olabileceğini gözden kaçırmışsınız Sayın OSMA.