AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Excel Bir Garip Sıralama Sorusu

12/05/2020, 19:26

kanakan52

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.
12/05/2020, 20:15

feraz

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
12/05/2020, 21:43

kanakan52

feraz hocam selam, bilgisayarimdan uzağım, yarin sonucu ileteceğim , saygilar.
13/05/2020, 10:31

kanakan52

@feraz hocam selamlar,

Bir kez daha teşekkürlerimi iletiyorum. Tam olarak istediğimi aldım. Sağolasın.
13/05/2020, 11:42

feraz

Bişey değil abey