A sütunundaki kodlara bağlı B sütununda sıralama yapmak

[bilal5412]

Ekte bir çalışmam vardır. Yardımcı olabilir misiniz.
Ek bilgi : A sütununa bağlı çalışır ve a sütunundaki satır sayısı belirsizdir.


https://drive.google.com/file/d/0B3wJKQcxKCV4a2pweE9LX3praFk/view?usp=sharing

Şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Kod2 her zaman P değerini mi alıyor.

. . .

 

[bilal5412]

. . .

Kod2 her zaman P değerini mi alıyor.

. . .

1p,2p...10p,11p,12p,13p gibi. her zaman p.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    ilk = 2
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Cells(i, "A") <> Cells(i + 1, "A") Then
            sat = 1
            For a = ilk To i
                Cells(a, "B") = sat & "P"
                say = 4 - Len(sat * 10)
                Cells(a, "D") = WorksheetFunction.Rept("0", say) & sat * 10
                sat = sat + 1
            Next a
            ilk = Cells(i, "A").Row + 1
        End If
    Next i
End Sub

. . .

 

[bilal5412]

. . .

Sub kod()
    ilk = 2
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Cells(i, "A") <> Cells(i + 1, "A") Then
            sat = 1
            For a = ilk To i
                Cells(a, "B") = sat & "P"
                say = 4 - Len(sat * 10)
                Cells(a, "D") = WorksheetFunction.Rept("0", say) & sat * 10
                sat = sat + 1
            Next a
            ilk = Cells(i, "A").Row + 1
        End If
    Next i
End Sub

. . .

Sorum çözülmüştür. Teşekkürler emeğinize sağlık. Allah razı olsun.