Değerli hocalarım merhaba,

Excelde gıcık bir sorunum var, Ekteki dosyada göreceğiniz üzere formülle yağtığım işlemi vba' da yapmak istiyorum.

"A" sütununa eğersay ile B sütunundaki verilere göre sıra numarası veriyorum. Aradan kayıt sildiğimde yine formülde olduğu gibi  sıra numarası bozulmadan ( silinen kaydın yeri boşi kalmayack şekilde) yeniden nasıl sıralayabilirim.

Değerli cevaplarınız için teşekkür ederim.

Dim i As Long



Application.ScreenUpdating = False

With Sheets("Sayfa2")

    .Columns(1).ClearContents

    For i = 1 To .Cells(Rows.Count, 2).End(3).Row

        .Cells(i, 1).Value = WorksheetFunction.CountIf(.Range("B1:B" & i), .Range("B" & i))

    Next

End With

Application.ScreenUpdating = True

feraz hocam selam, bilgisayarimdan uzağım, yarin sonucu ileteceğim , saygilar.

@feraz hocam selamlar,

Bir kez daha teşekkürlerimi iletiyorum. Tam olarak istediğimi aldım. Sağolasın.

Bişey değil abey