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

استاذنا ومعلمنا ( ماقدر أقول والدنا لأني 64 سنة ) @ابوخليل شرف كبير لنا مجرد مرورك على الموضوع طبعاً ماعندي مانع .

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

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

وعليكم السلام ورحمة الله تعالى وبركاته ربما هدا ما تقصد Sub test() Dim i As Long, lRow As Long lRow = Cells(Rows.Count, "A").End(xlUp).Row With Application .ScreenUpdating = False For i = lRow To 2 Step -1 If IsError(.Match(0, Range("A" & i & ":D" & i), 0)) Then Rows(i).EntireRow.Delete End If Next .ScreenUpdating = True End With End Sub ملف.xlsb

الله .. الله .. الله .. أيه الحلاوة دي كلها أفندينا .. 🤗🌹🌼🌷 تجاوزت حدود المفاهيم العتيقة عن الأكسس .. وفتحت آفاق جديدة 😊

مشاركة مع الاستاذ @kkhalifa1960 موجود عندي نسخة معدلة تعمل على سحب الصور من السكانر و الفيدر وحفظها بصيغة Pdf . انتظرني حتى أصل العمل وسأرفقها لك إن شاء الله.

تسلم ايدك علي المجهود الكبير الرائع جزالك الله عنا كل خير اخي الكريم @kkhalifa1960

أخي تفضل هذه امشاركة .

موجود عند تسجيل تقييم بيطلع لك فورم وبه كل البنود أقل من 8 والفورم به زر طباعة . أما بالنسبة للزر (Refresh) مطلوب ضغطه بعد تسجيل التقييمات . واذا تبغي أسوي عمله مع الزر (ِAdd New Eva) ممكن ، لكن انا سويته هكذا لتعرف كيف تسير الأمور .

الثورة الحالية هي في كيفية كتابة ال Prompt ( الطلب ) بشكل سليم للتعامل مع أدوات الذكاء الاصطناعي ، وهناك الآن مواقع مخصصة تساعدك على كتابته بشكل مناسب، فكلما كان توصيف الطلب بشكل سليم كانت النتائج أدق 🙂 شخصيا استفدت كثيرا من هذه الأدوات في كتابة العديد من الأكواد ( البسيطة أو المعقدة ) ، ولا غنى بالذكاء عن تعلم الأساسيات .. 🙂

تفضل أخي @سامر محمود المرفق بعد الإنتهاء من تكوينه من وجهة نظري . وعليك قراءته جيداً والتجريب . وموافاتي بأي إضافات تريدها . Evaluation_Employees.rar

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

وعليكم السلام ورحمة الله تعالى وبركاته Sub test() Dim wb As Workbook, WS As Worksheet, dest As Worksheet Set wb = ThisWorkbook: Set WS = wb.Sheets("Sheet1"): Set dest = wb.Sheets("Sheet2") Dim j&, col&, ligne&, r As String Dim Rng As Range: col = 12: r = dest.[B19] ligne = WS.Cells(Rows.Count, col).End(xlUp).Row With Application .ScreenUpdating = False dest.Range("C22", Range("AD" & Rows.Count).End(4)).ClearContents For j = 22 To ligne If UCase(WS.Cells(j, col)) = r Then Set Rng = WS.Range(WS.Cells(j, 3), WS.Cells(j, 30)) dest.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Resize(1, 28).Value = Rng.Value End If Next j If Application.WorksheetFunction.CountA(dest.Range("C22:AD22")) = 0 Then MsgBox "غير موجود" & " / " & r, vbOKOnly + vbCritical + vbDefaultButton1 + vbApplicationModal, "انتباه" End If .ScreenUpdating = True End With End Sub تجربة 2.rar

لا تجعل الجدول BundleDataOut هو النموذج الفرعي وانما اعمل نموذج اضافي مصدرة الجدول BundleDataOut وبالامكان جعل النموذج الجديد يعرض على شكل ورقة بيانات ثم ضع الكود في حدث بعد التحديث للحقل BundleCode وسوف يعمل الكود انظر للفيديو ⬇️

ربما بناء على رقمكم (رقمنا) ترحيل بيانات للنموذج.xlsm أو بالمعادلات ترحيل بيانات للنموذج.xlsx