عبدالله بشير عبدالله

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

اكسل وPDF.xlsb

وعليكم السلام ورحمة الله وبركاته

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

الطلب الاول تم تنفيذه 

لك وافر الاحترام

acheivements final.xlsb

اخي العزيز

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

'طباعة حسب البيانات1.xlsm

وعليكم السلام ورحمة الله وبركاته

اختصار للوقت ولسرعة الاستجابة  لطلبك ارفق الملف للتعرف على المشكلة  

وعليكم السلام ورحمة الله وبركاته

'طباعة حسب البيانات.xlsm

وعليكم السلام ورحمة الله وبركاته

ضف هذا السطر قبل الخطأ مباشرة

            On Error Resume Next
            st = Mid(Trim(.Cells(i, 2)), 1, 1)
 

وعليكم السلام ورحمة الله وبركاته

جسب فهمى لطلبك  / قم باختيار الصف م خلية Z2 في صفحة البيانات ثم قم بالضغظ على زر ترحيل . سيتم الترحيل الى صفحتي المستجدين وسجل 31,

امر الطباعة ديناميكي بمعني حسب البيانات يحتويها ويطبعها فليس هناك داع لزر الاختيار

الامر الثالت غير واضح تماما بالنسبة لي  والذي فهمته انك تريد الترحيل حسب التقدم  فمثلا تريد ترحيل الدور الاول هل الترحيل لفصل معين ام لكل الفصول. اتمنى ان تجد ما يفيدك وان كان غير ذلك فعذرا .

ترحيل.zip

1 ساعه مضت, ابو بهاء المصري said:

وطلبك هذا يا اخي علي العين والراس وهذا لا ينكر فضل مستر lionheart

اخي ابو بهاء المصري / شكرا لخلقك وتفهمك لك  منى كل التقدير والاحترام

بالسبة للرسالة اثتاء الحفظ ليس له علاقة بالكود ولكن من خصائص اعدادات الاكسل وقد تم معالجتها

قوائم لجان الدور الثاني اولي.xlsb

السلام عليكم 

السيد الفاضل ابو بهاء المصري نأمل منكم تعديل اختياركم افضل اجابة للسيد lionheart فهو من يستحقها وهو صاجب الكود . وعندما كان ردكم على اجابته

في 12‏/6‏/2023 at 21:18, ابو بهاء المصري said:

لاكنه لم يعمل في املف ولم يعطي نتائج
اتمني حل باللغة العربية حتي استوعب الكود وافهمه

فاجابكم استاذنا الفاضل 

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

في 12‏/6‏/2023 at 21:20, lionheart said:

 

Wait someone to attach the file for you

Just follow the steps and you will be able to make it run properly

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

فالحل قام به استاذنا lionheart  وهو صاحب الفضل

ففضلا لا امر تغيير اختياركم لافضل اجابة الى صاحب الفضل . 

تحياتي

تم  ربط  زر التبديل ب 

Get_Data_By_Subject

قوائم لجان الدور الثاني - Copy.xlsb

السلام عليكم 

lionheart

اعتقد ان صاحب الملف كما قال انه لم يعطى له نتائج بسبب عدم اضافة الكود Get_Data_By_Subject الى زر او الى صفحةLagna  فيكون كالاتي 

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$L$3" Then
        Application.ScreenUpdating = False
            Range("B9:I28").ClearContents
        Application.ScreenUpdating = True
    End If
Get_Data_By_Subject
End Sub

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

الملف

قوائم لجان الدور الثاني - Copy.xlsb

من  افضل الدروس لربط الاكسل  VB6 وفيه علم عزير وبه امثلة متضمنة اكواد الربط  للاستاذ ياسر العربي  في ميزان اعماله وحسناته

https://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/

ارفق الملف لنرى ما السبب رعاك الله

وعليكم السلام

حسب فهمي لطلبك

اكتب في الزر الجديد

CALL CommandButton1_Click

CALL CommandButton2_Click

وعليكم السلام ورحمة الله وبركاته

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

اتمنى انى قدمت لك ما يفيد

طلاب.xlsm

السلام عليكم 

جرب الملف 

كلمة السر 123

الزمن 50 ثانية يمكن تعديلها من الكود

توقيت.xlsm

وعليكم السلام ورحمة الله وبركاته

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

علي كل حال اليك ملف اخفاء الليبل فقط

اخفاء الليبل.xlsm

وهذا اخفاء الليبل مع التكست بوكس الاثنين

اخفاء الليبلوالتكست.xlsm

واختر ما يخقق طلبك 

تحياتي

السلام عليكم لماذا لا يكون زر واحد يضع الدوائر على نصف العام واخر العام نفس الوقت كما الملف المرفق

سعد22.xlsm

جرب الملف

المدرسة.xlsm

السلام عليكم

ربما يكون طلبك حسب فهمى لسؤالك

=YEAR(C3)-YEAR(B3)-(YEAR(G3)-YEAR(F3))

السلام عليكم

  .  استاذنا الخبير lionheart اشار الى الحل في الردود السابقة

في 25‏/2‏/2023 at 18:17, lionheart said:

BUt the sheet RM3 in cell K5 is empty and this causes the error. The cell K5 should have a number, so try to put a number in cell K5 in sheet RM3 and there will be no errors

وكان حله قبل ارفاق ملفك حيت  كانت الخلية K5 ولكن بعد ارفاق الملف تغيرت الخلية واصبحت K1

حسب الكود في الملف المرفق  يجب كتابة رقم في الخلية K1 في صفحة sheet RM3  وقمت بتجربة الامر واختفى الخطأ

تحياتي اليك والى معلمنا الفاضل lionheart

السلام عليكم

محاولة بالكود ارجو فيها الفائدة

قائمة الاسماء في العمود A  يقوم الكود بتحديثها تلقائيا بمعنى عند اظافة اي اسم جديد في العمود F3يقوم الكود باظافتها في الليست في M3

لا تنسى  تمكين المحتوى

تحياتي

INDIRET COSTS 2023.xlsb

وعليكم السلام ورحمة الله وبركاته

ضع الكود في محرر الاكواد واربطه بزر

Sub FindReplaceAll()
Application.Dialogs(xlDialogFormulaReplace).Show
End Sub

وعليكم السلام ورحمة الله وبركاته

اخى / الصور في الوضع العادي تتغير ولا توجد مشكلة, اما في وضع التكبير لا يمكن التجربة لان الصورة تغطي كامل الفورم  ولا يظهر اي شئ من الفورم الا الصورة مكبرة

وعليكم السلام ورحمة الله وبركاته

تفضل الحل فى الملف المرفق

مثال.xls