احمد 505

استاذ محمد يوسف ابو يوسف

الله يعطيك العافية

اشكرك على سرعة الرد

واشكرك على الاجابة المطلوبة

نفعك الله بعلمك 

وزادك علما

السلام عليكم ورحمة الله وبركاته

اساتذتي الكرام

ارجوا الاطلاع على المرفق 

وعمل اخفاء لكلمة DUE

اخفاء كلمة DUE.xlsx

الاستاذ عبدالله الصاري

اشكرك شكر جزيل على ردك ومجهودك الكريم

فمنذ ان رديت علي وانا اطبق على الشيتات التي لدي

عشان لو فيه حاجة طلعت ليه ابلغك بيها 

ولكن الحمد لله الاجابة كانت فعلا ممتازة

اشكرك من كل قلبي

السلام عليكم ورحمة الله وبركاته

الأساتذة الكرام

قمت بإضافة أكواد على  module 3

وعند الإنتهاء ظهرت لي رسالة انه فيه كمية كبيرة من الأكواد

ارجوا من الله ثم منكم النظر يا احبايبي في هذه المشكلة.

اشكركم

NEW 1.rar

أشكرك أستاذ علي

فعلا هي المطلوب

‫معادلة حساب تاريخين - نسخة.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

اشكرك استاذ سليم على التوضيح

تم التطبيق  General"";[=0] ونجحت المهمة

اشكرك

استاذ سليم

الله يعطيك العافية

هذا هو المطلوب

ولن ارغب بتعديل المعادلات في اكثر من ورقة

ولكن ما عرفت التعديل الي انت عدلته على المعادلة

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

ما فيه تغيير

اخبرني يا ساحر المعادلات

السلام عليكم ورحمة الله وبركاته

اساتذتي الكرام

المطلوب

التعديل على المعادلة في هذه الصفحة المرققة
بحيث في حال عدم وجود معلومات في خلية ما في الصفحة (اصل)
تبقى الخلية في صفحة (الصورة) بيضاء والا  تظهر (علامة الصفر) مثل الخانات الملونة بالاصفر

اشكركم

ازالت علامة 0.xlsx

السلام عليكم ورحمة اله وبركاته

الأساتذة الأفاضل

إخواني الاعزاء

لقد اكتشفت الحل

لم تكن المدخلات عن طريق (ادراج تعليق)

بل كانت عن طريق (بيانات - التحقق من صحة البيانات - رسالة إدخال) وهنا يمكن التعديل على التعليق

والسلام عليكم ورحمة الله وبركاته

هل من اجابة لسؤالي

السلام عليكم

لدي تعليق في خلية ولا استطيع اعدل عليه

لان العلامة الحمراء الخاصة بالتعليق اختفت

ملاحظة

أنا استخدم  اوفيس 2007 عربي

اشكركم

تعديل على تعليق.zip

جزيتم خيرا جميعا

حصل المطلوب

بارك الله فيكم

السلام عليكم

اسعد الله صباحك استاذ سليم

الملف ممتاز ورائع والله يعطيك العافية

ولكن

اجد صعوبة في التعديل على المعادلة في حال جد جديد

ثم ان المعادلة مربوطة بكود

وانا افضل لو تكون معادلة فقط لاني لا افهم في الاكواد

اشكرك 

Order_Me1.zip

الملف مرفوع ويظهر لي بجانب كلمة السلام عليكم

if.zip

السلام عليكم ورحمة الله وبركاته

المطلوب
عمل معادلة في العمود B بحيث اذا كان الصنف في العمود A
مثلا 1 فيظهر مقابله في العمود  B  كلمة الاول

وهكذا جميع المتطلبات في العمود A

وفي حال كانت الخلية في العمود A فارغة
فتكون الخلية التي امامة في العمود B فارغة تماما