makro formülü

[senerozun]

aşagıdaki örnekte B hücresindeki şahışları aynı kişileri A hücresinde ayırmak istiyorum. yani A sutununda her ayrı kişiye bir işletme numarası vermek istiyorum. formülü nasıl oluşturabilirim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle ekleyip dener misiniz?

Public Sub NumaraVer()
Application.ScreenUpdating = False
[A2:A65536].ClearContents
Range("B2:C" & [B65536].End(3).Row).Sort Key1:=[B2], Key2:=[C2]
No = 0
For i = 2 To [B65536].End(3).Row
    If Cells(i, "B") <> Cells(i - 1, "B") Or Cells(i, "C") <> Cells(i - 1, "C") Then
       No = No + 1
    End If
    Cells(i, "A") = No
Next i
MsgBox No & " Adet Nurama Oldu"
End Sub

 

[Necdet]

Merhaba,

Dosyayı da ekleyim.