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

تفضل يستخرج اسم الملف على اي صيغة كانت Dim si As Object Set si = CreateObject("Scripting.FileSystemObject") me.text1 = si.GetBaseName(strPath) barna_2.mdb

بالطبع هو مطلب حتى البلد الواحد تختلف فيه القوانين من مرحلة الى اخرى اخواني الكرام تفضلوا : تم احتواء جميع الشروط والضوابط - لاحظوا اننا نتعامل مع الحصص في الحجب والاتاحة ، فلحجب يوم عن معلم يجب حجب حصص ذلك اليوم - يجب العمل على الخطوات بالترتيب - لا بد الاخذ بعين الاعتبار ان التوزيع الآلي مهما كان احترافيا فلا غنى عن اللمسات والتعديل اليدوي امل تكرار الفحص والتجربة وانا جاهز لاي ملاحظة او تعديل jadwal_9.rar

بكبسة زر واحدة نستطيع ان نعرف ما هو اخر صف غير فارغ في كل شيت انظر المرفق (Sheet1) Last_row In sheets.xlsm

ممكن يكون المطلوب هكذا terhel.xlsm

بارك الله فيك أخي @kanory هذا هو المطلوب

وهذه مشاركة مع مشاركة أخي الفاضل @ابوخليل ضع هذا الكود Me.path3 = Left(fille, InStrRev(fille, ".") - 1)

مبدع ما شاء الله عليك

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

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

جرب هذا الملف يعمل حتى 500 صف من البيانات salimمطلوب.xls

جزاك الله خيرا