حذف صف بكاملة حسب رقم الصنف

[KHMB]

السلام عليكم زرحمة الله وبركاتة

كيف استطيع حذف الصنف (اي الصف بكاملة حسب رقمة)

جزاكم الله خيراً

Book1.rar

تم تعديل يونيو 26, 2011 بواسطه KHMB

[عبد الفتاح كيرة]

تفضل

Sub DelRo()

On Error Resume Next

myro = InputBox(أدخل رقم الصف المراد حذفه :  :")

Rows(myro + 1).Delete

End Sub

حذف صف kemas.rar

[KHMB]

شكرا اخي كيماس على سرعة ردكم

جزاك الله خير

ولكــــــــــــــن

برقم الصنـــــــــف (ITEM CODE) وليس رقم الصف

مثال رقم الصنف PK 304 O E في الصف 13

[عبد الفتاح كيرة]

معذرة

نقطة تفرق كثير

تفضل

Sub DelRo()

On Error Resume Next

myro = InputBox("ÃÏÎá ÑãÒ ÇáÕäÝ  :")

wheremyitem = Application.WorksheetFunction.Match(myro, Sheets(1).Range("itemc"), 0)

Rows(wheremyitem + 1).Delete

End Sub

حذف صنف kemas.rar

[KHMB]

بارك الله فيك