seçili satırı sildirmek

[dogan_yigit]

arkadaşlar selam;
elimde listboxta seçilen satırdaki bilgileri temizleyen bir makrom var elimde ben bunu seçili olan satırı komple sildirmek istiyorum yardımlarınızı bekliyorum
saygılar, kolay gelsin herkeslere

Application.ScreenUpdating = False
ONAY = MsgBox("Seçtiğiniz kayıdı silmek istediğinize emin misiniz?", vbExclamation + vbYesNo, "Dikkat !")
If ONAY = vbYes Then
Sheets("TABLO").Select
If Sheets("TABLO").Range("B9").Value = Empty Then Exit Sub
Satır = UserForm4.ListBox1.ListIndex + 9
Adres = "B" & Satır & "" & Satır
Range(Adres).ClearContents
Range("B965536").Sort Key1:=Range("C9"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
For Hücre = 2 To Sheets("TABLO").Range("B65536").End(xlUp).Row
If Cells(Hücre, 2).Value = "" Then Exit Sub
If Cells(Hücre, 2).Value <> "" Then
Cells(Hücre, 1).Value = Hücre - 1
End If
Next
Range("B9").Select
ListBox1.ListIndex = -1
Call Formu_Temizle
Call UserForm_Initialize
Else
ListBox1.ListIndex = -1
Call Formu_Temizle
Call UserForm_Initialize
End If
Application.ScreenUpdating = True

 

[Korhan Ayhan]

Selamlar,

Satır = UserForm4.ListBox1.ListIndex + 9
Adres = "B" & Satır & "" & Satır
Range(Adres).ClearContents

Yukarıdaki satırları aşağıdaki şekilde değiştirin.

Satır = UserForm4.ListBox1.ListIndex + 9
Rows(Satır).Delete

 

[dogan_yigit]

SAĞOLASIN
teşekkür ettim
eline koluna sağlık