karşılaştırma

[lansor]

arkadaşlar selam
benim sorum ; örnek olarak veririsem a sütununda kişiye ait sokak adı b sütununda ise ev nosu bulunsun c sütununa aynı olanlara sırası ile bir numara vermek istiyorum 1 den başlayarak aynı hanedeki kişilere ait 1 numara diğer haneye ait kişilere 2 no gibi bir sayı atamak istiyorum dosyam ektedir ilgilenen arkadaşlara şimdiden teşekkürler .

 

[werhan]

Özet tablo seçeneği ile yapabilirsin,
Veri sekmesi altında Özet Tablo ve Grafik Hazırla gibi bir başlık olacak burdan yapabilirsin, istersen dosyayı gönder yapalım.
Selamlar.

 

[lansor]

teşekkürler dostum makro yada fonksiyon olurdu ilgin için sağol

 

[lansor]

ilgin için tşk dostum makro yada fonksiyonlu çözüm tercih ediyorum .çok sağol

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz? Kendi sütun sayısına göre düzenlemeniz gerekir.

Sub Numaralandir()
Dim i As Long, Son As Long
Dim Numara As Long
Son = [A65536].End(3).Row
Application.ScreenUpdating = False
Range("A2:B" & Son).Sort Key1:=[A1], Key2:=[B1]
For i = 2 To [A65536].End(3).Row
    If Cells(i, "A") = Cells(i - 1, "A") And _
       Cells(i, "B") = Cells(i - 1, "B") Then
        Cells(i, "C") = Numara
    Else
        Numara = Numara + 1
        Cells(i, "C") = Numara
    End If
Next i
Application.ScreenUpdating = True
End Sub

 

[lansor]

necdet hocam sağolasın emeğine sağlık. neyseki varsınız be hocam sonsuz tşk