KHMB قام بنشر يونيو 26, 2011 قام بنشر يونيو 26, 2011 السلام عليكم ورحمة الله وبركاتة اشكر الاخ كيماس والذي رد علينا في نفس الموضوع ولكن بصيغة اخرى لم تفي بالغرض بالنسبة لنا حسب المرفق ترحيل.rar
الـعيدروس قام بنشر يونيو 30, 2011 قام بنشر يونيو 30, 2011 السلام عليكم اخي الفاضل في هذا الكود سوف يتم حذف الصنف من كل الاوراق انشاء الله يفي بالغرض Option Explicit Sub DeleteOnAllSheets() Dim ws As Worksheet Dim MatchWhole As Long Dim MyStr As String Dim strFIND As Range MyStr = Application.InputBox("ÇÏÎá ÇáÕäÝ ÇáãÑÇÏ ÍÐÝå ãä ßáÇ ÇáÇæÑÇÞ?", _ "ÈÍË Úä ÕäÝ", "123", Type:=2) If MyStr = "False" Or MyStr = vbNullString Then Exit Sub If MsgBox("åá ÇäÊ ãÊÃßÏ ãä ÇáÍÐÝ?" & vbLf & _ "(Ýí ÍÇáÉ ÚÏã ÇáÍÐÝ ÇÖÛØ ÒÑ áÇ", _ vbYesNo, "ÊÃßíÏ ÇáÍÐÝ?") = vbYes Then MatchWhole = 1 Else MatchWhole = 2 End If On Error Resume Next For Each ws In Worksheets Do Set strFIND = ws.Cells.Find(MyStr, LookIn:=xlValues, LookAt:=MatchWhole) If Not strFIND Is Nothing Then strFIND.EntireRow.Delete xlShiftUp Else Exit Do End If Loop Next ws End Sub السلام عليكم alidroos.ترحيل.rar
KHMB قام بنشر يونيو 30, 2011 الكاتب قام بنشر يونيو 30, 2011 السلام عليكم ورحمة الله مشكور ياأخي العيدروس الكود لايحذف صفحة (ورقة الصنف) المطلوب حذف صفحة(ورقة)الصنف ثم حذفة من قاعدة البيانات
KHMB قام بنشر يوليو 2, 2011 الكاتب قام بنشر يوليو 2, 2011 (معدل) السلام عليكم ورحمة الله طيب ماهو الكود في حالة حذف كل السجلات من قاعدة البيانات بموجب رقم الصنف تم تعديل يوليو 2, 2011 بواسطه KHMB
KHMB قام بنشر يوليو 3, 2011 الكاتب قام بنشر يوليو 3, 2011 السلام عليكم ورحمة الله وبركاتة أخي عاجز عن الشكر جزاك الله خيراً كثيراً نعم هو المطلوب وسوف اعدل فية حسب متطلباتي
عادل حنفي قام بنشر يوليو 4, 2011 قام بنشر يوليو 4, 2011 اخي alidroos بارك الله فيك مشكور علي مرورك الكريم تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.