𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

انا حاولت اضيف الملف لان الملف القديم الخارجي كما ذكرت سابقا يوم الخميس انه غير مطابق اشتغلت علشان يكون مطابق واذا اردت الملف الخارجي اتفضل ومعذرة لك كروت دوام يناير 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 موظف وحفظهم لطباعتهم

هذا ما اريده بعد الانتهاء من الادخال يقوم بحفظ البطاقة في ورقة الارشفة بشكل تلقائي وهكذا مع كل موظف