Tekrarlanan kayıtlara sıra no vermek

[omeryılmaz]

Merhaba Arkadaşlar

Tekrarlanan verilere sıra no vermek ile ilgili çok araştırma yaptım ve kendimce makro yazdım ancak tam olmadı.

Yardımlarınız için şimdiden şükranlarımı sunuyorum..

 

[Mahmut Kök]

Private Sub CommandButton1_Click()
Dim ad As String
Dim adet As Integer
Set s1 = Sheets("Sayfa1")
s1.Range("a2:a" & s1.Range("b65536").End(3).Row).ClearContents

For i = 1 To s1.Range("b65536").End(3).Row
If s1.Cells(i, "A") = "" Then
ad = s1.Cells(i, "B")
adet = 0
    For ii = 1 To s1.Range("b65536").End(3).Row
If s1.Cells(ii, "B") = ad Then
adet = adet + 1
s1.Cells(ii, "A") = adet
End If
    Next
End If
Next
End Sub

 

[omeryılmaz]

Private Sub CommandButton1_Click()
Dim ad As String
Dim adet As Integer
Set s1 = Sheets("Sayfa1")
s1.Range("a2:a" & s1.Range("b65536").End(3).Row).ClearContents

For i = 1 To s1.Range("b65536").End(3).Row
If s1.Cells(i, "A") = "" Then
ad = s1.Cells(i, "B")
adet = 0
    For ii = 1 To s1.Range("b65536").End(3).Row
If s1.Cells(ii, "B") = ad Then
adet = adet + 1
s1.Cells(ii, "A") = adet
End If
    Next
End If
Next
End Sub

Teşekkürler Elinize sağlık .......