Seçili Kaydın Silinmesi

Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar merhaba benim bir sorum var; ekli sayfada seçili kaydın silinmesi ile ilgili bir örnek var inceleyip yardım ederseniz sevinirim. bu arada moderatörlerimize bir iletim var; siteye girişte çok zorlanıyorum, internet bağlantımda sorun yok ama adresimize (www.excel.web.tr) adresimize grmekte güçlük çekiyorum.
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
Sn.Zafer Bey'in Çözümü Çok daha Güzel.
Çünkü sıra nolarda ki Duruma Ben Dikkate Almadım. :bravo:
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Zafer ve Rakkas gönderdiğiniz örnekler için öncelikle teşekkür ederim. irakkas kardeşimin örneği soruma bir alternatif bir yönde. ancak; zafer kardeşin örneği sorumun tam cevabı ancak göndermiş olduğu örnekte listedeki tüm kayıtlar siliniyo ve en sonunda ad soyad ünvan satırıda siliniyo. yani bu belirlenmiş satır silinmeyecek. bunu nasıl çözeriz arkadaşlar.
 

Kemal Demir

Özel Üye
Katılım
29 Temmuz 2004
Mesajlar
2,108
Sn.Zafer beyin Örneği ile sentezleyip yeni örnek ektedir.
İlk satırı silemezsiniz
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
Zafer Beyin Kodlarına aşağıdaki ilaveyi yapın.
[vb:1:fd69615452]Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
.
.
.
.
[/vb:1:fd69615452]
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Rakkas ve veysel emre çok teşekkür ederim arkadaşlar.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Private Sub CommandButton1_Click()
If ListBox1.ListIndex <> 0 Then
Sil = ListBox1.ListIndex + 2
Cevap = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Rows(Sil).EntireRow.Delete
End If
son = Cells(65536, 1).End(xlUp).Row
For i = 2 To son
Cells(i, 1) = i - 1
Next
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If ListBox1.ListIndex <> 0 Then
Sil = ListBox1.ListIndex + 1
Cevap = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ!", vbYesNo, "")
If Cevap = vbNo Then Exit Sub
Rows(Sil).EntireRow.Delete
End If
son = Cells(65536, 2).End(xlUp).Row
For i = 2 To son
Cells(i, 1) = i - 1
Next
End Sub

Private Sub UserForm_Initialize()
ListBox1.RowSource = "VERİ1!B4:b5000"
ListBox1.ColumnHeads = False
End Sub


Arkadaşlar bu kod dizisinde bir hata var ama çözemedim. zira sıralamayı a1 den yapıyo ve seçili mesela adem i silmiyo. eki de ilişikte gönderiyorum.
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Dostlar benim yukarıdaki sorum öksüz kalmış bakma fırsatı olan arkadaş olmadı galiba. :hey: :hey: :hey: :yazici: :yazici: :yazici:
 
Üst