Belirli kelimelere vermemek şartıyla birden fazla şarta bağlı sıra numarası

[teyadih]

Kolay gelsin arkadaşlar. Belirli kelimelere vermemek şartıyla birden fazla şarta bağlı sıra numarası verecek formüle ihtiyacım var. Örnek dosyayı ekte gönderiyorum. Yardımcı olur musunuz?

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu sayfanın kod kısmına kopyalayın ve çalıştırın.
"T" sütununa sıra numarası verecektir.

Sub Test()
    Dim Say As Long
    Dim Bak As Long
    Dim No As Long
    Say = Cells(Rows.Count, "G").End(3).Row
    For Bak = 7 To Say
        If (Cells(Bak, "G").Find("Ü.izin")) Is Nothing And _
             (Cells(Bak, "G").Find("Grv.Uzk")) Is Nothing And _
             (Cells(Bak, "G").Find("Asker")) Is Nothing Then
                If Cells(Bak, "R") < 395 And Cells(Bak, "R") > 350 Or _
                    Cells(Bak, "H") = 3000 And Cells(Bak, "R") < 2195 And Cells(Bak, "R") > 2150 Or _
                    Cells(Bak, "H") = 1000 Or Cells(Bak, "H") = 2000 And Cells(Bak, "R") < 3635 And Cells(Bak, "R") > 3590 Or _
                    Cells(Bak, "H") = 3000 And Cells(Bak, "R") < 5435 And Cells(Bak, "R") > 5390 Then
                    No = 1 + No
                    Cells(Bak, "T") = No
                End If
        End If
    Next
End Sub

 

[teyadih]

Elinize sağlık sayın dalgalikur. Yazmayı unutmuşum kusura bakmayın yordum sizi tüm bilgisayarlarda Microsoft olmadığı için makro çalıştırmada sıkıntı yaşıyoruz formül olarak alabilir miyim?

 

[teyadih]

Yazmayı unutmuşum sıra numarasını örnek dosyadaki R sütununa göre en küçükten başlayarak verebilir mi?