userform sil butonu

[DeathMoment]

çalışmamdaki userformda listboxta seçtiğim herhangi bir satırı sildiğimde sıra numarasının değişmesini istiyorum mesela son satırı sildiğimde herhangi bir sorun olmuyor fakat aralarda bir satırı sildiğimizde NO 1,2,3'ten sonra 5'e atlıyor yani benim istediğim aralardaki bir satırı sildiğimizde otomatik olarak 1,2,3,4 diye sıralıyıcak arada sayı atlamayacak yardımcı olabilirseniz sevinirim.

 

[halit3]

çalışmamdaki userformda listboxta seçtiğim herhangi bir satırı sildiğimde sıra numarasının değişmesini istiyorum mesela son satırı sildiğimde herhangi bir sorun olmuyor fakat aralarda bir satırı sildiğimizde NO 1,2,3'ten sonra 5'e atlıyor yani benim istediğim aralardaki bir satırı sildiğimizde otomatik olarak 1,2,3,4 diye sıralıyıcak arada sayı atlamayacak yardımcı olabilirseniz sevinirim.

Sil komutu

Private Sub CommandButton5_Click()
cvp = MsgBox("KAYDI SİLMEK İSTEDİGİNİZE EMİNMİSİNİZ ?", vbYesNo, " FEDEAL ")
If cvp = vbNo Then
Else
i = ListBox1.ListIndex + 2
If i < 2 Then Exit Sub
Sheets("DATA").Rows(i).Delete Shift:=xlUp
For j = 2 To Sayfa2.Range("b65536").End(3).Row
Sheets("Data").Cells(j, 1).Value = j - 1
Next
ActiveWorkbook.Save
MsgBox "KAYIT SİLİNDİ", , "FEDEAL"
End If
End Sub

 

[DeathMoment]

Sil komutu

Private Sub CommandButton5_Click()
cvp = MsgBox("KAYDI SİLMEK İSTEDİGİNİZE EMİNMİSİNİZ ?", vbYesNo, " FEDEAL ")
If cvp = vbNo Then
Else
i = ListBox1.ListIndex + 2
If i < 2 Then Exit Sub
Sheets("DATA").Rows(i).Delete Shift:=xlUp
For j = 2 To Sayfa2.Range("b65536").End(3).Row
Sheets("Data").Cells(j, 1).Value = j - 1
Next
ActiveWorkbook.Save
MsgBox "KAYIT SİLİNDİ", , "FEDEAL"
End If
End Sub

Teşekkür ederim hocam elinize sağlık

 

[DeathMoment]

Hocam birde kaydet ve düzelt butonlarına tıkladıktan sonra bütün değerleri silmesini nasıl sağlayabiliriz?

 

[DeathMoment]

Sil komutu

Private Sub CommandButton5_Click()
cvp = MsgBox("KAYDI SİLMEK İSTEDİGİNİZE EMİNMİSİNİZ ?", vbYesNo, " FEDEAL ")
If cvp = vbNo Then
Else
i = ListBox1.ListIndex + 2
If i < 2 Then Exit Sub
Sheets("DATA").Rows(i).Delete Shift:=xlUp
For j = 2 To Sayfa2.Range("b65536").End(3).Row
Sheets("Data").Cells(j, 1).Value = j - 1
Next
ActiveWorkbook.Save
MsgBox "KAYIT SİLİNDİ", , "FEDEAL"
End If
End Sub

Hocam birde kaydet ve düzelt butonlarına tıkladıktan sonra bütün değerleri silmesini nasıl sağlayabiliriz?