B Sütunundaki her bir tekrarlanan değer için A sütununda indeks oluşturmak

[lsuersoy]

Merhaba arkadaşlar ;

Yapmak istediğim , B Sütunundaki her bir tekrarlanan değer için A sütununda otomatik indeks oluşturmak...
Bu indeks her farklı değer için 1 den başlayacak ve aynı değerden kaçtane var ise o kadarlık bir indeks olacak..
B sütunundaki veriler ARTAN sıralı olacağından aynı veriler alt alta sıralı olacak...

Fonksiyon veya makro ile yardımcı olabilecek arkadaşlara şimdiden teşekkürler...

Örnek ; resimdeki gibi

 

[Orion1]

Bir şey anlamadım.Nerdeki ayni değerden olacak .B ssütunundaki değerlerin hepsi ayni.Sorunuzu daha açık anlatmalısınız.Hatta bir tane örnek dosya hazırlayımn ki size cevap yazacak kişiler birde dosya hazırlamak durumunda olmasınlar.

 

[lsuersoy]

Örnek dosya

Örnek dosya

 

[Orion1]

Dosyanız ekte.

Sub indexno()
Dim deg As String, no As Long
deg = Cells(2, "B").Value
Application.ScreenUpdating = False
Range("A2:A65536").ClearContents
For i = 2 To Cells(65536, "B").End(xlUp).Row
    If deg = Cells(i, "B").Value Then
        no = no + 1
        Else
        no = 1
    End If
    Cells(i, "A").Value = no
    deg = Cells(i, "B").Value
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[Korhan Ayhan]

Selamlar,

Formülle çözüm isterseniz aşağıdaki formülü A2 hücresine uygulayınız.

=EĞER(B2="";"";EĞER(B1=B2;A1+1;1))

 

[lsuersoy]

Dosyanız ekte.

Sub indexno()
Dim deg As String, no As Long
deg = Cells(2, "B").Value
Application.ScreenUpdating = False
Range("A2:A65536").ClearContents
For i = 2 To Cells(65536, "B").End(xlUp).Row
    If deg = Cells(i, "B").Value Then
        no = no + 1
        Else
        no = 1
    End If
    Cells(i, "A").Value = no
    deg = Cells(i, "B").Value
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

Sayın Evren Gizlen çözümünüz için teşekkür ederim.Başarılı

 

[lsuersoy]

Korhan Ayhan sizin çözümünüz de başarılı ve oldukça pratik , ilginize teşekkürederim.