Soru Aynı hücrede boşluk bırakmak

[telefonica]

Merhabalar.
Çok araştırdım ama bulamadım, sorunu özetliyorum.

A1 hücresinde 38ABC123 Plakalı metin var. Bu şekilde 100den fazla hücrem var. Aynı hücrede çıktı olarak 38 ABC 123 şeklinde olmasını istiyorum. Yani 2 adet farklı yerlere boşluk bıraksın istiyorum. Nasıl yapabiliriz kodlama ile?

Teşekkür ederim, saygılarımla.

 

[Muzaffer Ali]

Merhaba.
Bir modüle aşağıdaki kodu kopyalayıp çalıştırın.

Sub Test()
    Dim Bak As Integer
    Dim Rkm As Integer
    Dim Plaka As String
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Plaka = Cells(Bak, "A")
        Plaka = Replace(Plaka, Left(Plaka, 2), Left(Plaka, 2) & " ")
        For Rkm = 1 To Len(Plaka)
            If Not IsNumeric(Right(Plaka, Rkm)) Then
                Plaka = Replace(Plaka, Right(Plaka, Rkm - 1), " " & Right(Plaka, Rkm - 1))
                Cells(Bak, "B") = Plaka
                Exit For
            End If
        Next
    Next
End Sub

 

[telefonica]

Merhaba.
Bir modüle aşağıdaki kodu kopyalayıp çalıştırın.

Sub Test()
    Dim Bak As Integer
    Dim Rkm As Integer
    Dim Plaka As String
    For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Plaka = Cells(Bak, "A")
        Plaka = Replace(Plaka, Left(Plaka, 2), Left(Plaka, 2) & " ")
        For Rkm = 1 To Len(Plaka)
            If Not IsNumeric(Right(Plaka, Rkm)) Then
                Plaka = Replace(Plaka, Right(Plaka, Rkm - 1), " " & Right(Plaka, Rkm - 1))
                Cells(Bak, "B") = Plaka
                Exit For
            End If
        Next
    Next
End Sub

Değerli yetkilim merhabalar.

Nasıl yardımcı oldunuz anlatamam. Çok çok teşekkür ederim. Emeklerinize sağlık.

Konu kapatılabilir.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[Hacı Bayram ÖZKAN]

Merhaba Arkadaşlar Muzaffer Ali Beyin 2 nolu mesajda yazmış olduğu kodu kullanmak istiyorum. Ancak benim plakalarım şöyle;
002A0999 bunu 2 nolu mesajdaki koda benzer şekilde 02 A 0999 nasıl yaptırabiliriz. Teşekkürler.

 

[Haluk]

Google Sheets ile alternatif;





.

 

[Hacı Bayram ÖZKAN]

Sayın Haluk bey öncelikle teşekkür ederim. Affınıza sığınarak Google Sheets ile derken ne demek istediniz anlamadım. Birde abim benim plakalarda başta 00 çift sıfır var biri silinecek.

 

[Haluk]

Kafanız karışmasın..... yazdığım mesajı boşverin.

.

 

[Muzaffer Ali]

Tüm plakaların başındaki bir karakter silinecekse aşağıdaki kod işinizi görür.

Sub Test()
    Dim Bak As Integer
    Dim Rkm As Integer
    Dim Plaka As String
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Plaka = Right(Cells(Bak, "A"), Len(Cells(Bak, "A")) - 1)
        Plaka = Replace(Plaka, Left(Plaka, 2), Left(Plaka, 2) & " ")
        For Rkm = 1 To Len(Plaka)
            If Not IsNumeric(Right(Plaka, Rkm)) Then
                Plaka = Replace(Plaka, Right(Plaka, Rkm - 1), " " & Right(Plaka, Rkm - 1))
                Cells(Bak, "B") = Plaka
                Exit For
            End If
        Next
    Next
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın Muzaffer abim aynen de bu ellerine sağlık. Teşekkürler sağlıcakla kal...