Verileri gurup yapıp numara verme.

[desıgner1]

İyi günler arkadaşlar.

Mavi ile renklendirilmiş olan verilerimiz var.
Veriler " I " sütununa göre sıralanmış vaziyette bulunuyor.

I sütununda kaç tane veri kümesi var ise tamamına 1 den başlayıp
1 2 3 4 5 ….. diye numara vereceğiz.

1 numarayı sorgusuz olarak veriyoruz
2 3 4 …. Ve diğerlerini ise ;

G sütununda ki sayıların arasında 5 fark olduğu zaman veriyoruz.

Yani eğer G sütunundaki sayı ile bir sonraki sayı arasında fark 5 ten büyük
değilse o an ki verilen numara verilmeye devam ediyor.

bilgiler ışığında bir yardım istiyorum. İlgilenecek arkadaşlara şimdiden teşekkür ederim.
İyi çalışmalar.

 

[askm]

Sub ASKM_Sira_No()
For i = 4 To 22
    If Cells(i, "I") = Cells(i - 1, "I") Then
        If Cells(i, "G") - Cells(i - 1, "G") >= 5 Then
            Cells(i, "F") = Cells(i - 1, "F") + 1
        Else
            Cells(i, "F") = Cells(i - 1, "F")
        End If
    Else
        Cells(i, "F") = 1
    End If
Next
MsgBox "Sıralama işlemi tamam...", vbInformation, "ASKM"
End Sub

 

[askm]

Sizin vermiş olduğunuz E sütunu ile kıyaslamak için F süütununa numara verdirdim. Siz F harflerini E yaparsınız.

 

[desıgner1]

Konun anlaşılmadığını düşünüp yeni açıklama yapacaktım, tam da o anda
cevap gelmiş.

Çok teşekkür ederim @askm
Elinize sağlık.

 

[askm]

Rica ederim. Kolay gelsin.