Sayı ve Metin olan Hücrede Boşluk Bırakma

[Özgür DALDABAN]

Slm.
İsteğe uyarlama kısmında;
06PT428 yazısını 06 PT 428 olarak biçimlendirebilir miyiz?
Teşekkürler..

 

[Emir Hüseyin Çoban]

. . .

Makrolu çözüm işinizi görür mü ?

. . .

 

[Özgür DALDABAN]

Olabilir Hocam..

 

[Murat OSMA]

Sayfanın kod kısmına aşağıdaki kodları yazın.
A sütunu için bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    With CreateObject("VBScript.RegExp")
        .Pattern = "[COLOR="Red"]([0-9]{2})([A-Z]{1,3})([0-9]{2,4})[/COLOR]"
        .Global = True
        Target.Value = .Replace(Target.Value, "$1 $2 $3")
    End With
End Sub[/FONT]

 

[Emir Hüseyin Çoban]

. . .

Hücre aralığını seçip, kodları çalıştırın.

Sub kod()
     For Each alan In Selection
        metin = alan
        yeni = Mid(metin, 1, 1)
        For a = 2 To Len(metin)
            If IsNumeric(Mid(metin, a, 1)) <> IsNumeric(Mid(metin, a - 1, 1)) Then
                yeni = yeni & " " & Mid(metin, a, 1)
            Else
                yeni = yeni & Mid(metin, a, 1)
            End If
        Next a
        alan.Value = yeni
        yeni = Empty
    Next alan
End Sub

. . .