Listview de silme sorunu

[ismail Menekşe]

Merhaba ,
Ekte sunulan zimmet proğramındaki listviewde kayıt silme işleminde istediğim satırı bir türlü silemiyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[Huseyinkis]

Merhaba ,
Ekte sunulan zimmet proğramındaki listviewde kayıt silme işleminde istediğim satırı bir türlü silemiyorum. Yardımlarınız için şimdiden teşekkür ederim.

Sil Tuşuna Bastığımda bende herhangi bir problem yapmadı maus ile tıklayıp sildiğinizde problem yok fakat yon tuşları ile seçerseniz kendini güncelleme yapmıyor ve yanlış veriyi siliyor.

 

[ismail Menekşe]

sayın hüseyinkis en son satırı seçip sil tuşu tıklandığında bir üsteki satırı siliyor.

 

[halit3]

Bu bölüme kırmızı renkli kodu ekleyiniz.
Verileriniz 3 satırdan başladığı için hep iki satır üsdeki veriyi silecektir

y = ListView1.SelectedItem.Index [COLOR=red]+ 2[/COLOR]

 

[halit3]

Birkaç yerdeki veriyi daha düzeltim.

Private Sub CommandButton5_Click()
y = ListView1.SelectedItem.Index + 2
sat = ListView1.ListItems(y)
x = ListView1.ListItems(y).ListSubItems(8).Text
cevap = MsgBox("Silmek istediğinizden emin misiniz?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Set sh = Sheets("liste")
sh.Rows(sat).Delete Shift:=xlUp
Set sh = Nothing
'Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 56).Address(False, False)).Delete Shift:=xlUp
MsgBox " " & TextBox1.Value & " İsimli Kayda ait Tüm Bilgiler Silinmiştir.", vbInformation
say = WorksheetFunction.CountA(Range("A3:A65536"))
For i = 3 To say
Cells(i, 1) = i - 2
Next i
End If
ListView1.ListItems.Clear
UserForm_Initialize
End Sub

UserForm_Initialize kodunun içindeki verilerlede ilgili

bunun yerine

.ListItems.Add , , s1.Cells(i, "A")

bunu denermisiniz.

.ListItems.Add , , i - 2

 

[ismail Menekşe]

Halit bey commandbutton_5 kodunu ekledikten sonra hata vermeye başladı

 

[halit3]

Halit bey commandbutton_5 kodunu ekledikten sonra hata vermeye başladı

dosyanı ekliyorum.

 

[ismail Menekşe]

halit bey gönderdiğiniz proğramda da aynı hatayı (run time error '35600' ) alıyorum.

 

[halit3]

dosyanız bende sorunsuz çalışıyor

 

[halit3]

hata aldığınız bölümün resmini ekleyi bir bakalım.

 

[ismail Menekşe]

resim gönderilmiştir

 

[halit3]

Bu aşamadan sonra debug düğmesini tıkla kodda sarı renkli satıra ait bölümün resmini gönder

 

[ismail Menekşe]

debug kodu ekte sunulmuştur

 

[halit3]

Hata alınan kodun üzerine mause ile gel y değeri neyi gösteriyor

tıpkı gönderdiği resim deki gibi

 

[ismail Menekşe]

Halit Bey en son satırdaki veriyi seçtiğm zaman hata veriyor.

 

[ismail Menekşe]

y değeri 1230

 

[halit3]

Halit Bey en son satırdaki veriyi seçtiğm zaman hata veriyor.

sıralama yaparken üçünçü satırda 1 den başlaması gerekirken 2 den başlıyor buda en son veride hata verir sıralamanızı yeniden yaparsanız doğru sonuç alacaksınız.

 

[ismail Menekşe]

Halit Bey Elinize ve emeğinize sağlık Teşekkürler... Sorunumuz Halledildi.

 

[halit3]

Sıra numaralarını doğru sıraladıktan sonra kodu bu şekilde denermisiniz.

Private Sub CommandButton5_Click()
y = ListView1.SelectedItem.Index
sat = ListView1.ListItems(y)
x = ListView1.ListItems(y).ListSubItems(8).Text
cevap = MsgBox("Silmek istediğinizden emin misiniz?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Set sh = Sheets("liste")
sh.Rows(sat + 2).Delete Shift:=xlUp
Set sh = Nothing
'Range(ActiveCell.Offset(0, -1).Address(False, False) & ":" & ActiveCell.Offset(0, 56).Address(False, False)).Delete Shift:=xlUp
MsgBox " " & TextBox1.Value & " İsimli Kayda ait Tüm Bilgiler Silinmiştir.", vbInformation
say = WorksheetFunction.CountA(Range("A3:A65536"))
For i = 3 To say
Cells(i, 1) = i - 2
Next i
ListView1.ListItems.Clear
UserForm_Initialize
End If

End Sub