Soru Birime göre sıra numarası verme

[tukayf]

H sütunundaki birimlere göre b sütununda birim sıra nosu vermek istiyorum. Yardımlar için şimdiden teşekkürler.

 

[çıtır]

Sayfa kodu olarak kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long, sr As Long
If Intersect(Target, [H4:H10000]) Is Nothing Then Exit Sub
Range("A4:A" & Rows.Count).ClearContents
On Error Resume Next
For i = 4 To Cells(Rows.Count, "H").End(3).Row
sr = WorksheetFunction.CountIf(Range("H4:H" & i), Range("H" & i))
Cells(i, 2) = sr
If sr = 0 Then
Cells(i, 2) = ""
End If
Next i
End Sub

 

[tukayf]

Sn. çıtır çok teşekkürler.

 

[çıtır]

Sn. çıtır çok teşekkürler.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.

 

[tukayf]

Sn. çıtır ben teşekkür ederim ilginiz ve yardımlarınız için.