كل الانشطه

أنظرهنا .. ستجد الحل في هذا الموضوع ... 🙂

لدي هذا الكود و يعمل بشكل جيد ساعدني به الأساتذة هنا يعمل من شيت الطباعة و يرحل المعلومات إلى شيت الأرشيف و يعيد قفل الشيت ما أحتاجه هو أن يبقى يقفل الشيت و لكن أن يبقي الفلترة مسموحة أرجو المساعدة هذا هو الكود Sub CopyPrintClear() Dim wsArchive As Worksheet Dim wsPrint As Worksheet Dim lastRow As Long Dim copyRange As Range Dim rowCount As Long Dim i As Long Dim Password As String Password = "KHORSHEED.OMAR.2025" ' تعيين الشيتات Set wsPrint = ThisWorkbook.Sheets("طباعة") Set wsArchive = ThisWorkbook.Sheets("أرشيف") ' التحقق من الخلايا المطلوبة requiredCells = Array("A2", "F2", "F3", "C18") isIncomplete = False For Each cell In requiredCells If Trim(wsPrint.Range(cell).Value) = "" Then isIncomplete = True Exit For End If Next cell If isIncomplete Then MsgBox "الملف غير كامل. يرجى تعبئة جميع الخلايا المطلوبة.", vbExclamation Exit Sub End If ' رسالة تأكيد If MsgBox("هل تريد تنفيذ العملية؟", vbYesNo + vbQuestion, "تأكيد") = vbNo Then Exit Sub End If wsArchive.Unprotect Password:=Password ' تحديد نطاق النسخ Set copyRange = wsPrint.Range("A6:G15") rowCount = copyRange.Rows.Count ' تحديد أول صف فارغ في شيت الأرشيف lastRow = wsArchive.Cells(wsArchive.Rows.Count, "B").End(xlUp).Row + 1 ' نسخ الجدول بالكامل إلى الأرشيف wsArchive.Range("A" & lastRow).Resize(rowCount, 5).Value = copyRange.Value ' نسخ C18 إلى العمود F في كل صف من الصفوف المنسوخة wsArchive.Range("F" & lastRow & ":F" & lastRow + rowCount - 1).Value = wsPrint.Range("C18").Value ' نسخ B3 إلى العمود J في كل صف من الصفوف المنسوخة wsArchive.Range("J" & lastRow & ":J" & lastRow + rowCount - 1).Value = wsPrint.Range("B3").Value ' نسخ F3 إلى العمود H في كل صف من الصفوف المنسوخة wsArchive.Range("H" & lastRow & ":H" & lastRow + rowCount - 1).Value = wsPrint.Range("F3").Value ' نسخ F2 إلى العمود G في كل صف من الصفوف المنسوخة wsArchive.Range("G" & lastRow & ":G" & lastRow + rowCount - 1).Value = wsPrint.Range("F2").Value ' نسخ A2 إلى العمود I في كل صف من الصفوف المنسوخة wsArchive.Range("I" & lastRow & ":I" & lastRow + rowCount - 1).Value = wsPrint.Range("A2").Value ' تحديد منطقة الطباعة wsPrint.PageSetup.PrintArea = "$A$1:$F$18" wsPrint.PrintOut ' مسح البيانات من A6:A15 و C6:F15 wsPrint.Range("A6:A15").ClearContents wsPrint.Range("C6:E15").ClearContents wsPrint.Range("A2").ClearContents wsPrint.Range("F2").ClearContents wsPrint.Range("F3").ClearContents wsPrint.Range("C18").ClearContents wsPrint.PageSetup.PrintArea = "$A$1:$F$18" wsPrint.PrintOut wsArchive.Protect Password:=Password, USERINTERFACEONLY:=True ' تنظيف الحافظة Application.CutCopyMode = False ' العودة إلى شيت الطباعة وتحديد الخلية A1 wsPrint.Activate wsPrint.Range("A1").Select End Sub

استاذ طبعا هي ليست بوكس غير منظم ! ما هو الحل اذن ؟؟؟

تحياتي للاخ الكريم @منتصر الانسي تم حل المشكلة بشكرك جدا جدا علي كرم الرد والاستجابة

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

تحية طيبة اريد معادلة تحصي عدد الزبائن اتوماتيكيا في الشيت الاول بناء على كم نجمة وضع في الريفيو في الشيت الثاني الذي اضعه مانيوال حسب كل شهر اتمنى مساعدتي ولكم خالص التحية Monthly Review Report.xls

اخي الكريم @ابوخليل للاسف لم اعرف السبب او التشخيص ولكن العلاج كان شعبيا بحت كل ما فعلته اضفت رأس للتقرير الفرعي فقط 😀 وجعلته صغيرا جدا حتى لا يظهر لكن يبقى السؤال لما تحدث هذه الظاهرة ؟؟؟؟ اذا ... العلاج شعبي ومسكن فقط 😁

اعتذر عن التأخر في الرد بعد التجربة . التعديل شغال و يؤدي المطلوب جزاك الله خيرا اخي @منتصر الانسي وجعلها في ميزان حسناتك كما أتقدم كذلك بخالص الشكر والامتنان للأخ @Foksh والاخ @AbuuAhmed بارك الله فيكم جميعا

وعليكم السلام ورحمة الله وبركاته .. اذا كان الليست بوكس أو الكومبوبوكس غير منضم ، فأعتقد انه لا يمكنك ذلك

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

تمام التمام استاذي دكتور أكسس .. لا هنت .. اريد نتيجة التشخيص والعلاج

شكرا لك عالنشر snaptube vidmate

هل عثرت على الحل Tutuapp 9apps

اليك تعديل عالسريغ بإمكانك تعديله حسب رغبتك تحياتي 1.rar

تفضل :::::::: KAN1.accdb

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

المشكلة تظهر لشهري 8 و 9 وليس 9 فقط والسبب هي وجود قيم فارغة في الحقل Add_Days التابع للجدول moa_details الان لديك حلين إما تعبئة الحقول الفارغة بالقيمة 0 أو إستخدام دالة Nz في الإستعلام تحياتي

السلام عليكم ورحمة الله وبركاته الاخوة الكرام الافاضل من فضلكم برجاء المساعدة في حل المشكلة برنمج مؤثرات شهرية لما بفتح شاشة التقارير واختار شهر 9 تحديدا البرنامج بيتوقف لكن اي شهر تاني مفيش فيه مشكلة مش لاقي حل للمشكلة دي ارجو المساعدة والافادة من حضراتكم Monthly_Info.rar

وعليكم السلام ورحمة اللع وبركاته لم تصلنى الفكرة بعد اين توجد القائمة المتسدلة لا اعتفد انها في TextBox8 لان TextBox في الـ VBA (UserForm) لا يدعم قائمة منسدلة (DropDown / List) ، مع وجود ComboBox. انا اذا كانت TextBox8 مرتبطة بكمبوبكس او لستبكس - قم بالضغط على TextBox8 في وضع التصميم ثم من الخصائص على يسار الشاشة اختار locked - true او enabled-false ارفاق ملف يختصر الوقت لفهم فكرة عمل TextBox8 تحياتي

السلام عليكم اليك الملف المرشحين1.xlsb

استبدل الكود الموجود لديك بهذا Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.txtCount > 12 Then Cancel = True ' يخفي أي سجل أكبر من 12 End If End Sub انظر .... هل هذا هو المطلوب KAN.accdb

جزاك الله خيرا استاذنا الفاضل

الأفضل أن يكون موضوعك في قسم الإكسل ، سيتم نقل الموضوع

السلام عليكم الاخوة الافاضل السادة الخبراء عندى فورم و به اكتر من TextBox محتاج كود يمنع كتابة اي حاجة فى TextBox8 و يسمح فقط بالاختيار من القائمة المنسدلة و شكرا على مجهودكم الف الف شكر

الملف يعمل و الكود شغال و دي النتيجة النتيجة