كود لحذف أسطر بناء على قيمة خلية

[يوسف السيد]

السلام عليكم :

اريد كود لحذف اسطر فى ورقة اعتمادا على قيمة خلية فى ورقة اخرى

حذف اسطر.rar

[أبو حنــــين]

السلام عليكم

جرب هذا الكود

Sub sDelete()


LR = ورقة2.[B1000].End(xlUp).Row
For i = LR To 4 Step -1
If ورقة.Cells(i, 2) = ورقة1.Range("D3") Then
ورقة2.Rows(i).Delete Shift:=xlUp
End If
Next

End Sub

[يوسف السيد]

الكود راااائع ويحقق المطلوب بنجاح

جزاك الله خيرا استاذى الفاضل

[أبو حنــــين]

الحمد لله