Metin ve sayı arasına nokta koyma. Lütfen Çok Acil !

[boraboy12]

Merhaba;
Metin exeldeki biçimi 12001A001 şeklinde
Benim bütün hücrelere uygulamak istediğim biçim 120.01.A001 şeklinde olmalı.
Nasıl yapabilirim?

 

[bzace]

Merhaba,

Sub Nokta_koy()
    For i = 1 To Range("A65536").End(3).Row
        a = Mid(Range("A" & i), 1, 3)
        j = Mid(Range("A" & i), 4, 2)
        k = Mid(Range("A" & i), 6, 4)
        Range("B" & i) = a & "." & j & "." & k
    Next
End Sub

bir modül'ün içerisne yazınız.Verilerinizin A sütunu 1. satırdan başadığı düşünülmüştür.
Fonksiyon ile;

=PARÇAAL(A1;1;3)&"."&PARÇAAL(A1;4;2)&"."&PARÇAAL(A1;6;4)

Not: Verilerinizin hepsi "12001A001" aynı şekilde değilse sonuç olumsuz olacaktır.

 

[boraboy12]

Merhaba. Bu formatı muhasebe formatına geçireceğim bu şekilde 15000 tane hesap vardı. 5 saate yapacağım işi 10 dakkada hallettirdin bana.
Çok teşekür ederim kardeşim. Çok saol. Çok büyük bi iyilik yaptın gerçekten.