• Merhaba, 22 Ocak 2020 Çarşamba günü sabah 08:00 ile 12:00 saatleri arasında forumun bulunduğu sunucuda genel bakım çalışması yapılacaktır.
    Bu sürenin tamamında olmasa da bir süreliğine forum geçici olarak erişilemez olacaktır. Bilgilerinize

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
552
Excel Vers. ve Dili
Excell 2010 Türkçe
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,821
Excel Vers. ve Dili
2013
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
552
Excel Vers. ve Dili
Excell 2010 Türkçe
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
552
Excel Vers. ve Dili
Excell 2010 Türkçe
Yazmayı unutmuşum sıra numarasını örnek dosyadaki R sütununa göre en küçükten başlayarak verebilir mi?
 
Üst