الـعيدروس

السلام عليكم الاساتذه الافاضل لدي تعريف مدى ديناميكي اريد تحويله الى كود او صياغته عن طريق كود =OFFSET(ورقة3!$A$2:$AZ$2;0;0;COUNTA(ورقة3!$B:$B)+1;52)

السلام عليكم الاستاذه الافاضل احمد فضيله ويحياوي حفظكم الله ملفات عمليه وقيمة جعلها الله في ميزان حسناتكم

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

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

السلام عليكم الاستاذ القدير بن عليه بارك الله فيك وفي اهلك ومالك واولادك قول امين

السلام عليكم الاخوة الافاضل حاولت اعمل كود اخفاء اطار الاوراق اتفاجئ انه لم تظهر الشيتات من اساسها فأرجو استعادة الاعدادت السابقة ssss.rar

السلام عليكم سلمت يمناك استاذ محمد طاهر على الملف القيم تقبل مروري والسلام عليكم

السلام عليكم الاستاذ القدير احمد زمان هكذا الدروس وإلا فلا جزاك الله كل كل خير يعمل 100 % والسلام عليكم

السلام عليكم الاستاذ الفاضل احمد زمان لدي مشكلة في معادلة رقم العمود الذي به التاريخ المحدد لم تظهر رقم العمود من تاريخ 1/11/1432 الى 9/11/1432 علما ان التاريخ موجود في شيت الجدول و تاريخ 10 / 11 /1432 ومافوق يظهره اين بيت الداء جزاكم الله خيرا وهذا المرفق وعليه التاريخ ggg.rar

السلام عليكم الاستاذ طارق محمود حل جميل جدا بارك الله فيك وزادك من علمه

السلام عليكم سلمت الانامل اخي ياسر التي نثرت هذا الرد انشاء الله تكون استفدت من الملف وفقك الله

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

السلام عليكم استاذ احمد يظهر خطاء في الرساله MsgBox " التاريخ المطلوب لإتمام العملية غير متوفر حاليا" & ch(10) & " لم يتم حفظ البيانات " في هذا الجزء & ch(10) & هذا نمط الرساله sub or function not defined فرعية او وظيفة غير محددة

استاذ احمد عند عدم توفر التاريخ في شيت الجدول يظهر وجود خطاء في السطر التالي TS.Cells(tr, TC) = FS.Cells(FR, 5)

بارك الله فيك استاذ احمد

السلام عليكم الاستاذ القدير احمد زمان حل مختصر وجميل جداً والكود سلس ومختصر ومثل ماتفضلت المعادلات اعتمد عليها كثيرا زادك الله من علمه وفضله مافي اليد غير الدعاء لك في ظهر الغيب طلب اضافي من كرم عطائكم شرح لجزئية الكود التاليه Set FS = Sheets("ÝÊÑÉ ÕÈÇÍíÉ") Set TS = Sheets("ÇáÌÏæá") وارجو عمل شرط عند عدم حصوله على التاريخ في شيت الجدول يظهر رساله ويوقف امر الكود والله يعيننا على رد جمايلكم والسلام عليكم

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

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

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

وعليكم السلام تسلم على الملحوظة القيمة استاذ احمد سوف اقوم بعمل مااتكرمت وارفقه وانت من اهل الخير

السلام عليكم الاخوة والاساتذة الكرام ارجو عمل كود ترحيل وقت حضور موظف كما هو في المرفق من شيت فترة صباحية - فترة مسائية الى شيت الجدول كود ترحيل فترة صباحية وكود ترحيل للفترة المسائية موضح المطلوب على المرفق من فترة وانا ابحث عن ملف شبيه للفكرة ولم اجد فقمت بعمل جزء من الملف وتبقى فكرة الترحيل ارجو من لدية فكرة تصميم حساب الوقت في شيت الجدول كي يسهل عمل كود الترحيل من كلا الفترات الى شيت الجدول لاني ارى فيها صعوبة كتابة كود لتباعد الاسطر بين الفترة والفترة وايضا وجود معادلات بعد كل فترة لحساب الوقت والسلام عليكم ترحيل حضور يومية موظف1.rar

السلام عليكم اشكرك استاذ احمد على سرعة الرد اذا نفتح موضوع جديد اشكرك مجدداً استاذي الفاضل

السلام عليكم سلمت الانامل استاذ احمد ابو عبدالله ولاكن استاذي الفاضل انا لم افهم كيفية صياغة اكواد الترحيل مثلا انا لدي ملف حضور موظفين بالوقت في ورقة واريد ترحيل البيانات الى ورقة اخرى وهيا عبارة عن جدول حساب الوقت ومكون من 30 يوم مثلا حضور صباحي وحضور مساء فترة الصباح تترحل لصف الموظف الاول وفترة المساء تترحل لصف الثالث بمعنى الترحيل كالاتي 1 - ترحيل فترتين (فترة صباحية - فترة مسائية) 2 - ترحيل حسب تاريخ اليوم يعني مثل هذا العمل يحتاج الى الغوص عميقا في اكواد الترحيل وانا مبتدئ جدا في مجال الاكواد وعلى العموم انا اذا طرحت الملف في المنتدى الكل بيفيدنا ماشاء الله عليهم نوابغ الله يزيدهم ومانريده فهم الية الكود بمعنى سطر الكود الاول والسطر الذي يليه شرح السطر السابق ارجو ان يكون كتابة الاكواد بهذا الشكل كي يستفيد الجميع استاذي الفاضل ابو عبدالله ارفق لك ملفي هنا وارجو الاطلاع عليه وكيف يمكن عمل كود للاليه التي تتناسب مع ملفي بمعنى المهم جدا هو الفكره المختصره كيف ستكون ارجو من الجميع التفاعل والعذر والسموحة على الاطاله ومنكم نستفيد ترحيل حضور يومية موظف.rar

السلام عليكم هذا كود رسالة ترحيب مع تاريخ اليوم هجري وميلادي هذا لقراءة الكود عند فتح المصنف Private Sub Workbook_Open() Call MACRO15 End Sub وهذا هو الكود Sub MACRO15() Dim thedate As String, thetime As String, greeting As String, fullname As String, firstname As String, ali As String Dim spaceinname As Integer, abood As String, alidroos As String, MY As String, thkr As String, thedat As String VBA.Calendar = vbCalGreg thedat = Format(Date, "long date") VBA.Calendar = vbCalHijri thedate = Format(Date, "long date") thetime = Format(Time, "medium time") abood = "التـاريخ هجري" ali = "التاريخ ميلادي" alidroos = "السـاعه" thkr = "لاتنسـى ذكــر الله" MY = "مع تحيـات أبو نصـار maicl2010ye@gmail.com" Select Case Time Case Is < TimeValue("12:00"): greeting = "السـلام عليكم صبــاح الخير" Case Is >= TimeValue("12:00"): greeting = "السـلام عليكم مســاء الخير" Case Else: greeting = "تصبح على خير" End Select fullname = Application.UserName spaceinname = InStr(1, fullname, "", 1) If spaceinname = 0 Then spaceinname = Len(fullname) firstname = Left(fullname, spaceinname) greeting = greeting MsgBox abood & thedate & vbNewLine & "=====================" & vbNewLine & vbCrLf & ali & thedat & vbNewLine & "=====================" & vbNewLine & vbCrLf & alidroos & thetime & vbNewLine & "=====================" & vbNewLine & vbCrLf & thkr & vbNewLine & "=====================" & vbNewLine & vbCrLf & MY & vbNewLine & "====================================" & vbNewLine, vbInformation, greeting End Sub وهذا المرفق والسلام عليكم كود رسالة ترحيب (التاريخ-الوقت-ملاحظات اخرى).rar

السلام عليكم بعد اذن الاستاذ احمد المجرب اخي الفاضل عندك هذا السطر حدث TextBox5 Private Sub TextBox5_Change() Me.TextBox5.Value = Format(Me.TextBox5.Value, "yyyy/mm/dd") End Sub كان محدد صيغتة كتاريخ فتم الغائه ارجو ان يكون اتضح السبب والسلام عليكم