عبدالله المجرب

السلام عليكم كل عام والجميع بخير بفضل الله وثم بعد الترقية الاخيرة تم زيادة ما هو مسموح لي برفعة الى اكثر من 5 MB لذا تلبية لطلب الاستاذ جمال الفار قمت باضافة الملف الى المشاركة مباشرة

عمل جميل اخي جمال سلمت يمينك وبالفعل كما قلت فنحن نكمل بعضنا بعضاً

ان شاء الله كل شيء ممكن جرب المرفق بعد التعديل (هناك معادلة في الخلية i1 دورها مهم في تحديد عمود الترحيل )حتى لو تم مسحها سيقوم الكود بإعادتها العمل_2.rar

بعد اذن الاستاذ محمد صالح وحسب فهمي للمطلوب جرب ان تضع هذا السطر في بداية الكود Application.DisplayAlerts = False وهذا في نهايته Application.DisplayAlerts = True والله اعلم

السلام عليكم اخي ميدو جرب امرفق تم اضافة كود ترحيل مرن اليه (مرونة الكود في ان الترحيل يتم فيه بشقين وبالتجربة ستكتشف ذلك) كما تم اضافة تنبيه اذا لم يكن هناك بيانات لترحيلها او لم يتم اختيار ورقة عمل العمل_2.rar

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

بالنسبة للمطلوب الثاني راجع هذه الروابط 1. http://www.officena.net/ib/index.php?showtopic=15918 2. http://www.officena.net/ib/index.php?showtopic=30047 وهناك الكثير

السلام عليكم اخي الفاضل راجع المشاركة في الرابط ادناه الرابط من هنا

سلمت يمينك استاذ بن عليه على هذا الابداع

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

برنامج جميل وانا عندي ويندوز 7 وعمل البرنامج معي

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

بارك الله فيك استاذ نارت على كل ما تقدمه

ماذا اقول ؟؟ حارت عبارت الشكر على هذا الدعم المتواصل والتشجيع من قبلكم اخواني فشكراً للجميع وانا لا اقوم الا بواجبي فقط

تم تغيير اسم الظهور الى الاسم المطلوب وكل الشكر للاستاذ محمد طاهر مدير الموقع ابواحمد

النشرة الدورية العدد الثامن - عدد خاص عن بعض أعمال وردود الاستاذ أمير عاطف رابط العدد من هنا * سيتم توزيع الوصلة بالبريدعلى جميع الاعضاء من قبل الاستاذ محمد طاهر. *ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى وسيكون هناك أعداد خاصة لبعض أعمال رواد منتدى أوفيسنا. مرفق الملف فى صيغة Pdf news 08 AmirAtef.pdf

السلام عليكم اخي عبدالله طلباتك أوامر فانت في ملتقى مبرمجي الاوفيس العرب اكتب التاريخ في الخلية وشاهد النتيجة Private Sub Worksheet_Change(ByVal Target As Range) LR = Range("A" & Rows.Count).End(xlUp).Row If Not Intersect(Target, Range("a2:a" & LR)) Is Nothing Then Set x = Application.WorksheetFunction Target.Offset(0, 1).Value = x.Text(Target.Value, "dd") Target.Offset(0, 2).Value = x.Text(Target.Value, "mm") Target.Offset(0, 3).Value = x.Text(Target.Value, "yyyy") End If End Sub جرب المرفق === تم وضع زر امر في الورقة الثانية ليكون لديك خيارين اما الزر او الادخال والتحويل المباشر تجزئة التاريخ (1).rar

المطلوب غامض نرجو التوضيح بمثال ولارفاق الملف قم بضغطه اولاً بوينرار او وينزيب ابواحمد

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

السلام عليكم بالنسبة لي الموعد بإذن الله مناسب يوافق الموعد الساعة 02 بعد الظهر بتوقيت البحرين وان شاء الله اذا لم يحدث ظرف قاهر ساكون على الموعد

السلام عليكم اخي فضل كل عام وانت بخير ==== هذه محاولة للعلم (ميكرو الفرز تم عمله على اكسل 2007 ولا اعلم هل يتعارض مع 2003) جرب المرفق ان شاء الله يكون هذا المطلوب ترتيب الاسماء على حسب الارقام.rar

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

بارك الله فيك استاذ محمد على ماتقدمه من الماس

جرب هذا المرفق تجزئة التاريخ.rar

السلام عليكم سلمت يمينك استاذ بن عليه وكما قال الاستاذ هشام بالفعل غاب عنا استعمال غير الدالة IF مبدع كالعادة == كل عام والجميع بخير