عبدالله باقشير

السلام عليكم ورحمة الله وبركاته حفظك الله اخي عبد الله المجرب تفهم ما في نفسي وما اريده جزاك الله خيرا وقد رايت للرفع رفع الله مقامكم لم نبدا بعد في الموضوع عليكم بالصبر وعلى الله التوفيق تقبلوا تحياتي وشكري

السلام عليكم جزاك الله خيرا وبارك الله فيك :fff: :fff: تقبل تحياتي وشكري

السلام عليكم حركة جميلة تضحك السن اضحكك الله في الدنيا والآخرة وحركة ذكية جدا جدا :clapping: تقبل تحياتي وشكري

السلام عليكم ورحمة الله وبركاته الشكر واصل للحبيب ابو انصار نفس الاكواد المستخدمة اعلاه وضعتها في موديل آخر (ليس موديل حدث ThisWorkbook) دخول وخروج للورك بوك Sub Auto_Open() With Application .ActiveWindow.DisplayHeadings = False .DisplayFormulaBar = False .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" End With End Sub هذا الكود سيستخدم اتوماتيكيا عند الضغط على اكس الخروج وايضا ممكن تربطه بزر آخر Sub Auto_Close() With Application .ActiveWindow.DisplayHeadings = True .DisplayFormulaBar = True .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",TRUE)" .Workbooks(ThisWorkbook.Name).Save .Quit End With End Sub جرب انا لم اضيف شي هذه اكوادكم ردت اليكم ودمتم في حفظ الله

السلام عليكم قبل ان اجري اي تعديلات اريد ان اعرف اين وصلت انا في هذا الموضوع http://www.officena.net/ib/index.php?showtopic=20794 حتى اتذكر الموضوع تمام ودمتم في حفظ الله

الاخ الفاضل/ عبدالله ______________حفظه الله الاخ الفاضل/ محمدي__________حفظه الله الاخ الفاضل/ mhrrd _______________حفظه الله الاخت الفاضلة/ saffaa _____________حفظه الله الاخ الفاضل/ الشهابي _________حفظه الله الاخ الفاضل/ alyfahem ___________حفظه الله الاخ الفاضل/ نادر ____________________حفظه الله الاخ الفاضل/ asdhamdey____________________حفظه الله الاخ الفاضل/ islam11____________________حفظه الله الاخ الفاضل/ asneet____________________حفظه الله الاخ الفاضل/ جلال ____________________حفظه الله الاخ الفاضل/ مجدي يونس ____________________حفظه الله جزاكم الله خيراً تقبلوا تحياتي وشكري عبدالله باقشير

الله يسلمك اخي نادر تفضل اعمل به ماشئت حلالا بلالا تقبل تحياتي وشكري

الاخ الفاضل/ محمدي__________حفظه الله الاخ الفاضل/ asneet___________حفظه الله الاخ الفاضل/ mhrrd _______________حفظه الله الاخ الفاضل/ saffaa _____________حفظه الله الاخ الفاضل/ حسن محمدسليم عبدالحميد_________حفظه الله الاخ الفاضل/ alyfahem ___________حفظه الله الاخ الفاضل/ نادر ____________________حفظه الله الاخ الفاضل/ edkawy _____________حفظه الله الاخ الفاضل/ جلال__________حفظه الله الاخ الفاضل/ احمد ___________حفظه الله جزاكم الله خيراً تقبلوا تحياتي وشكري خبور خير

الاخ الفاضل/أحمد البحيرى

اخي ابو احمد حفظك الله تقبل تحياتي وشكري

السلام عليكم اخي الحبيب أبوأنس ناصر حاجب (اليافعي) حفظك ربي وتقبل دعائك وجزاك خيرا آمــــــــــــــــــــين تقبل تحياتي وشكري

السلام عليكم اخي الحبيب الشهابي الله ينورك بالعلم النافع اخي ابو انس حفظك ربي وجزاك خيرا الكود المستخدم : Sub kh_Filter() With Sheets("Filter") .Activate .Range("J2").Value = "*" & [Grit] & "*" .Range("J1:J2").Name = "Criteria" .Range("B5:H5").Name = "Extract" End With Range("Listfilter").AdvancedFilter xlFilterCopy, Range("Criteria"), Range("Extract") End Sub تفضل المرفق 2003 مستودع.rar

اخي الجزيرة حفظك ربي تقبل شكري وتقديري

السلام عليكم الرقم السري لكنترول المدارس اصدار معدل الاكواد داخل موديل الورقة لسهولة النسخ وفورم واحد فقط يمكنك نسخه الى ملفك ويمكنك تغيير المعطيات بداية كود الفورم '======================================= '======================================= ''''''''اول صف في نطاق المجموعات Private Const GrobAddres As String = "B9:J9" ''''''''اول صف في نطاق رقم الجلوس والرقم السري Private Const SeatAddres As String = "N9:O9" ''''''''كلمة المرور Private Const MyPassword As String = "123" '======================================= '======================================= الجدول اضيفت اليه بعض الاعمدة شاهد الصورة المرفق 2003/2007 الرقم السري لكنترول المدارس اصدار معدل.rar الجدول السابق رابط الاصدار السابق http://www.officena....showtopic=40545 ودمتم في حفظ الله

حفظك ربي تقبل شكري وتقديري

تم تعديل العنوان

اضغط ALT+F11 CTRL+R حتلاقيه في ملف الموديل موديل1

السلام عليكم استخدم احرف البدل في التصفية ------------------------------------------------------------------------------------- أحرف البدل يمكن استخدام أحرف البدل التالية كمعايير مقارنة لعوامل التصفية وعند البحث عن محتوى واستبداله. استخدم للبحث عن ؟ (علامة استفهام) أي حرف مفرد على سبيل المثال، يتم العثور على "سمير" و"سفير" عند كتابة س؟ير. * (علامة نجمية) أي عدد من الأحرف على سبيل المثال، يتم العثور على "شمال شرق" و"جنوب شرق" عند كتابة *شرق ~ (تيلدا) متبوعة بـ ؟، أو *، أو ~ علامة استفهام، أو علامة نجمية، أو تيلدا على سبيل المثال، يتم العثور على "حر91؟" عند كتابة حر91~؟ -------------------------------------------------------------------------------

السلام عليكم تفضل المرفق 2003 Newl.rar

اخي الحبيب جمال الفار حفظه الله اكرمك الله ورفع قدرك وجزاك خيرا تقبل تحياتي وشكري

السلام عليكم عملنا دالة بكود ادناه لاستخلاص التاريخ الهجري من النص وتحويله الى ميلادي Option Explicit Function kh_HijToMilady(Textdate As String) Dim dt As String Dim kh_Calendar As Integer dt = Trim(Mid(Textdate, InStr(Textdate, " "), 255)) dt = Replace(dt, "هـ", "") kh_Calendar = Calendar Calendar = vbCalHijri If IsDate(dt) Then kh_HijToMilady = CDate(dt) Calendar = kh_Calendar End Function شاهد المرفق2003 تحويل التاريخ الهجري الى ميلادي.rar