نجوم المشاركات

ملف شهادة مدرسية صالحة للمتوسط أو الثانوي أردت نشرها تعميم للفائدة وهي من إنجازي sadok 2018X2019.xlsm

حاول تنظيم ملفك بشكل افضل مع التاكد من صحة البيانات على القوائم المنسدلة تفضل New Microsoft Excel Worksheet (2).XLSX

فكرة جميلة وتحد رائع 😊 بالنسبة لي جار العمل وهذا هو الحد الذي وصلت إليه ( ولازال العمل مستمر ... لا يزال يحتاج لتطوير ) : تحدي جميل تعلمت من خلاله كيفية تحريك الخطوط 👍😉

وعليكم السلام ورحمة الله تعالى وبركاته اثراءا للموضوع وبعد ادن الاستاد الكبير @ياسر خليل أبو البراء تفضل اخي يمكنك الابحار كما تشاء داخل مجلداتك وتعبئة جميع الملفات الموجودة داخل الفولدرات على الليست بوكس وفتحها مباشرة عند الظغط اليك الرابط التالي للمعاينة https://streamable.com/uv6f29 ملاحظة : لقد جعلت الكود افتراضي على الفولدرات الموجودة في نفس مسار الملف يمكنك تعديلها على حسب احتياجاتك داخل الكود التالي Private Sub UserForm_Initialize() ' مسار وجود الملف myPatch = Application.ThisWorkbook.Path ' قم بتحديد القرص الخاص بك 'myPatch = "D:\" Set MH = CreateObject("Scripting.FileSystemObject") Set dossier = MH.GetFolder(myPatch) Me.ListBox1.Clear: Me.ListBox2.Clear: Me.ListBox3.Clear Me.ListBox4.Clear: Me.ListBox5.Clear: Me.ListBox6.Clear n = 0 For Each d In dossier.SubFolders Me.ListBox1.AddItem d.Name Me.ListBox1.List(n, 1) = dossier.Path n = n + 1 Next Me.TextBox1 = dossier.Path listefichiers dossier.Path End Sub تعبئة الليست ياسماء الفولدرات 2.xlsm

اولا مادا تقصد بالارتباط التشعبي وما دخله في نقل البيانات يكفي شرح طلبك فقط بدون اظافة اي اكواد ببساطة ممكن تكتب مثلا عمود رصيد البداية في شيت 4 يتم نسخ بياناته الى عمود الكمية شيت 10 عمود الرصيد الي هو عمود ( L ) شيت 4 الى عمود العدد الكلي شيت 11 عمود الرصيد الي هو اخر عمود يتم نسخه الى عمود التكلفة الشيت 11 ادا كان هدا هو طلبك ما هو شرط النسخ هل عند كل تغيير في ورقة 4 او بشرط اخر

اشكرك مع العلم انى بقا لى فتره لدرجه انى جمعت كم اكواد على شان اوصل لنتيجه بس كل المحاولات بائت بالفشل

هذا طلبك واشتغلت عليه 3 أيام إلى أن تم !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

ماهي البيانات او الاعمدة المطلوب ترحيلها اخي طلبك غير واضح

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

جميل جداً ، بارك الله فيك ، وجعله في ميزان حسناتك ،، ولكن اسمح لي بسؤال فضولي ؛ ما الغاية من CompactRepair عند اغلاق البرنامج ؟

والله استاذ كبير بارك الله فيك وفى علمك

مااااشي ، تفضل fathers.accdb لا تنسى ، اذا انتهت المشكلة ولله الحمد ، فقط اختر الإجابة كأفضل إجابة

تم طرح موضوع مشابه هنا ، تفضل

ألف شكر استاذي ولم يسعني إلا أن أدعوا لك الله يدخلنا ويدخلك الجنة أنت ومن تحب آمين يارب للعالمين

تفضل أخي المحاولة الثالثة وعدل كما شئت مرفق مع المحاولة صور الأسهم . MY_PIC.rar DDTest-2.accdb

آمين واياك ، والحمد لله

اخي الكريم بداية ولعدم وجود كمبيوتر حالياً ، اقترح عليك ما يلي :- 1. انشئ استعلام يجمع تفاصيل أول اعدادي كمثال ( عدد المصري فقط ، عدد وافد فقط ، عدد المذهب وجميعها بشرط 1ع ) 2. كرر العملية نفسها للثاني اعدادي ، والثالث اعدادي ؛ وبعد ذلك اجمعهم في استعلام واحد وسميه إعدادي مثلاً. 3. انشئ تقرير مصدره الإستعلام الأخير ( إعدادي ) ، ولاحظ جلب المعلومات كاملة. قد يستغرق الأمر منك بعض الوقت وبعض الاستعلامات ( اعدادي وثانوي .... الخ ) والسبب هو أنك تملك جدول واحد ولكن المجاميع موجودة في الاستعلامات التي انشأتها أنت. هذه رؤيتي ولك حرية التصرف 😊 وسأرفق لك ملف كبداية للحل الذي اقترحته عليك. ‏‏Database1_Backup - نسخة.mdb قمت بإنشاء الملف على كمبيوتر آخر ليس سخصي لذلك لم اتمكن من اكمال العمل

جزيت خيرا اخي موسى ويفضل عند فتح الموضوع الجديد الاشارة الى الموضوع الأصل لمن اراد التوسع والبحث

نيابة عن اخي خليفة SavRefe as integr الموجود في الوحدة النمطية زائد لا يعمل والاستاذ خليفة غفل عن حذفه يمكنك حذف الوحدة النمطية فهي زائدة المتغير SavRef as integr داخل محرر النموذج هو الذي يعمل لاحظ الفرق بين الكلمتين : حرف e وهو على اسمه متغير حسب الحاجة .. تتبعه في الاحداث داخل محرر النموذج ،،، كل حدث اعطيناه قيمة مختلفة من اجل ضبط العملية

وعليكم السلام ورحمة الله تعالى وبركاته اول مشكلة هي انك رافع الملف بدون الغاء باسوورد محرر الاكواد مع عدم ادراجه داخل المشاركة بحيث نظطر لكسره لمعرفة مكان الخطأ تفضل اخي استبدل كود الترحيل بالكود التالي Sub HARD() Dim WS1 As Worksheet Dim WS2 As Worksheet Dim Rng As Range Dim A, B, C, D As String Set WS1 = ThisWorkbook.Sheets("المبيعات") Set WS2 = ThisWorkbook.Sheets("ترحيل") Set Rng = WS1.Range("B8:E24") A = WS1.[E2]: B = WS1.[E3]: C = WS1.[B1]: D = WS1.Range("B2") If Application.WorksheetFunction.CountIf(WS2.Range("B:B"), WS1.[E2].Value) > 0 Then MsgBox "رقم الوثيقة موجود مسبقا", vbOKOnly + vbCritical + vbDefaultButton1 + vbApplicationModal, "انتباه": Exit Sub If Application.WorksheetFunction.CountA(WS1.Range("E8:E24")) = 0 Then Exit Sub Application.ScreenUpdating = False F = Rng For i = 1 To UBound(F) If Len(F(i, 4)) > 0 Then WS2.Range("b" & Rows.Count).End(xlUp).Offset(1).Resize(1, 4).Value _ = Array(A, B, C, D) On Error Resume Next ' Rng.SpecialCells(xlCellTypeConstants).ClearContents WS1.Range("B1,B2").Value = Empty On Error GoTo 0 With WS2.Range("A2:A" & WS2.Cells(Rows.Count, "B").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-1") End With End If Next Application.ScreenUpdating = True MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "تعليمات " End Sub عرض تجربه1.xlsm

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

النموذج الخامس : قائمة مطوية وأزرار فرعية ... وفيها جمع بين فكرتي النموذجين الثاني والثالث ... بـالستايل الأسود لمحبي الستايلات الغامقة 🙂 همسة في أذن الخبراء : كيف أجعل القوائم تمتد إلى آخر النموذج من جهة اليمين عند طي الأزرار ؟ وهنا التحميل لكل شخص جميل 🙂 : ‏‏صفحة رئيسية مطورة - النموذج الخامس.accdb

النموذج الرابع ... شكل جذاب بإطار مميز هذه المرة شكل جديد معتمد على عناصر مصممة بالفوتوشوب ومدمجة مع عناصر الأكسس 🙂 وملف التصميم كما تعودتم 🙂 ‏‏صفحة رئيسية مطورة - التصميم الرابع.accdb

ممكن ان يكون المطلوب Ali 99.xlsx