Makro ile sıralama

[mergul]

İyi günler, daha önce açmış olduğum başlıkla ilgili bilgi alamadım. Bu defa farklı olarak bilgilerinizden faydalanmak istiyorum. Sitede birçok konuda yeni bilgiler edindim, fakat yapmak istediklerimle ilgili örnek bulamadım. Bu konuda bana yardımcı olabilecek hocalarımdan yardım rica ediyorum. İstediklerimi formülle de yapabiliyorum fakat diğer hücrelerde formül olduğu için olmuyor. Eğer makro ile bana yardımcı olabilirseniz çok sevinirim, şimdiden teşekkür ederim.
İstediğim ekteki dosyada
ah sütununda hücre değeri 2400 den büyük olması durumunda a sütunundaki hücre karşılığına "x" işareti koyacak, b sütununda ise a sütununda "x" işareti olmayan satırları sıralı olarak numaralandıracak. numaralandırma yaparken ah sütununda boş yada "0" değeri olanlara "boş" yazacak. boş yazan hücreler numaralandırmayı etkilemeyecek.

 

[veyselemre]

Sub test()
    For i = 6 To Cells(Rows.Count, "AH").End(3).Row
        If Cells(i, "AH").Value > 2400 Then
            Cells(i, "A").Value = "x"
        ElseIf Cells(i, "AH").Value = 0 Then
            Cells(i, "B").Value = "boş"
        Else
            sira = sira + 1
            Cells(i, "B").Value = sira
        End If
    Next i
End Sub

 

[mergul]

Veysel hocam çok teşekkür ederim. Allah razı olsun. Her şey gönlünüzce olsun.