işletme numarası vermek

[senerozun]

Ekte sunduğum örnekte ad ve soyada göre A sutununda işletme numarası vermek istiyorum. bunu excelde nasıl bir formul oluşturabilirim.

 

[Ömer]

Merhaba,

Dosyanız ektedir..

 

[Necdet]

Merhaba,

Alternatif olarak makrolu çözüm isterseniz eğer, ilgili dosyayı inceleyiniz.

Public Sub IsletmeNoVer()
Dim i, j As Integer
Dim Soyad, AdSoyad As String
j = 0
For i = 2 To [C65536].End(3).Row
    AdSoyad = Cells(i, "C") & Cells(i, "D") & Cells(i, "E")
    If AdSoyad <> "" And AdSoyad <> Soyad Then
        Soyad = Cells(i, "C") & Cells(i, "D") & Cells(i, "E")
        j = j + 1
        Cells(i, "A") = j
    End If
    If Cells(i, "C") <> "" Then Cells(i, "A") = j
 
Next i
End Sub