Otomatik sıra numarası

[el-vis]

Değerli arkadaşlar.Ekli tabloda Excell'in otomatik sıra numarası vermesini
istemekteyiz.Yardımlarınız için teşekkür ederim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub SiraNo()
 
    Dim sat As Long, i As Long, ilk As Long, son As Long, say As Long
 
    sat = [A:C].Find("*", , , , xlByRows, xlPrevious).Row
 
    Application.ScreenUpdating = False
    With Range("A3:A" & sat)
        .UnMerge
        .Clear
    End With
 
    ilk = 3
    For i = 3 To Cells(Rows.Count, "C").End(xlUp).Row
        If Cells(i, "C") <> Cells(i + 1, "C") Then
            son = i
            say = say + 1
            With Range("A" & ilk & ":A" & son)
                .Merge
                .Borders.Weight = xlThick
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
            End With
            Range("A" & ilk) = say
            ilk = i + 1
        End If
    Next i
 
    Application.ScreenUpdating = True
End Sub

.

 

[firstisland]

Ekteki dosya işinize yarar mı? (en basit yöntem.) _1.xlsx uzantılı dosya

Ömer arkadaşımız makro ile yapmış. Ellerine sağlık. _2.xlsm uzantılı dosya.

Hangisi uygunsa onu kullanırsınız.

İyi çalışmalar...

 

[el-vis]

Sanırım olmadı bir kere daha bakmanızı rica edebilirmiyim.ürün kodu kısmındaki rakamlar farz edelim 3 kez tekrarlanmış olsun.dördüncü
sayı yazılırken(yukarıdaki 3 satırdaki rakamlardan farklı olarak) sıra noda üçkez tekrarlanan hücreleri birleştirip sırayla numara versin.teşekkürler...

 

[el-vis]

Çok teşekkür edrim arkadaşlar tam istediğim gibi olmuş.Emeğinize sağlık..