Sil ve Sırala

Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar ekte gönderdiğim silme işlemi ile ilgili bir sorunum var. açıklaması sayfa içerisinde yardım edermisiniz?
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,897
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Edit: Sn veyselemre verdiği için sildim
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
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
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
[vb:1:d13dd5506f]Sub sil()
If ListBox1.ListIndex = -1 Then Exit Sub
sat = ListBox1.ListIndex + 4
'.....
'...[/vb:1:d13dd5506f]
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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