KHMB قام بنشر يونيو 26, 2011 مشاركة قام بنشر يونيو 26, 2011 السلام عليكم ورحمة الله وبركاتة اشكر الاخ كيماس والذي رد علينا في نفس الموضوع ولكن بصيغة اخرى لم تفي بالغرض بالنسبة لنا حسب المرفق ترحيل.rar رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يونيو 27, 2011 الكاتب مشاركة قام بنشر يونيو 27, 2011 للرفـــع رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يونيو 27, 2011 الكاتب مشاركة قام بنشر يونيو 27, 2011 للرفـــع رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يونيو 28, 2011 الكاتب مشاركة قام بنشر يونيو 28, 2011 للرفع جزاكم الله خير رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يونيو 28, 2011 الكاتب مشاركة قام بنشر يونيو 28, 2011 للرفع بارك الله فيكم رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يونيو 29, 2011 الكاتب مشاركة قام بنشر يونيو 29, 2011 UP رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يونيو 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 رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يونيو 30, 2011 الكاتب مشاركة قام بنشر يونيو 30, 2011 السلام عليكم ورحمة الله مشكور ياأخي العيدروس الكود لايحذف صفحة (ورقة الصنف) المطلوب حذف صفحة(ورقة)الصنف ثم حذفة من قاعدة البيانات رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يوليو 2, 2011 الكاتب مشاركة قام بنشر يوليو 2, 2011 (معدل) السلام عليكم ورحمة الله طيب ماهو الكود في حالة حذف كل السجلات من قاعدة البيانات بموجب رقم الصنف تم تعديل يوليو 2, 2011 بواسطه KHMB رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يوليو 3, 2011 مشاركة قام بنشر يوليو 3, 2011 اخي جرب المرفق تحياتي ترحيل1.rar رابط هذا التعليق شارك More sharing options...
KHMB قام بنشر يوليو 3, 2011 الكاتب مشاركة قام بنشر يوليو 3, 2011 السلام عليكم ورحمة الله وبركاتة أخي عاجز عن الشكر جزاك الله خيراً كثيراً نعم هو المطلوب وسوف اعدل فية حسب متطلباتي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يوليو 3, 2011 مشاركة قام بنشر يوليو 3, 2011 بارك الله فيك استاذ عادل تقبل مروري تحياتي رابط هذا التعليق شارك More sharing options...
عادل حنفي قام بنشر يوليو 4, 2011 مشاركة قام بنشر يوليو 4, 2011 اخي alidroos بارك الله فيك مشكور علي مرورك الكريم تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.