Satır silme işlemi yapılırken belirli sütunların silinmesi.

[cemal42]

Private Sub CommandButton4_Click() 'sil'
Dim sat, sira, temizle As Long
If ListBox1.ListIndex < 0 Then
MsgBox "Listeden Silinecek Veriyi Seçmediniz", vbCritical, " UYARI"
Exit Sub: End If
sor = MsgBox("Seçilen Veriyi silmek İstediğinizden Emin misiniz?", vbCritical + vbYesNo, "UYARI")
If sor = vbNo Then Exit Sub
For sat = 2 To Cells(1048576, "A").End(xlUp).Row
If Cells(sat, "A") Like ListBox1.Column(0) Then
Cells(sat, "A").EntireRow.Delete Shift:=xlUp
End If: Next
For sira = 2 To Cells(1048576, "B").End(xlUp).Row
ActiveSheet.Cells(sira, "A") = sira - 1
Next
End Sub

Bu kod ile seçilen satır siliniyor. Seçilen satır silinirken sadece B:AZ sütunları silinsin AZ'den sonraki sütunlarda silme işlemi yapılmasın. Mümkünse düzenleme yapabilirseniz sevinirim. Teşekkürler.

 

[Orion1]

For sat = 2 to Cells(1048576, "A").End(xlUp).Row -1
Cells(sat, "A").EntireRow.Delete Shift:=xlUp

yukarıdaki satırı aşağıdaki ile değiştiriniz.

For sat = Cells(1048576, "A").End(xlUp).Row to 2
range("B" & sat & ":AZ" & sat).EntireRow.Delete Shift:=xlUp

 

[cemal42]

Dosyayı ekledim. Örnek olarak silme işlemi seçilen satırın B:J sütunları arası yapılabilir. Teşekkürler