𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

انا حاولت اضيف الملف لان الملف القديم الخارجي كما ذكرت سابقا يوم الخميس انه غير مطابق اشتغلت علشان يكون مطابق واذا اردت الملف الخارجي اتفضل ومعذرة لك كروت دوام يناير 2025.xlsx

شكرا لاهتمامك أبوعيد مرفق الملف واعذرني على التأخير بسبب ظروف العمل خارج المكتب كارت دوام.xlsx

شكرا أبوعيد التعديل في عند جلب البيانات من البرنامج الخارجي اريد ان يكون رأسي وليس افقى

انا لا اقصد انشاء فورم كامل بالازرار او مربعات النصوص او الليست بوكس وخلافه وجدت هذا الكود وانا اقوم بالبحث Sub CreateDynamicUserForm() Dim months As Variant Dim selectedMonths As String Dim i As Integer ' قائمة بأسماء الأشهر months = Array("يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", _ "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") ' إنشاء نموذج المستخدم ديناميكيًا Dim frm As Object Set frm = CreateObject("MSForms.UserForm") With frm .Caption = "اختيار الأشهر" .Width = 300 .Height = 300 End With ' إضافة ListBox لعرض الأشهر Dim lstBox As Object Set lstBox = frm.Controls.Add("Forms.ListBox.1") With lstBox .Name = "lstMonths" .Left = 20 .Top = 20 .Width = 250 .Height = 200 .MultiSelect = fmMultiSelectMulti ' السماح باختيار عدة أشهر End With ' إضافة الأشهر إلى ListBox For i = LBound(months) To UBound(months) lstBox.AddItem months(i) Next i ' إضافة زر "موافق" لتأكيد الاختيار Dim btnOK As Object Set btnOK = frm.Controls.Add("Forms.CommandButton.1") With btnOK .Caption = "موافق" .Left = 50 .Top = 230 .Width = 80 .Height = 30 .OnAction = "ConfirmSelection" End With ' إضافة زر "إلغاء" لإغلاق النافذة Dim btnCancel As Object Set btnCancel = frm.Controls.Add("Forms.CommandButton.1") With btnCancel .Caption = "إلغاء" .Left = 170 .Top = 230 .Width = 80 .Height = 30 .OnAction = "CancelSelection" End With ' تعريف المتغيرات للتعامل مع الأحداث Dim isCancelled As Boolean isCancelled = False ' عرض النموذج frm.Show ' التحقق مما إذا تم الضغط على "إلغاء" If isCancelled Then MsgBox "تم إلغاء العملية.", vbInformation Exit Sub End If ' جمع الأشهر المختارة من ListBox selectedMonths = "" For i = 0 To lstBox.ListCount - 1 If lstBox.Selected(i) Then If selectedMonths = "" Then selectedMonths = lstBox.List(i) Else selectedMonths = selectedMonths & "," & lstBox.List(i) End If End If Next i ' عرض الأشهر المختارة If selectedMonths = "" Then MsgBox "لم يتم اختيار أي شهر.", vbExclamation Else MsgBox "الأشهر المختارة: " & selectedMonths, vbInformation End If End Sub ' كود الحدث لزر "موافق" Sub ConfirmSelection() Dim userForm As Object Set userForm = VBA.UserForms(0) userForm.Hide End Sub ' كود الحدث لزر "إلغاء" Sub CancelSelection() Dim userForm As Object Set userForm = VBA.UserForms(0) isCancelled = True userForm.Hide End Sub

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

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

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

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

2 اذا كانت البيانات تاتيك من مواقع مختلفة كل شهر (وليس كل يوم) فمن الافضل ان نجعل برنامجك هو الذي ياخذ البيانات الخارجية ويضعها في برنامجك بدون تدخل منك ثم تقوم بطباعتها وترحيلها

البيانات تأتي من الموقع واقوم بتسجيلها لو السؤال خاص ببيانات الموظفين اقوم بتسجيلها طبقا للعمل ومواقع العمل فلدي اكثر من 15 موقع عمل

بالفعل اخي بنهاية كل شهر ساقوم بادخال حضور 200 موظف ما هي الطريقة الاسهل

الادخال هيكون شهري بنهاية كل شهر لجميع الموظفين يعني لو افترضنا ان هناك 200 موظف فانا احتاج لادخال حضور وانصراف 200 موظف وحفظهم لطباعتهم

البيانات في الورقة الثانية فقط قاعدة البيانات بطاقة العمل يتم احضار البيانات من الورقة الثانية فقط قاعدة البيانات

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

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

شكرا لك ا. محمود بارك الله فيك

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

السلام عليكم ورحمه الله وبركاته كل عام وانتم بخير احتاج مساعد في الملف المرفق اريد تقسيم الموظفين بناء على التاريخ في العمود J الى ورقة عمل جديدة تحتوى على اشهر السنة وان يضع كل موظف تاريخ انتهاء العقد الخاص به طبقا للشهر اريد ان يتم إنشاء ملف جديد يحتوى على 12 شهر ( ورقه عمل ) وان يكون هناك ورقة عمل اسمها ملخص يذكر فيه اجمالي الموظفين لكل شهر وشكرا لكم العقود.xlsx

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

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

شكرا ا. محمد على اهتمامك جزاك الله كل خير وزادك من علمه

في حالة وجد تطابق اسم الموظف ورقم البطاقة متابشهين والاختلاف فقط في العقد يتم نقل المجلد من مجد عقد مؤقت الى مجلد عقد ثابت

السلام عليكم ورحمه الله وبركاته كل عام وانتم بالخير بمناسبة الاسراء والمعراج محتاج مساعدة بالاكواد في الملف المرفق اعزكم الله اريد إنشاء مجلدات لعدد من الموظفين ا- يكون اسم المجلد رقم البطاقة واسم الموظف ولا يسمح بتكرار المجلد للموظف الواحد 2- ان يتم إنشاء مجلد باسم العقد سواء ثابت او مؤقت 3- يتم ترحيل مجلد الموظف داخل مجلد العقد بمعنى اذا وجد الموظف العقد ثابت يتم إنشاء الفولدر داخل مجلد ثابت ومثله في المؤقت واتمنى لكم سنة سعيدة باذن الله عقود.xlsb

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