Ara ve Sil Makrosunun Çoklu Sütunlarda Kısaltması

[meslek5]

Aşağıda yer alan makroyu kısaltarak yapmak istenilen işlemi E ve N sütununa kadar olan sütunlar için tek makro satırıyla yapabilir miyiz?

Private Sub CommandButton1_Click() 'ARA VE SİL
On Error Resume Next
Set bul = Sheets("Sayfa1").Range("D322").Find(ListBox1, , xlValues, xlWhole)
If Not bul Is Nothing Then
adres = bul.Address
Do

Sheets("Sayfa1").Cells(bul.Row, "E") = Delete
Sheets("Sayfa1").Cells(bul.Row, "F") = Delete
Sheets("Sayfa1").Cells(bul.Row, "G") = Delete
Sheets("Sayfa1").Cells(bul.Row, "H") = Delete

Set bul = Sheets("Sayfa1").Range("D322").FindNext(bul)
Loop While Not bul Is Nothing And bul.Address <> adres
End If
End Sub

Örneğin "E:N" gibi

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki gibi olabilir fakat "Delete" nin ne olduğu da önemli
Deneyin.

Sheets("Sayfa1").range( "E" & bul.row & ":N" & bul.row) = Delete