Sil ve Sırala

[ocamsul]

Arkadaşlar ekte gönderdiğim silme işlemi ile ilgili bir sorunum var. açıklaması sayfa içerisinde yardım edermisiniz?

 

[veyselemre]

Ekteki Örneği İnceleyin.

 

[Ali]

Edit: Sn veyselemre verdiği için sildim

 

[ocamsul]

ama arkadaşlar bu örnekte deseçim yapmadan seçili personeli sil butonuna basarsak sıra no ve ad soyad satırını siliyo. ama silmemesi gerekir.

 

[Korhan Ayhan]

Selamlar,

Kayıt silmek için kullandığınız kodu aşağıdaki ile değiştiriniz.

Sub Sil()
If ListBox1.Value = Empty Or ListBox1.ListIndex < 0 Then
MsgBox "BİR KAYIDI SİLEBİLMEK İÇİN İLK ÖNCE LİSTEDEN SEÇİM YAPMALISINIZ.", vbCritical
Exit Sub
End If

Sat = ListBox1.ListIndex + 4
    Cevap = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
    If Cevap = vbNo Then Exit Sub
    Rows(Sat).EntireRow.Delete
Son = [a65536].End(3).Row
For i = 4 To Son
Cells(i, 1) = i - 3
Next
Call yenile
End Sub

 

[ocamsul]

COST_CONTROL

kardeş ama yine aynısı oldu. başınızı ağrıttım ama öyle oldu yine seçmeden bastığımızda siliyo.

 

[Haluk]

[vb:1:d13dd5506f]Sub sil()
If ListBox1.ListIndex = -1 Then Exit Sub
sat = ListBox1.ListIndex + 4
'.....
'...[/vb:1:d13dd5506f]

 

[ocamsul]

Haluk kardeş çok teşekkür ederim. arkadaşlarla uğraşa uğraşa seninde katkılarınla mevzuyu çözdük. diğer arkadaşlara ve sana çok teşekkür ederim. bu siteyi ve forum dostlarımı çok seviyorum.

 

[Korhan Ayhan]

Selamlar,

Ben kodu deneyerek göndermiştim. Ve benim bilgisayarımda çalışmıştı. Neyse önemli olan sizin sonuca ulaşmanız.