Sayi ve Metinden Olusan Veriyi Filtre Ile Siralamaya Uygun Hale Getirmek

[ahmetalb07]

Merhaba Arkadaslar

Elimde binlerce hucreden olusan bir excel tablosu var bu tablodaki verilerden yararlanip yeni tablolar olusturmak istiyorum. Bu Sebep ile buradaki bir sutunu filtreleyip kucukten buyuge siralama yaptigimda dogru sirada olmasi icin bir kac degisiklik yapmam sart. Ancak gerekli formulu olusturamadim bir turlu. Orn; olarak asagidaki gibi yapmak istiyorum

Orjinal veri--->Duzenlenmis veri
fr1--->fr001 (metinden sonra gelen sayi tek haneliyse iki adet sifir eklesin)
fr20--->fr020 (metinden sonra gelen sayi iki haneliyse bir adet sifir eklesin
vb001--->vb001 (degisiklik yok)
hhs156--->hhs156 (degisiklik yok)


Saygilarimla

 

[ahmetalb07]

Bilen varmi ?

 

[ÖmerBey]

Merhaba,
Aşağıdaki makro kodunu deneyiniz.

Sub kod()
Dim a As Long, b As Byte
Dim s As String, m As String
For a = 1 To Cells(Rows.Count, 1).End(3).Row
    For b = 1 To Len(Cells(a, 1))
        If IsNumeric(Mid(Cells(a, 1), b, 1)) Then
            s = s & Mid(Cells(a, 1), b, 1)
        Else
            m = m & Mid(Cells(a, 1), b, 1)
        End If
    Next
    Cells(a, 2) = m & Format(s, "000")
    s = ""
    m = ""
Next
End Sub

 

[Zeki Gürsoy]

Alternatif...

Sub Test()
    Set reg = CreateObject("VBScript.RegExp")
    reg.Pattern = "\d+"
    
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        If reg.Test(Cells(i, "a")) Then
            deg = reg.Execute(Cells(i, "a"))(0)
            Cells(i, "b") = reg.Replace(Cells(i, "a"), Format(deg, "000"))
        End If
    Next
End Sub

 

[halit3]

Merhaba istenen sonuç hangi sutünda bir bakarmısınız.

 

[ahmetalb07]

Merhaba,
Aşağıdaki makro kodunu deneyiniz.

Tesekkur ederim kodunuz isimi gordu.

Alternatif...

Tesekkur ederim kodunuz isimi gordu.

Merhaba istenen sonuç hangi sutünda bir bakarmısınız.

Tesekkur ederim yaptiginiz calisma isimi gordu. Istedigim en sagdaki sonuc.