عبد الفتاح كيرة

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

أخى الكريم شاهد هذا الفديو واقض بعض الوقت فى تطبيقه على ملفك بالتوفيق

السلام عليكم عندما بدأت فى رفع هذا الفديو - بعد أن اقتصصت منه بضع دقائق - كى لا يزيد عن 15 دقيقة هى المدة المسموح بها فى موقع يوتيوب و عندما بدأت الرفع جاءتنى رسالة تهنئة من الموقع بأن حسابى قد تم اختياره ليتمكن من رفع فديوهات بأى طول أكثر من 15 دقيقة يبدو أن هذا للمستخدمين الذين يتبعون تعليمات يوتيوب و قواعدهم بدقة الحمد لله يعنى يمكننا مثلا رفع فديو ساعة نشرح فيها عظيم جدا ترحيل البيانات أمر مهم جدا فى عالم الأكواد الترحيل بطريقة حلقات التكرار يسبب بطء الكود لأنك تتفحص الشرط فى كل خلية قبل أن تقر هل ترحل هذا الصف أم لا و ذلك مثلا عند ترحيل الناجحين الطريقة الجديدة - الجديدة على طبعا - توفر سرعة لا تقل عن 80% وتلاحظون ذلك فى الملف المرفق الآن إلى الفديو سنتعلم أيضا كيف نجمع بين الماكرو المسجل والماكرو المكتوب يدويا وهذه مهارة ضرورية جدا للمبرمج إلى الفديو الترحيل بالفلترة.zip

عمل جميل أستاذ جلال و الشرح يا أختنا فيه جزئيات كثيرة جدا

إن شاء الله أستاذ خالد المسألة مسألة توفر وقت مع مشاغل العمل و غيرها يسر الله الأمور

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

المشكلة أنك وضعت تاريخ الميلاد فى 3 خانات شاهد المرفق السن فى -1010.zip

أشكرك أخى على بارك الله فيك

تاريخ الميلاد فى c5 f5 = 1/10/2010 فى d5 خانة اليوم فى e5 خانة الشهر فى f5 خانة السنة تمام المعادلات فى d5 e5 f5 على الترتيب =IF(C5<>"";IF(DAY(C5)>DAY($E$3);(DAY($E$3)+30)-DAY(C5);DAY($E$3)-DAY(C5));"") =IF(C5 ="";"";DATEDIF(C5;$E$3;"ym")) =IF(C5 ="";"";DATEDIF(C5;$E$3;"y")) ياللا اشتغل بنفسك بدون أكواد

أبو دانة لا أستعمل الأكواد التى تربط بين ملفات أوفيس لكن هذا كود للأخ عادل حنفى لفتح ملف وورد عسى أن ينفعك Open file.rar

يمكنك مشاهدة الفديو هنا http://kemas.posterous.com/35716930 و تحميله http://posterous.com/getfile/files.posterous.com/kemas/aLH9lR03GZNAN2wAKz0gnTtzASVllEetReH4vpOOtvg9HNp9vBvni7dJCimR/untitled.mp4

يعنى تريد ربط البيانات بين الخليتين؟ الكود : Dim cel As Range Dim lr As Long lr = Range("a" & Rows.Count).End(xlUp).Row For Each cel In Range("a2:a" & lr) cel.Value = cel.Offset(-1, 1) & cel.Value Next cel المرفقات New Microsoft Office Excel Worksheet.zip

إذا كنت مستغنيا عن البيانات فى العمود a و تريد استبدالها ضع المعادلة =B2 فى a3 واسحبها لأسفل

الشكر لك أخ أحمد بارك الله فيك

شكرا لك أخى mimas فكرة حلوة أخى لو وافقت الإدارة على أن يساهم كل الأعضاء فى الموضوع

أخى يلزمك تحميل حزمة الأكواد التالية http://www.free-codecs.com/K_Lite_Mega_Codec_Pack_download.htm

تفضل أخى على توزيع اللجان- لجنتان فى كل صفحة بالديانة.rar

أحسن الله إليك أخى

الله يبارك فيك أخى zz2 و مرحبا بك بيننا

شكرا لمروركم بارك الله فيكم أخى goodlife أخى abo_alaa

سجلت هذا الفديو بناء على طلب من أحد زوار القناة و الموضوع على بساطته فهو نقطة البداية فى مشوار البرمجة فلو رجع كل مبرمج لبداياته فسيجد أن أول سؤال سأله أين نضع الكود؟ و هأنذا أضع هذا الفديو البسيط للإجابة على هذا السؤال ربما يكون فاتحة خير على المبتدئين و يكملوا المشوار

أشكرك أستاذى بارك الله فيك

حيا الله الأستاذ ولد المجرب بارك الله فيكم شكرا للأستاذ خالد

ضع الكود فى حدث فتح المصنف Private Sub Workbook_Open() Sheets(1).ScrollArea = "a1: a10" End Sub ثم احفظ الملف و أعد فتحه

هذه خاصية خاصة بالكود ضع الكود التالى فى حدث تنشيط الورقة Private Sub Worksheet_Activate() Sheets(1).ScrollArea = "a1: a10" End Sub