Listview sil kodu hatası

[vardar07]

Merhaba .Arkadaşlar listview de seçilen satırı (excelden) silmek için aşağıdaki kodu kullanmak istedim fakat ya bir önceki yada bir sonraki satırı siliyor.Daha iyi bir kod varmı, yada ne gibi bir değişiklik yapmak lazım.

Sub Delete() 
    y = ListView1.SelectedItem.Index
    x = ListView1.ListItems(y).ListSubItems(4).Text 'burada 4 sayısı listview deki
                                                    'sütunlardan bir sonrakini alıyor
    Respond = MsgBox("Silmek istediğinizden emin misiniz?", vbYesNo, "SİLME ONAYI")
    If Respond = vbYes Then
      Set sh = ActiveSheet
      sh.Rows(x).Delete
  End If
End Sub

 

[Orion1]

deneyiniz.

sh.Rows([B][COLOR="Red"]y[/COLOR][/B]).Delete

 

[vardar07]

deneyiniz.

sh.Rows([B][COLOR="Red"]y[/COLOR][/B]).Delete

Sayın Orion1 desteğiniz için teşekkürler ancak belirtmiş olduğunuz yeri değiştirip denedim yine bir önceki satırı silmekte. Dosyada inceleme şansınız varsa memnun olurum.

 

[Orion1]

Calendar nesnesini kaldırdım.Bende hata verdi.
İnitalize olayındada calendar nesnesine ait kodları pasif ettim.
Onları tekrar gözden geçiriniz.
Listview çalışmassa o listviewi silip yeniden bir listview1 ekleyiniz.
sayfalarda bazı yerlerde silme işlemi uyguladım.Bilginize.
Dosyanız ektedir.

 

[vardar07]

Eline koluna sağlık teşekkürler.