اذهب الي المحتوي
أوفيسنا

احمد 505

03 عضو مميز
  • Content Count

    367
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

28 Excellent

عن العضو احمد 505

  • الإسم الفعلي
    الإســم
  • تاريخ الميلاد 05 يول, 1971

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    موجود
  • البلد
    ksa
  • الإهتمامات
    1

اخر الزوار

1,086 زياره للملف الشخصي
  1. الاستاذ سليم الملف كبير جدا ولو اردت رفعة يجب احذ شيتات كيرة ومربوطة بأكواد ممكن ما عاد تشتغل المطلوب النسخ السطر السادس الي يبدا بـ (ورقة 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
  2. السلام عليكم أرجوا التعديل على الكود هذا يا كرام الكود الان يلصق من العمود 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
  3. احسنت أخي الكريم اشكرك اخ عبدالله فعلا هذا هو المطلوب
  4. بارك الله فيك اخي نبيل عذرا يبدوا اني رفعت الملف الغلط هذا الملف الصحيح فضلا انقل الايقونات مع الكود تبعها من تفريغ واسترجاع الى ورقة نسخة اشكرك اخي الكريم Desktop.rar
  5. السلام عليكم ورحمة الله وبركاته الرجاء منكم احبتي نقل يوزر فورم بالكود تبعه من ورقة تفريغ واسترجاع الى ورقة نسخة المطلوب من ورقة تفريغ واسترجاع 1- نذهب الى ALL-INFO ثم ننقل ايقونة تفريغ بكودها الى ALLINFO في ورقة نسخة بجانب ايقونة تحديث 2- نذهب الى REMOVED ثم ننقل ايقونة استرجاع البيانات بكودها الى إزالة في ورقة نسخة وشكرا تفريغ واسترجاع 1.rar نسخة.rar
  6. السلام عليكم ورحمة الله وبركاته اواني الاعزاء عندي ورقة اكسل ويوجد بها زر يوزر فورم وشغال تمام وارغب بنقل اليوزر فورم الى ورقة اخرى ارجوا تشرحولي الطريقة سواء كتابة او صور ولكم جزيل الشكر اعذروني لا استطيغ رفع الملف الي فيه اليوزر فورم لانه يحتوي على بيانات خاصة طبعا انا استخدم اوفس 2007 عربي ارجوا تفيدوني بارك الله فيكم
  7. الاستاذ سليم حصبيا اشكرك على ردك ولكن الجداول عندي كثيرة ولازم ليها تحديث واسرع شي السحب الاستاذ بن علية فعلا هذا اسلم حل بارك الله فيك
  8. الاستاذ الكريم بن علية وعليكم السلام ورحمة الله وبركلاته الله يعطيك العافية واشكرك على الرد ولكن يبدوا انني لم اوصل الفكرة بالطريقة الصحيحة الفكرة انم العمل في ورقة ALLINFO تكون المعلومات على امتداد الصف (الاسم + العمر + المهنة) ولكن في الورقة الثانية يكون العمل يسحب من ALLINFO ولكن تكون معلومات الشخص في صقين المطلوب معادلة في الورقة الثانية وتسمحلي بالسحب نزولا وتترتب المعلومات بالطريقة الصحيحة ولكن بدون اضافة اعمدة جديدة انطر المرفق ترتيب سحب الصفوف.xlsx
  9. السلام عليكم ورحمة الله وبركاته اساتذتي الكرام تم سحب المعادلة IF(ALLINFO!A2=0;"";ALLINFO!A2) من الصف الثاني الى الأخير وأثناء العمل والتعديلات تم حذف محمد + عمر مصطفى 29 + مهنة علي بوهجي المطلوب هل من طريقة أو معادلة بحيث أعيد ترتيب المعادلات من دون ان اسحب الصفوف من جديد لان الجدول متداخل ترقيم معادلة.xlsx
  10. اشكرك استاذ سليم على التوضيح تم التطبيق General"";[=0] ونجحت المهمة اشكرك
  11. استاذ سليم الله يعطيك العافية هذا هو المطلوب ولن ارغب بتعديل المعادلات في اكثر من ورقة ولكن ما عرفت التعديل الي انت عدلته على المعادلة قارنت بين معادلة الصفحة القديمة ومعادلتك الجديدة وطلعوا سوا ما فيه تغيير اخبرني يا ساحر المعادلات
  12. السلام عليكم ورحمة الله وبركاته اساتذتي الكرام المطلوب التعديل على المعادلة في هذه الصفحة المرققة بحيث في حال عدم وجود معلومات في خلية ما في الصفحة (اصل) تبقى الخلية في صفحة (الصورة) بيضاء والا تظهر (علامة الصفر) مثل الخانات الملونة بالاصفر اشكركم ازالت علامة 0.xlsx
  13. السلام عليكم ورحمة اله وبركاته الأساتذة الأفاضل إخواني الاعزاء لقد اكتشفت الحل لم تكن المدخلات عن طريق (ادراج تعليق) بل كانت عن طريق (بيانات - التحقق من صحة البيانات - رسالة إدخال) وهنا يمكن التعديل على التعليق والسلام عليكم ورحمة الله وبركاته
  14. السلام عليكم لدي تعليق في خلية ولا استطيع اعدل عليه لان العلامة الحمراء الخاصة بالتعليق اختفت ملاحظة أنا استخدم اوفيس 2007 عربي اشكركم تعديل على تعليق.zip
×
×
  • اضف...