Sil komutu neden bir alt satırı siler

[Altay3555]

Private Sub CommandButton3_Click() 'Sil Butonu
If ListBox1.ListIndex >= 0 Then
cevap = MsgBox("Bilgi Silinecek... Emin misiniz?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Silinecek_Satir = ListBox1.ListIndex + 1
Sheets("Bebek").Rows(Silinecek_Satir).Delete
End If
End If
End Sub


Selamlar
Kısa ve çok etkili bir "SİL" komutu,öncelikle yazan hocalarıma teşekkürler ediyorum.
Galiba bir tarafıyla oynadım ki listbox ve sayfada hep bir alt veriyi siliyor.
Yanlışlık nerede bulamadım.
(Bebek Sayfasında 2.satırdan itibaren veriler kaydediliyor.A dan AB ye kadar....
+ kısmına 0-1-2 yazdım hiçbiri olmadı.
Şimdiden teşekkürler.

 

[Ayhan Ercan]

Merhaba

Kodunuzu aşağıdaki gidi değiştirerek deneyiniz..

Sheets("Bebek").Rows(Silinecek_Satir -1).Delete

 

[Altay3555]

Hocam hata veriyor nedense.Dosya çok büyük sistem de kabul etmiyor.
Böyle de çözülemeyeceği aşikar gibi ama bir umut demiştim.

 

[Ayhan Ercan]

Hocam hata veriyor nedense.Dosya çok büyük sistem de kabul etmiyor.
Böyle de çözülemeyeceği aşikar gibi ama bir umut demiştim.

Bir alt satırı derken mesela 5. satırı sileceğine 6.satırımı siliyor?
Eğer bu şekildeyse verdiğim kod çalışmalı.

Rows(Silinecek_Satir) = Rows(6) ise
Rows(Silinecek_Satir-1) = Rows(6-1) Yani Rows(5) dir.

Rows= Satır demek zaten

 

[Ayhan Ercan]

Örnek dosya olmadan anca bukadar yardım olur....

 

[Altay3555]

Bir alt satırı derken mesela 5. satırı sileceğine 6.satırımı siliyor?
Eğer bu şekildeyse verdiğim kod çalışmalı.

Rows(Silinecek_Satir) = Rows(6) ise
Rows(Silinecek_Satir-1) = Rows(6-1) Yani Rows(5) dir.

Rows= Satır demek zaten

Hocama teşekkürler,
Bir alt satır demekle listboxdaki 14.15.16. satırlardan 15.satırı sil dediğimde 14.satırı siliyordu.Sizin verdiğiniz kod aslında hatalı değilmiş,
-1 i +1 yapınca dproblem düzeldi.
Teşekkürler hocam..

 

[Ayhan Ercan]

Rica ederim.
İyi çalışmalar...