AccessTr.neT

AccessTr.neT > Microsoft Excel > Excel Cevaplanmış Soruları > Excel Bir Garip Sıralama Sorusu
Tam Versiyon: Excel Bir Garip Sıralama Sorusu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.

kanakan52

12/05/2020, 19:26
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.

feraz

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

kanakan52

12/05/2020, 21:43
feraz hocam selam, bilgisayarimdan uzağım, yarin sonucu ileteceğim , saygilar.

kanakan52

13/05/2020, 10:31
@feraz hocam selamlar,

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

feraz

13/05/2020, 11:42
Bişey değil abey Img-grin
AccessTr.neT > Microsoft Excel > Excel Cevaplanmış Soruları > Excel Bir Garip Sıralama Sorusu