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

teyadih

Altın Üye
Altın Üye
Katılım
15 Ekim 2014
Mesajlar
528
Beğeniler
10
Excel Vers. ve Dili
Excell 2010 Türkçe
#1
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?
 

Ekli dosyalar

dalgalikur

Destek Ekibi
Destek Ekibi
Katılım
5 Haziran 2006
Mesajlar
2,222
Beğeniler
267
Excel Vers. ve Dili
2013
#2
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.

Kod:
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

Altın Üye
Altın Üye
Katılım
15 Ekim 2014
Mesajlar
528
Beğeniler
10
Excel Vers. ve Dili
Excell 2010 Türkçe
#3
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

Altın Üye
Altın Üye
Katılım
15 Ekim 2014
Mesajlar
528
Beğeniler
10
Excel Vers. ve Dili
Excell 2010 Türkçe
#4
Yazmayı unutmuşum sıra numarasını örnek dosyadaki R sütununa göre en küçükten başlayarak verebilir mi?
 
Üst