احمد 505

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

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام ارجوا الاطلاع على المرفق وعمل اخفاء لكلمة DUE اخفاء كلمة DUE.xlsx

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

السلام عليكم ورحمة الله وبركاته الأساتذة الكرام قمت بإضافة أكواد على module 3 وعند الإنتهاء ظهرت لي رسالة انه فيه كمية كبيرة من الأكواد ارجوا من الله ثم منكم النظر يا احبايبي في هذه المشكلة. اشكركم NEW 1.rar

أشكرك أستاذ علي فعلا هي المطلوب

السلام عليكم ورحمة الله وبركاته فضلا اريد تعديل على المعادلة هذة لحساب عدد الأيام بين تاريخين المطلوب في حال حذفت تاريخ احد العمودين (A) او (B) أريد يكون العمود (C) فارغاً المشكلة اذا حذفت تاريخ العمود (A) النتيجة (ارقام غريبة) في العمود (C) واذا حذفت تاريخ العمود (B) النتيجة (!NUM#) في العمود (C) وشكرا .... تـــم تعديل رفع الملف بدون ضغط , من فضلك ممنوع رفع الملف مضغوط طالما حجمه صغير وذلك تجنباً لإهدار وقت الأساتذة ‫معادلة حساب تاريخين - نسخة.xls

الاستاذ سليم الملف كبير جدا ولو اردت رفعة يجب احذ شيتات كيرة ومربوطة بأكواد ممكن ما عاد تشتغل المطلوب النسخ السطر السادس الي يبدا بـ (ورقة 60) ارجوا يبدا النسخ من a وليس من e تم ينسخ من e الى amr واللصق السطر السابع الي يبدا بـ (ALLINFO) يبدا اللصق من a ويترك d + c تم يلصق من e الى amr شكرا لتجاوبكم أستاذي الكريم Private Sub CommandButton2_Click() ir = TextBox1.Text yr = TextBox2.Text Application.ScreenUpdating = False ALLINFO.Unprotect "0" .Range("e" & ir & ":amr" & ir).Copyورقة 60 ALLINFO.Range("e" & yr & ":amr" & yr).PasteSpecial Application.CutCopyMode = False .Range("a" & ir & ":amr" & ir).Deleteورقة 60 Application.ScreenUpdating = True ALLINFO.Protect "0" 64 "تم الاسترجاع", MsgBox UserForm2.Hide end sub

السلام عليكم أرجوا التعديل على الكود هذا يا كرام الكود الان يلصق من العمود e الى amr المطلوب يبدا اللصق من a ويترك d + c تم يلصق من e الى amr Private Sub CommandButton2_Click() ir = TextBox1.Text yr = TextBox2.Text Application.ScreenUpdating = False ALLINFO.Unprotect "0" æÑÞÉ60.Range("e" & ir & ":amr" & ir).Copy ALLINFO.Range("e" & yr & ":amr" & yr).PasteSpecial Application.CutCopyMode = False æÑÞÉ60.Range("a" & ir & ":amr" & ir).Delete Application.ScreenUpdating = True ALLINFO.Protect "0" MsgBox "Êã ÇáÇÓÊÑÌÇÚ", 64 UserForm2.Hide End Sub

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

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

السلام عليكم ورحمة الله وبركاته الرجاء منكم احبتي نقل يوزر فورم بالكود تبعه من ورقة تفريغ واسترجاع الى ورقة نسخة المطلوب من ورقة تفريغ واسترجاع 1- نذهب الى ALL-INFO ثم ننقل ايقونة تفريغ بكودها الى ALLINFO في ورقة نسخة بجانب ايقونة تحديث 2- نذهب الى REMOVED ثم ننقل ايقونة استرجاع البيانات بكودها الى إزالة في ورقة نسخة وشكرا تفريغ واسترجاع 1.rar نسخة.rar

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

الاستاذ سليم حصبيا اشكرك على ردك ولكن الجداول عندي كثيرة ولازم ليها تحديث واسرع شي السحب الاستاذ بن علية فعلا هذا اسلم حل بارك الله فيك

الاستاذ الكريم بن علية وعليكم السلام ورحمة الله وبركلاته الله يعطيك العافية واشكرك على الرد ولكن يبدوا انني لم اوصل الفكرة بالطريقة الصحيحة الفكرة انم العمل في ورقة ALLINFO تكون المعلومات على امتداد الصف (الاسم + العمر + المهنة) ولكن في الورقة الثانية يكون العمل يسحب من ALLINFO ولكن تكون معلومات الشخص في صقين المطلوب معادلة في الورقة الثانية وتسمحلي بالسحب نزولا وتترتب المعلومات بالطريقة الصحيحة ولكن بدون اضافة اعمدة جديدة انطر المرفق ترتيب سحب الصفوف.xlsx

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام تم سحب المعادلة IF(ALLINFO!A2=0;"";ALLINFO!A2) من الصف الثاني الى الأخير وأثناء العمل والتعديلات تم حذف محمد + عمر مصطفى 29 + مهنة علي بوهجي المطلوب هل من طريقة أو معادلة بحيث أعيد ترتيب المعادلات من دون ان اسحب الصفوف من جديد لان الجدول متداخل ترقيم معادلة.xlsx