Koşula göre sıra numarası verme

[burakturk]

Arkadaşlar merhaba,
Elimde yaklaşık 8bin satırlık bir cari liste var. Bu cari kodlarım önce carinin tipini belirtiyor, sonra bulunduğu şehrin plaka kodunu içeriyor ve bundan sonra da bir sıra numarası alıyor. Her bir cari tipi ve şehir için 000001 ile başlatarak sıra numarası vermek istiyorum. Bu işlemi bazı farklı tekniklerle hızlı halledebiliyorum ancak bunu makro kullanmadan başarabileceğim tek bir yöntem var ise bilmek isterim belki çok basit bir yolu vardır.

Örnek bir dosyayı ekte ekliyorum,

yardımcı olabileceğinizden eminim.

Şimdiden hepinize teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.

E2 'ye kopyalayıp aşağı doğru çoğaltın.

=YİNELE("0";6-UZUNLUK(ÇOKEĞERSAY($D$2:D2;D2;$C$2:C2;C2)))&ÇOKEĞERSAY($D$2:D2;D2;$C$2:C2;C2)

 

[Muzaffer Ali]

Bu da kod ile

Sub Test()
    With Range("G2:G" & Cells(Rows.Count, "A").End(xlUp).Row)
        .Formula = "=rept(""0"",6-len(countifs($D$2:D2,D2,$C$2:C2,C2)))&countifs($D$2:D2,D2,$C$2:C2,C2)"
        .NumberFormat = "@"
        .Value = .Value
    End With
End Sub

 

[burakturk]

Merhaba.

E2 'ye kopyalayıp aşağı doğru çoğaltın.

=YİNELE("0";6-UZUNLUK(ÇOKEĞERSAY($D$2:D2;D2;$C$2:C2;C2)))&ÇOKEĞERSAY($D$2:D2;D2;$C$2:C2;C2)

Teşekkür ederim baya karışık ama işimi çözdü gibi. Emeğinize sağlık

Bu da kod ile

Sub Test()
    With Range("G2:G" & Cells(Rows.Count, "A").End(xlUp).Row)
        .Formula = "=rept(""0"",6-len(countifs($D$2:D2,D2,$C$2:C2,C2)))&countifs($D$2:D2,D2,$C$2:C2,C2)"
        .NumberFormat = "@"
        .Value = .Value
    End With
End Sub

Makro kullanarak yapmak istemiyorum ama en azından makro ile nasıl yapılacağını öğrenmiş oldum. Emeğinize sağlık

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.