Seçili Kaydın Silinmesi

[ocamsul]

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]

Merhaba

 

[Kemal Demir]

Sn.Ocamsul

Ek'teki Örneğe bakınız

 

[Kemal Demir]

Sn.Zafer Bey'in Çözümü Çok daha Güzel.
Çünkü sıra nolarda ki Duruma Ben Dikkate Almadım. :bravo:

 

[zafer]

Merhaba

http://www.excel.web.tr/viewtopic.php?t=16177&start=0&postdays=0&postorder=asc&highlight=

Bugün formumdayım herhalde

 

[Kemal Demir]

Efendim Teveccünüz.

 

[Ali]

Bugün formumdayım herhalde

Siz her zaman forumdasınız Zafer Bey :hey:

 

[ocamsul]

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]

Sn.Zafer beyin Örneği ile sentezleyip yeni örnek ektedir.
İlk satırı silemezsiniz

 

[veyselemre]

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]

 

[ocamsul]

Rakkas ve veysel emre çok teşekkür ederim arkadaşlar.

 

[Merhum İdris SERDAR]

Bugün formumdayım herhalde

Bunu yeni farkettim. Zafer Bey, siz her zaman formdasınız. ost:

 

[ocamsul]

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.

 

[ocamsul]

Dostlar benim yukarıdaki sorum öksüz kalmış bakma fırsatı olan arkadaş olmadı galiba. :hey: :hey: :hey: :yazici: :yazici: :yazici: