Sıra No Düzenleme

[sedat2161]

Hayırlı günler arkadaşlar. Ekli dosyamda silinmesi gereken personel oluyor ve onu siliyorum. Sıralama ise bozuluyor. Sıralamanın otomatik sıralanması mümkün mü acaba.

 

[muysun35]

srn = 1
For i = 2 To Range("A65536").End(3).Row
Range("A" & i).Value = srn
srn = srn + 1
Next

silme işlemi kodlarının bitimine bu kodları yapıştırıp deneyin

 

[muysun35]

ya da harici dosya barındırma sitelerinden birine dosyayı yükleyin.

 

[sedat2161]

ya da harici dosya barındırma sitelerinden birine dosyayı yükleyin.

22.xlsx dosyasını indir - download

22.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

Hocam silme kodu yok. Manuel olarak siliyorum.

 

[muysun35]

o zaman Worksheet_Change olayına
If Not Intersect(Target, Range("A3:A500")) Is Nothing Then
srn = 1
For i = 3 To Range("A500").End(3).Row
Range("A" & i).Value = srn
srn = srn + 1
Next
End If

Deneyin. yalnız sicil no kısmı 9 satırdan oluşuyor. Bu yüzden hata verebilir.. Sicil no ların tek satırda olması halinde yukarıdaki kodlar çalışır. grup olarak hücrelere sıra no verme konusunda diğer arkadaşlar yardımcı olurlar sanırım

 

[muysun35]

ya da manuel olarak a sütununu seçin.. excel menülerinden SERİ > DOLGU yolunu izleyerek manuel numaralandırın

 

[veyselemre]

    For i = 3 To Cells(Rows.Count, 2).End(3).Row Step 10
        Cells(i, 1).Value = (i + 7) / 10
    Next i

 

[muysun35]

Deneyin..

22.xlsm - 16 KB