Ardışık sıra numaralama

[zafer]

Merhaba

A B
1 1
1 2
2 2
1 3
1 4
3 2
2 3
2 4
1 5

B sütununda kodlar var A sütununda bunları sıra numarasına dizmek istiyorum.B sütunundaki kodlara göre
Yani kodların başlangıcını ve bitişini bulmakta kullanacağım.

Makro yazdım ama tersten başlıyor.çözemedim.

Formülde olabilir.



Saygılarımla

 

[abazya]

Sub Düğme1_Tıklat()

    Range("A1:A9").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Bu şekilde olurmu

 

[Levent Menteşoğlu]

Formüllü çözüm

A1 hücresine aşağıdaki formülü yazın ve aşağı doğru sürükleyerek çoğaltın.

=EÐERSAY($B$2:B2;B2)

 

[Levent Menteşoğlu]

Buda makrolu çözüm

[vb:1:7e9dae780e]Sub sirano()
For a = 2 To Cells(65536, 2).End(xlUp).Row
Cells(a, 1) = WorksheetFunction.CountIf(Range("B2:B" & a), Cells(a, 2).Value)
Next
End Sub
[/vb:1:7e9dae780e]

 

[dyrbkr]

harikasınız

 

[zafer]

Merhaba

İlgi ve alakanıza çok teşekkür ederim.

Saygılarımla