Boşluk

[ozzmm]

Merhaba,

Elimde araç plakaları olan bir liste mevcut 34AA2222 - 34BBB12 şeklinde bu plaka listesini arasına boşluk koymam lazım yani 34 AA 2222 veya 34 BBB 12 şeklinde nasıl yapabilirim?

 

[Muzaffer Ali]

Merhaba.

Plakaların bulunduğu sayfanın sayfa adını sağ tıklatın.
Kod görüntüle seçin. Açılan sayfaya aşağıdaki kodları kopyalayın.

Plakalar A sütununda varsayılmıştır değiştirmek için Kolon = "A" burayı değiştirin.
Souçlar B kolonuna yazılacaktır değiştirmek için SonucKolon = "B" burayı değiştirin.

Sub test()
    Dim Bak As Long
    Dim Plk As Byte
    Dim Kolon As String
    Dim SonucKolon As String
    
    Kolon = "A"
    SonucKolon = "B"
    
    For Bak = 1 To Cells(Rows.Count, Kolon).End(xlUp).Row
        For Plk = 3 To Len(Cells(Bak, Kolon))
            If IsNumeric(Mid(Cells(Bak, Kolon), Plk, 1)) Then
                Cells(Bak, SonucKolon) = Mid(Cells(Bak, Kolon), 1, 2) & " " & Mid(Cells(Bak, Kolon), 3, Plk - 3) & " " & Mid(Cells(Bak, Kolon), Plk, Len(Cells(Bak, Kolon)) - Plk + 1)
                Exit For
            End If
        Next
    Next
    MsgBox "Tamamlandı."
End Sub

Kod satırlarında herhangi bir yer seçiliyken F5 tuşuna basarak kodları çalıştırın.

 

[ozzmm]

Merhaba.

Plakaların bulunduğu sayfanın sayfa adını sağ tıklatın.
Kod görüntüle seçin. Açılan sayfaya aşağıdaki kodları kopyalayın.

Plakalar A sütununda varsayılmıştır değiştirmek için Kolon = "A" burayı değiştirin.
Souçlar B kolonuna yazılacaktır değiştirmek için SonucKolon = "B" burayı değiştirin.

Sub test()
    Dim Bak As Long
    Dim Plk As Byte
    Dim Kolon As String
    Dim SonucKolon As String
   
    Kolon = "A"
    SonucKolon = "B"
   
    For Bak = 1 To Cells(Rows.Count, Kolon).End(xlUp).Row
        For Plk = 3 To Len(Cells(Bak, Kolon))
            If IsNumeric(Mid(Cells(Bak, Kolon), Plk, 1)) Then
                Cells(Bak, SonucKolon) = Mid(Cells(Bak, Kolon), 1, 2) & " " & Mid(Cells(Bak, Kolon), 3, Plk - 3) & " " & Mid(Cells(Bak, Kolon), Plk, Len(Cells(Bak, Kolon)) - Plk + 1)
                Exit For
            End If
        Next
    Next
    MsgBox "Tamamlandı."
End Sub

Kod satırlarında herhangi bir yer seçiliyken F5 tuşuna basarak kodları çalıştırın.

Çok teşekkür ederim, saniyeler içerisinde oldu.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.