Beli Verileri Silme

[Seyit Tiken]

Selamün Aleyküm,
Arkadaşlar aşağıdaki kodla, ilgili satırdaki "Ali" verilerini silebiliyoruz. Burada yapmak istediğim
"Ali"'leri ve onun solundaki ve sağındaki verileri silmek. Örneğin, B sütunundaki "Ali" satırları silindiğinde
A ve C satırlarıda silinsin. Onun için kodta nasıl revize yapılması lazım?, teşekkür ediyorum, Allah razı olsun.

For s = [b6500].End(3).Row To 1 Step -1
If Range("b" & s) = "Ali" Then Range("b" & s) = ""
Next

 

[Huseyinkis]

Ekteki gibi denermisiniz.

For s = [b6500].End(3).Row To 1 Step -1
If Range("b" & s) = "Ali" Then Range("a"&s&":C" & s) = ""
Next

 

[Seyit Tiken]

Hüseyin bey teşekkür ediyorum, Allah razı olsun.