KHMB قام بنشر يونيو 26, 2011 قام بنشر يونيو 26, 2011 (معدل) السلام عليكم زرحمة الله وبركاتة كيف استطيع حذف الصنف (اي الصف بكاملة حسب رقمة) جزاكم الله خيراً Book1.rar تم تعديل يونيو 26, 2011 بواسطه KHMB
عبد الفتاح كيرة قام بنشر يونيو 26, 2011 قام بنشر يونيو 26, 2011 تفضل Sub DelRo() On Error Resume Next myro = InputBox(أدخل رقم الصف المراد حذفه : :") Rows(myro + 1).Delete End Sub حذف صف kemas.rar
KHMB قام بنشر يونيو 26, 2011 الكاتب قام بنشر يونيو 26, 2011 شكرا اخي كيماس على سرعة ردكم جزاك الله خير ولكــــــــــــــن برقم الصنـــــــــف (ITEM CODE) وليس رقم الصف مثال رقم الصنف PK 304 O E في الصف 13
عبد الفتاح كيرة قام بنشر يونيو 26, 2011 قام بنشر يونيو 26, 2011 معذرة نقطة تفرق كثير تفضل 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.