araç plakalarını ayırmak

[bodrumlu40]

Arkadaşlar,
Petrol Ofisinin sitesinden plakaların aylık dökümünü excel ortalında alıp muhasebe programına yüklüyoruz.
Yalnız petrol ofisinden çektiğimiz plakalar yaklaşık 300 kayıt;
48GT123
48T2343
09RT129
09FSE12
şeklinde geliyor. Bunları programa aktarırken:
48 GT 123
48 T 2343
09 RT 129
09 FSE 12
Şeklinde orta 2 yerde boşluk olacak şekilde aktarabiliyorum. Bunu excelde nasıl yapabilirim?
Saygılarımla.

 

[ÖmerBey]

Merhaba,
Aşağıdaki KTF'yi boş bir modüle kopyalayınız.

Function PLAKAYIR(hcr As Range)
Dim plaka(1 To 3)
plaka(1) = Left(hcr.Text, 2)

For a = 3 To Len(hcr.Text)
    If IsNumeric(Mid(hcr.Text, a, 1)) Then
        plaka(3) = plaka(3) & Mid(hcr.Text, a, 1)
    Else
        plaka(2) = plaka(2) & Mid(hcr.Text, a, 1)
    End If
Next
PLAKAYIR = Join(plaka, " ")
End Function

Daha sonra aşağıdaki formülle istediğiniz sonucu alabilirsiniz.

=PLAKAYIR(A1)

 

[bodrumlu40]

Tam istediğim gibi olmuş.
Beni büyük bir dertten kurtardınız.
Çok teşekkürler.