• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Veri Silinince Sıra Numaralarının Yenilenmesi

  • Konbuyu başlatan Konbuyu başlatan ahmedummu
  • Başlangıç tarihi Başlangıç tarihi
A

ahmedummu

Misafir
Merhaba arkadaşlar.

Örnek 100 kişilik personel verileri var. Herhangi bir personeli sildiğim zaman sıra numaralarını yenileyebilir miyiz. Örnek 15. sıradaki personeli sildiğim de Sıra numarası,

...
14
16
... diye sıralanıyor. 15. sıra numarası olmuyor. Yardımcı olabilir misiniz.
 
Sıra numaraları 1. satırdan başlıyorsa

=SATIR()

Formülünü,

Satır numaraları 2. satırdan başlıyorsa

=SATIR()-1

Formülünü kullanabilirsiniz.
 
Yusuf bey, teşekkür ederim ilginize.

Veriler Userform üzerindeki bir buton ile siliniyor. Sıra numarası da veri girildikçe kod ile veriliyor. Bu nedenle, sıra numaralarının yenilenmesi kod ile olamalı.
 
Yusuf bey, teşekkür ederim ilginize.

Veriler Userform üzerindeki bir buton ile siliniyor. Sıra numarası da veri girildikçe kod ile veriliyor. Bu nedenle, sıra numaralarının yenilenmesi kod ile olamalı.

Sayın ahmedummu, sizce bu işte bir gariplik yok mu? Önce bir soru soruyorsunuz, cevap veriliyor, sonra olayın aslında sorduğunuzdan daha farklı olduğunu ya da değişik bilgilerin de gerektiğini belirtiyorsunuz.

2009'dan beri üye olan ve son zamanlarda sıklıkla sorularını gördüğüm bir kullanıcı olarak sorularda ne istediğimizin tam olarak belirtilmesi ve örnek dosyayla desteklenmesinin ne kadar önemli olduğunu bilmelisiniz diye düşünüyorum.
 
Merhabalar.

Örnek dosyayı gönderiyorum.

Userform1, Mulipage, Ücretli Öğretmenler sekmesi. Listbox1'e 5 kişinin ekders saatleri girilmiş, bunlardan birisi seçilip silinecek. veriler ÇİZELGE sayfasında bu sayfada sıra numaralarını tekrar yenileyecek.
 

Ekli dosyalar

Yusuf bey haklısınız. Daha öncede Halit3 beyden de eleştiri almıştım. Halbuki sorularımı sormadan önce, "Nasıl soru sorsam da yardımcı olacak arkadaşları fazla uğraştırmadan, kafalarını karıştırmadan, demek istediğimi tam olarak anlatabilirm diye bayağı prova yapıyorum. Heralde fazla konsantreden olsa gerek işte böyle eksik oluyor sorularım. Eğer görebiliyorsanız sorularımın hemen hemen hepsinde bir kaç kez düzeltme var. Kusura bakmayın daha dikkatli olurum.
 
Silme işlemi yapan makronuzu aşağıdaki gibi değiştirip deneyiniz.

Kod:
Sub sill()
adi = UserForm1.TextBox8.Value
cevap = MsgBox(adi & " adlı kaydın ders saatlerini silecek misiniz?", vbQuestion + vbYesNo, "Sil")
If cevap = vbYes Then
Selection.EntireRow.Delete
Else: End If
UserForm1.ListBox1.RowSource = ""

sayfa = "ÇİZELGE" 'ActiveSheet.Name
son = Worksheets(sayfa).Cells(Rows.Count, 2).End(3).Row
Sheets(sayfa).Cells(son + 1, "AI").Value = WorksheetFunction.Sum(Sheets(sayfa).Range(Sheets(sayfa).Cells(2, "AI"), Sheets(sayfa).Cells(son, "AI")).Value)

For i = 10 To 40
UserForm1.Controls("textbox" & i).Value = ""
Next

son = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To son
    If Cells(i, 2) <> "" Then
        Cells(i, 1) = i - 4
    End If
Next

With UserForm1.ListBox1
        .ColumnCount = 35
        .ColumnWidths = "20;100;50;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;18;30"
        .RowSource = "A5:AL" & son
    End With
Range("b65536").End(xlUp).Select
    UserForm1.TextBox43.Value = ActiveCell.Offset(1, 33).Value
Dim a As Byte
For a = 1 To 4
UserForm1.Controls("commandbutton" & a).Enabled = False
Next a
UserForm1.TextBox39.Value = ""
UserForm1.TextBox40.Value = ""

Range("b65536").End(xlUp).Select
    UserForm1.TextBox41.Value = ActiveCell.Offset(1, 33).Value

End Sub
 
Elinize sağlık, çok teşekkür ederim. Sorun çözüldü.
 
Geri
Üst