سلام با کد زیر میتونید ایتم هایی که مدنظرتون هستن رو پیدا و تغییرات موردنظر رو اعمال میکنه
در قسمت آبی کدی که وقتی شرط صحیح بود اعمال بشه رو اجرا میکنه
کد:
SUB TESTSheet8.Select
Last = Cells(Rows.Count, "B").End(xlUp).Row
For i = Last To 1 Step -1
If (Cells(i, "B").Value) = ComboBox4.Text Then
[COLOR=#0000ff] Cells(i, "B").EntireRow.Delete[/COLOR]
End If
Next i
End sub[FONT=tahoma][/FONT]
در قسمت آبی کدی که وقتی شرط صحیح بود اعمال بشه رو اجرا میکنه