الف مليون شكر يا استاذنا شرح ولا اروع وكود فى منتهى الجمال ربنا يجعله فى ميزان حسناتك الى يوم القيامه يارب العالمين
@Emad_ghazi8 ай бұрын
جزاك الله خيراً
@ضياءالنقطة-ف3س3 жыл бұрын
جزاك الله خيرا استاذنا عماد وكل عام وانتم بخير
@khaled_elfeky3 жыл бұрын
الله يبارك فيك يا بشمهندس
@Emad_ghazi8 ай бұрын
جزاك الله خيراً
@mohammedalmegrawi53213 жыл бұрын
شكراً بارك الله فيك وجعله في ميزان حسناتك .
@Emad_ghazi3 жыл бұрын
جزاك الله خيراً وبارك الله فيك اخي الكريم
@خالدمهدي-ث9ث3 жыл бұрын
الف شكر لك استاذا الفاضل نطلب من حضرتك ان تتكرم علينا بطريقة مطابقة كشف البنك مع دفاتر الشكرة بالاكسل علما بان عمليات البنك كثيره ولك جزيل الشكر والتقدير
@abbas19678 ай бұрын
عاشت ايدك
@Emad_ghazi8 ай бұрын
جزاك الله خيراً
@mohamedsalah-hi8ix3 жыл бұрын
السلام عليكم ورحمه الله وبركاته جزاك الله خيرا استاذنا ممكن تعقيب ممكن مجموع فرعي لكل مندوب والكود بتاعه
@mohammedalmegrawi53213 жыл бұрын
شكراً جزيلاً ارجوا منك التكرم بعمل درس عن عدم اضافة البيانات الفارغة وعمل رسالة تنبيه وايضاً عند الحذف اذا كانت البيانات فارغة .
@mazenzagha88113 жыл бұрын
يسعد مساكم استاذ يا ريت أن يتم الرد على الاسئله التي نتمنى عليكم تخصص جزء من الدرس عليها لطفا منكم
@mohamedsalah-hi8ix3 жыл бұрын
ممكن نعمل اجمالي فرعي لكل مندوب تحت اسمو واجمالي كلي لكل المناديب في اخر الكشف
@طارقعبداللة-ث9ز3 жыл бұрын
عاوز من حضرتك ملف معين لجمعية خيريه ازاي اتواصل مع حضرتك
@ahmedsoliman72883 жыл бұрын
السلام عليكم شكرا على اسلوبك الرائع محتاج كود يستخرج (يوم و شهر وسنه -- يوم وشهر وسنه ) ولك جزيل الشكر
@mohamedabdelrasul1823 жыл бұрын
بدور على دالة aggregate لا اجدها ياترى ماهى المشكلة وشكرا
@minaisaac10363 жыл бұрын
مساء الخير يا استاذ عماد لو سمحت لو عايز ابعت لحد ملف اكسيل عن طريق الانترنت بس عايزه يحمل الملف مرة واحدة فقط وبعد كدة لا هو او غيره يقدر يحمل الملف دة تاني او يشيره لحد غيره هل فيه طريقة كدة؟
@khaled_elfeky3 жыл бұрын
الله يبارك فيك يا بشمهندس عماد لو سمحت الكود دا مش راضي يشتغل معايا Sub RectangleRoundedCorners2_Click() On Error Resume Next Sheet1.Range("A2:E31").ExportAsFixedFormat xlTypePDF, Filename:="C:\MS\" & Sheet1.Range("B6").Value, openafterpublish:=True Sheet1.Range("B6").Value = Sheet1.Range("B6") + 1 MsgBox "تم تصدير وحفظ الفاتورة بنجاح" Range("A11:A29").ClearContents Range("B11:B29").ClearContents Range("C11:C29").ClearContents Range("D11:D29").ClearContents End Sub