Soru RAKAM VE HARF AYIRMAK

[Bintang]

Merhaba; Şirketimize ait araçların yakıt takiplerini anlaşmalı olduğumuz firmadan gelen aylık tablolarla hesap yapmaktayız. Ancak plakalar yapışık olduğu için ayıramıyorum bazı plakalar 06AA123, bazı plakalar ise 06AAA123 vb. bana bu konuda yardımcı olursanız çok sevinirim. Örnek dosya ektedir.

 

[PriveT]

Merhaba,
Anladığım kadarıyla B : D sütunlarını bu işlemi yapmaya çalıştığınız için oluşturdunuz.
Bunları silip B2 hücresine plakayı olmasını istediğiniz formatta yazın. Enterlayın. B3'te iken ctrl+E tuşlayın.
Bütün satırlar istediğiniz şekli alacak.

 

[Bintang]

Merhaba,
Anladığım kadarıyla B : D sütunlarını bu işlemi yapmaya çalıştığınız için oluşturdunuz.
Bunları silip B2 hücresine plakayı olmasını istediğiniz formatta yazın. Enterlayın. B3'te iken ctrl+E tuşlayın.
Bütün satırlar istediğiniz şekli alacak.

Üstad ben sadece 3 adet plaka yazdım yüzlerce plaka var her birini elimle yazmak istemediğim için bu formüllerle çalışıyordum yeni araçların plakaları 3 harf ve 3 rakam olunca karıştı tüm işler

 

[PriveT]

Üstad ben sadece 3 adet plaka yazdım yüzlerce plaka var her birini elimle yazmak istemediğim için bu formüllerle çalışıyordum yeni araçların plakaları 3 harf ve 3 rakam olunca karıştı tüm işler

Sadece B2ye yazacaksınız ilk plakayı (olmasını istediğiniz şekilde, yani 06 AB 123 gibi)
Enterlayıp B3'e gelip ctrl+E yapınca gerisi otomatik doluyor.

 

[Ömer BARAN]

Merhaba.
Alternatif olsun.
Madem belgenizde KTF'ler mevcut. O halde aşağıdaki KTF'yi uygun bir MODULE yapıştırıp, hücreye =PLAKAAYIR(A2) yazıp kullanabilirsiniz.

Function PLAKAAYIR(hcr As Range)
If Len(hcr) - Len(Replace(hcr, " ", "")) = 2 Then Exit Function
    For k = 3 To Len(hcr) - 2
        If Not IsNumeric(Mid(hcr, k, 1)) Then harf = harf & Mid(hcr, k, 1)
    Next
    PLAKAAYIR = Left(hcr, 2) & " " & harf & " " & Mid(hcr, Len(harf) + 3, 4)
End Function

 

[excel41]

B2 Hücresine uygulayın , Formül ile alternatif olsun

=SOLDAN(A2;2)&"  "&PARÇAAL(A2;3;UZUNLUK(A2)-TOPLA.ÇARPIM(UZUNLUK(A2)-UZUNLUK(YERİNEKOY(A2;{1;2;3;4;5;6;7;8;9;0};""))))&" "&SAĞDAN(A2;TOPLA.ÇARPIM(UZUNLUK(A2)-UZUNLUK(YERİNEKOY(A2;{1;2;3;4;5;6;7;8;9;0};"")))-2)

 

[Bintang]

Sadece B2ye yazacaksınız ilk plakayı (olmasını istediğiniz şekilde, yani 06 AB 123 gibi)
Enterlayıp B3'e gelip ctrl+E yapınca gerisi otomatik doluyor.

Üstad Crtl+E deyince (Ekle Tablosu Çıkıyor Hücreleri Sağa Sürükle,Hücreleri Aşağı Sürükle,Tüm Satır,Tüm Sütun)

 

[Bintang]

B2 Hücresine uygulayın , Formül ile alternatif olsun

=SOLDAN(A2;2)&"  "&PARÇAAL(A2;3;UZUNLUK(A2)-TOPLA.ÇARPIM(UZUNLUK(A2)-UZUNLUK(YERİNEKOY(A2;{1;2;3;4;5;6;7;8;9;0};""))))&" "&SAĞDAN(A2;TOPLA.ÇARPIM(UZUNLUK(A2)-UZUNLUK(YERİNEKOY(A2;{1;2;3;4;5;6;7;8;9;0};"")))-2)

Üstadım çok teşekkür ederim.Ellerinize sağlık

 

[Bintang]

Merhaba.
Alternatif olsun.
Madem belgenizde KTF'ler mevcut. O halde aşağıdaki KTF'yi uygun bir MODULE yapıştırıp, hücreye =PLAKAAYIR(A2) yazıp kullanabilirsiniz.

Function PLAKAAYIR(hcr As Range)
If Len(hcr) - Len(Replace(hcr, " ", "")) = 2 Then Exit Function
    For k = 3 To Len(hcr) - 2
        If Not IsNumeric(Mid(hcr, k, 1)) Then harf = harf & Mid(hcr, k, 1)
    Next
    PLAKAAYIR = Left(hcr, 2) & " " & harf & " " & Mid(hcr, Len(harf) + 3, 4)
End Function

Üstadım çok teşekkür ederim.Ellerinize sağlık

 

[Bintang]

Üstad Crtl+E deyince (Ekle Tablosu Çıkıyor Hücreleri Sağa Sürükle,Hücreleri Aşağı Sürükle,Tüm Satır,Tüm Sütun)

Üstadım çok teşekkür ederim.Ellerinize sağlık

 

[Bintang]

Merhaba.
Alternatif olsun.
Madem belgenizde KTF'ler mevcut. O halde aşağıdaki KTF'yi uygun bir MODULE yapıştırıp, hücreye =PLAKAAYIR(A2) yazıp kullanabilirsiniz.

Function PLAKAAYIR(hcr As Range)
If Len(hcr) - Len(Replace(hcr, " ", "")) = 2 Then Exit Function
    For k = 3 To Len(hcr) - 2
        If Not IsNumeric(Mid(hcr, k, 1)) Then harf = harf & Mid(hcr, k, 1)
    Next
    PLAKAAYIR = Left(hcr, 2) & " " & harf & " " & Mid(hcr, Len(harf) + 3, 4)
End Function

Üstadım eğer bana kızmaz iseniz size bir şey sormak istiyorum. Ben bu makroyu kopyalayıp ve çalıştıramadım bana bu konuda da yardımcı olabilirmisiniz çok özürdilerim.

 

[Ömer BARAN]

Estağfurullah.
Verdiğim kodu belgenizde boş bir Modüle yapıştırın.
(belge zaten makro içeren türünden idi ve belgeyi açarken de makroların aktifleştirildiğini varsayıyorum)

Bu işlemden sonra istediğiniz hücreye =PLAKAAYIR(A2) şeklindeki formül içine plakanın bulunduğu hücre adresini yazmanız yeterli olur.
.

 

[PriveT]

Üstad Crtl+E deyince (Ekle Tablosu Çıkıyor Hücreleri Sağa Sürükle,Hücreleri Aşağı Sürükle,Tüm Satır,Tüm Sütun)

Sanırım excel versiyon farkından. Bende Excel 2016 var ve ctrl+E yapınca hiç birşey sormadan son satıra kadar otomatik düzeltiyor.
Neyse, artık formülle çözmüşsünüz zaten.

 

[Ömer BARAN]

Bir formül alternatifi de ben vereyim dedim.

=SOLDAN(A2;2)&" "&PARÇAAL(A2;3;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};PARÇAAL(A2;3;8)&"0123456789"))-1)&" "&PARÇAAL(A2;MİN(MBUL({0;1;2;3;4;5;6;7;8;9};PARÇAAL(A2;3;8)&"0123456789"))+2;4)

 

[Bintang]

Sanırım excel versiyon farkından. Bende Excel 2016 var ve ctrl+E yapınca hiç birşey sormadan son satıra kadar otomatik düzeltiyor.
Neyse, artık formülle çözmüşsünüz zaten.

Tekrar çok teşekkür ederim.

 

[veyselemre]

Bir çok çözüm yolu üretilmiş, üretilebilir de,
Regexp scriptiyle çözüm; Modül içerisine ekleyip çalıştırın, a sütunundaki verileri G sütununa boşluklu olarak atar,

Sub Plaka_Ayir()
    [G:G].ClearContents
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "(\d{2})(\D{1,3})(\d{2,4})"
        For Each huc In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
            If .test(huc.Value) Then
                ver = ""
                For Each elem In .Execute(huc.Value)(0).submatches
                    ver = ver & " " & elem
                Next
                huc.Offset(0, 6) = Trim(ver)
            End If
        Next
    End With
End Sub

Sub Plaka_Ayir2()
    [G:G].ClearContents
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "(\d{2})(\D{1,3})(\d{2,4})"
        For Each huc In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
            If .Test(huc.Value) Then
                huc.Offset(0, 6) = .Replace(huc.Value, "$1 $2 $3")
            End If
        Next
    End With
End Sub

Sub test()
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        ver = Cells(i, 1)
        For ii = 3 To 4
            If Not IsNumeric(Mid(StrReverse(ver), ii, 1)) Then Exit For
        Next ii
        Cells(i, 2) = Left(ver, 2) & " " & Mid(ver, 3, Len(ver) - ii - 1) & " " & Right(ver, ii - 1)
    Next i
End Sub

Sub fakePlakaData()
    For i = 2 To 65536
        il = Format(WorksheetFunction.RandBetween(1, 81), "00")
        hrfUz = WorksheetFunction.RandBetween(1, 3)
        hrfler = ""
        For ii = 1 To hrfUz
            hrfler = hrfler & Chr(WorksheetFunction.RandBetween(65, 90))
        Next ii
        Select Case hrfUz
            Case 1: sonekUz = 4
            Case 2: sonekUz = WorksheetFunction.RandBetween(3, 4)
            Case 3: sonekUz = WorksheetFunction.RandBetween(2, 3)
        End Select
  
        sonek = Format(WorksheetFunction.RandBetween(1, 10 ^ sonekUz - 1), String(sonekUz, "0"))
        Cells(i, 1) = Trim(il & hrfler & sonek)
    Next i
End Sub

 

[Bintang]

Bir çok çözüm yolu üretilmiş, üretilebilir de,
Regexp scriptiyle çözüm; Modül içerisine ekleyip çalıştırın, a sütunundaki verileri G sütununa boşluklu olarak atar,

Sub Plaka_Ayir()
    [G:G].ClearContents
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "(\d{2})(\D{2,3})(\d{2,4})"
        For Each huc In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
            If .test(huc.Value) Then
                ver = ""
                For Each elem In .Execute(huc.Value)(0).submatches
                    ver = ver & " " & elem
                Next
                huc.Offset(0, 6) = Trim(ver)
            End If
        Next
    End With
End Sub

Teşekkür ederim ellerinize sağlık

 

[Mdemir63]

Selamlar
Veysel hocam
elinize sağlık . Ancak örneğin: 34M3650 olduğunda sanırım harf tek olduğundan ayırmıyor. Bakma ihtimaliniz var mı?

saygılar

 

[veyselemre]

Selamlar
Veysel hocam
elinize sağlık . Ancak örneğin: 34M3650 olduğunda sanırım harf tek olduğundan ayırmıyor. Bakma ihtimaliniz var mı?

saygılar

.Pattern = "(\d{2})(\D{1,3})(\d{2,4})"

 

[Mdemir63]

Selamlar

Evet hocam düzeldi.
Elinize sağlık.

Saygılar