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

السلام عليكم ضع هذا الكود في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [F7:F1000]) Is Nothing Then For i = 2 To 6 Target.Offset(0, i).FormulaR1C1 = Cells(4, Target.Offset(0, i).Column).FormulaR1C1 Target.Offset(0, i).Value = Target.Offset(0, i) Next End If End Sub

اللهم صلي على سيدنا محمد وعلى آله وصحبه وسلم العفو منك اخي ابو اشرف لم اقم الا بالواجب فقط ------------------------------------------------------------------------------------------ ان شاء الله سيتم عمل اللازم ============= هذه صعبة وخصوصاً مع هذا العمل الفريد من قبل الاستاذ خبور وستاخذ الكثير من الوقت مع عدم ضمن النتيجة ============== ان شاء الله تنحل ============== هذه تحتاج الى تعديل في الكود وساحاول عملها وان شاء الله تضبط ================ هناك فورم للاستاذ خبور يتعلق بالبحث ابحث عنه ------------------------------------------------------------------------------------------ كما قلت لك سابقاً لا داعي لان تشعر بأنك تثقل علينا فنحن في الخدمة قدر المستطاع ما اريده هو عدم الاستعجال في انتظار الردود لان الوقت له دور وخصوصاً مع امتحانات الاولاد هذه الايام

اخي سعيد من يقوم بأرسال الايميل الخاص بالنشرة هو الاستاذ محمد طاهر وليس انا

أحسنت اخي الكريم

مبروك اخي عبدالهادي وان شاء الله نراك مستمر بتميزك بيننا

بارك الله فيك معلومة مفيدة

الأخ الفاضل / أحمد فضيله أحييك على هذه الدعوة وأضم صوتى الى صوتك

ههههههههههههه الله المستعان ما اصابك لم يكن ليخطائك وما اخطائك لم يكن ليصيبك

هذا ما توصلت اليه مساعدة في فاتورة.rar

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

السلام عليكم نرجو عدم تكرار المواضيع ========= شاهد هذه الروابط 1. http://www.officena.net/ib/index.php?showtopic=39928 2. http://www.officena.net/ib/index.php?showtopic=40353 3. http://www.officena.net/ib/index.php?showtopic=40107

السلام عليكم اخي الفاضل انا بصراحة لم اتعامل مع موضوع الايميل والاكسل ولكن اليك هذه الروابط فقد تفيدك http://www.officena.net/ib/index.php?showtopic=29304 وهذا اايضاً http://www.officena.net/ib/index.php?showtopic=29748

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

السلام عليكم جرب هذا الكود Sub Macro1() Range("AL9:BK9").Copy Range("AL11:AL" & [A1000].End(xlUp).Row).PasteSpecial Paste:=xlPasteFormulas Application.CutCopyMode = False End Sub

السلام عليكم الكود منقول وهو للاخ (amroomo) مع إضافة بضع التناتيش عليه ليتناسب وطلبك الكود سيقوم بحفظ نسخة من الفاتورة في ملف باسم العيادة في الدرايفر D فاذا كان اسم العيادة موجود مسبقاً يتم اضافة العمل الى هذه العيادة والا يقوم بانشاء فولدر جديد جرب واعلمني بالنتيجة BSI2.zip

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

العفو منك لم اقم الا بواجبي ======== اخي انت تأمر وليس تطلب ان توفر الوقت والمعرفة فلن يدخر احد من الاخوة جهداً في المساعدة

السلام عليكم اخي فضل لي طلب عندك اتمنى ان تضع عناوين تدل على الطلب ====== في المرفق كودين كود لا ستدعاء الاسماء المطابقة للاسم == وكود ترحيل البيانات الى مكانها بعد تعديلها كود تعديل بيانات2.rar

تفضل المرفق مساعدة في فاتورة.rar

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

الاستاذ الفاضل / الخالدي حل مميز بالمعادلات ودليل تمكن من تطويع المعادلات زادك الله من علمه ونفع بك

بارك الله فيك اخي سعد

اخواني الكرام: هذه الدالة موجودة هنا وهي من إعداد الاستاذ الكبير عبدالله باقشير وما قمت انا به هو مجر اضافة خيار استثناء التواريخ حسب طلب الاخ هنا عمل الدالة: تقوم الدالة بحساب الفرق بين تاريخين بدون أيام العطل التي يتم اختيارها كما تقوم الدالة بإستثناء التواريخ المحددة بين هذين التاريخين ============================================== بارو مترات الدالة: 1. MyDate_Min ويمثل التاريخ الاصغر 2. MyDate_Max ويمثل الخيار الخاص بالعنصر المراد استخراجه 3. DateExptd ويمثل المدى الذي به التواريخ المستثناه 4. ParamArray My_DayNO() مصفوفة ايام الاجازة بالارقام الدالة عليها وهي كالتالي: 'vbSunday 1 Sunday 'vbMonday 2 Monday 'vbTuesday 3 Tuesday 'vbWednesday 4 Wednesday 'vbThursday 5 Thursday 'vbFriday 6 Friday 'vbSaturday 7 Saturday =KhCountDay(MyDate_Min;MyDate_Max;DateExptd;6;7) حيث يمثل الرقمين 6 و 7 يومي الجمعة والسبت على التوالي ارجو منكم التجربة وابداء الراي اليكم المرفق 2003 دالة عد الايام بين تاريخ دون عطل مع إستثناء تواريخ محددة.rar =============================== ويصبح الشكل النهائي للدالة

مساهمة ممتازة وللفائدة وهناك العديد من دوال التفقيط للاساتذة الكرام اخرها هذه http://www.officena.net/ib/index.php?showtopic=39447 وهنا http://www.officena.net/ib/index.php?showtopic=40647

وضح اكثر وللعلم اذا قمت بنسخ التنسيق الخاص باي خلية فان التنسيق الشرطي يتم نسخه ايضاً