makroyla tekil sıralama kodu arıyorum.

[gelibolu]

Selamlar ; diğer bir sütunun tamamındaki tekil kayıtlara arayan kendi sütununda sıra numarası veren diğerlerini boş bırakan error bug vermeyecek bir makro arıyorum.

 

[Ömer]

Merhaba,

Sorunuzu örnek dosya ile destekleyip detaylı açıklarmısınız.

 

[gelibolu]

b sütunuda bu işlevi fonksiyonla yaptım ancak kullanıcı hata yapar hücre içindeki fonksiyonu silebilir diye düşünüyorum.Bunun için tekilleri veren diğerlerini boş bırakan bir kod bulamadım.(tekil no verileri plakadan alır.)

 

[Ömer]

b sütunuda bu işlevi fonksiyonla yaptım ancak kullanıcı hata yapar hücre içindeki fonksiyonu silebilir diye düşünüyorum.Bunun için tekilleri veren diğerlerini boş bırakan bir kod bulamadım.(tekil no verileri plakadan alır.)

Bu şekilde deneyin.

Sub TekilNo()
 
    Dim i As Long, no As Long
    
    Range("B2:B" & Rows.Count).ClearContents
    
    no = 1
    For i = 2 To Cells(Rows.Count, "E").End(xlUp).Row
        If WorksheetFunction.CountIf(Range("E2:E" & i), Cells(i, "E")) = 1 Then
            Cells(i, "B") = no
            no = no + 1
        End If
    Next i
    
End Sub

.

 

[gelibolu]

Çok teşekkür ederim olmuş elleriniz dert görmesin hayırlı geceler...

 

[Ömer]

Rica ederim, iyi geceler.