Silme makrosunda hata

[orkuncan5]

Silme kodunu düzenleyemedim nerede hata yaptığımı anlayamadım.Siliyorum ama değerler karışıyor.

 

[Ömer]

Silme kodunu düzenleyemedim nerede hata yaptığımı anlayamadım.Siliyorum ama değerler karışıyor.

Merhaba,

İşaretlediğim komutları neden kullandınız.

Private Sub CommandButton6_Click()
y = ListView1.SelectedItem.Index
sat = ListView1.ListItems
x = ListView1.ListItems.ListSubItems(3).Text
cevap = MsgBox("Silmek istediğinizden emin misiniz?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then
Set sh = Sheets("sayfa2")
sh.Rows(sat).Delete Shift:=xlUp
Set sh = Nothing
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
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
ListView1.ListItems.Clear
UserForm_Initialize
End If
End Sub

.

 

[orkuncan5]

Sağolun yeni konular öğrenirken dikkat etmekte fayda var.