Varsa belirlenenlerden başlamak üzere sıra numarası vermesi

[teyadih]

Kolay gelsin arkadaşlar. O sütunundaki ilk sıradaki bilgiden başlamak üzere O sütunundakilerden D sütununda olanlara sırasıyla numara verecek bir formüle ihtiyacım var.
Yani D sütununda öncelikle varsa
Önce İstanbul Bölge İdare Mah. Başkanına sıra no verecek
Sonra İstanbul Bölge İdare Mah. Daire Başkanına devam edecek
Daha sonra İstanbul Bölge İdare Mah. Üyesine verecek şekilde
O sütunundaki bilgilerin hepsine sıra numarası vermesi. Örnek dosyayı ekte gönderiyorum.
Teşekkür ederim

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.
Düzeltme: Eğer sıra numarasını A sütununa verecekseniz ilgili yeri Cells(b, "A") = s olarak değiştiriniz.

Sub kod()
Application.ScreenUpdating = False
Range("J:J").ClearContents
For a = 2 To Cells(Rows.Count, "O").End(3).Row
    For b = 3 To Cells(Rows.Count, "D").End(3).Row
        If Cells(a, "O") = Cells(b, "D") Then
            s = s + 1
            Cells(b, "J") = s
        End If
    Next
Next
Application.ScreenUpdating = True
End Sub

 

[teyadih]

Elinize sağlık ÖmerBey yazmayı unuttum kusura bakmayın bilgisayarlarda microsoft olmadığından makroda sıkıntı yaşanıyor eğerli formülle yapabilirmiyiz

 

[ÖmerBey]

Elinize sağlık ÖmerBey yazmayı unuttum kusura bakmayın bilgisayarlarda microsoft olmadığından makroda sıkıntı yaşanıyor eğerli formülle yapabilirmiyiz

Formüllü dosya ektedir.

 

[teyadih]

Teşekkür ederim ÖmerBey kontrol edip dönüş yapacağım

 

[çıtır]

Sayın teyadih;
Ben de hazırlamışdım.ÖmerBeyin dosyasınız görmedim.Alternatif olsun.Bakar mısınız?

 

[teyadih]

Teşekkür ederim sayın Çıtır elinize sağlık. İnceleyip dönüş yapacağım

 

[teyadih]

Sayın ÖmerBey sayın Çıtır formül tamam elinize sağlık tekrar teşekkür ederim

 

[çıtır]

Sayın ÖmerBey sayın Çıtır formül tamam elinize sağlık tekrar teşekkür ederim

Sayın teyadih;
Dönüş yaptığınız için teşekkür ederim.