اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

حسين مامون

الخبراء
  • Content Count

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

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

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

319 Excellent

عن العضو حسين مامون

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

  • Gender (Ar)
    ذكر
  • Job Title
    حسين مامون
  • الإهتمامات
    اكسيل

وسائل التواصل

  • MSN
    assotintaleb22@hotmail.com

اخر الزوار

1,467 زياره للملف الشخصي
  1. الحمد لله ان تم الامر على خير بالنسبة لطلبك من الاحسن انشاء textbox لادخال باس الحماية واخر لالغائه وهكذا يمكن جعل الكتابة بدل ارقام او حروف شكل اخر جرب المرفق تعديل كود حماية الصفحات-1 (2).xlsm
  2. اخي الكريم تم ادخال بعض التعديلات في كود الحماية واضافة كود الغاء الحماية اتنمى ان يكون هذا في مستوى تطلعاتك تحياتي الباس pwd تعديل كود حماية الصفحات-1 (2).xlsm
  3. تفضل ربما يكون ما تريد اخي الكريم ادخل التاريخ في العمود "C"وانقر بالماوس الايسر دوبل كليك مثلا تاريخ التعيين هو: 12/12/2014 النتيجة : 12/12/2016 12/12/2018 12/12/2020 اتمنى ان يكون ما تريد تحياتي Increment (1).xlsm
  4. جرب هذا المرفق الكود يعمل في حدث الشيت "change" Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim rng, lr lr = Cells(Rows.Count, "c").End(3).Row Set rng = Range("c5:c" & lr) If Not Intersect(Target, rng) Is Nothing Then If Not IsDate(Target) = True Then Target = "" Else Target = Format(Target, "dd-mm-yyyy") Target.Offset(, 1) = Format(DateAdd("yyyy", 2, Target), "dd-mm-yyyy") Exit Sub End If End If End Sub Increment (1).xlsm
  5. اخي الكريم يمكنك تسمية اي نطاق تريد انظر الصورة
  6. اخي الكريم نحن هنا لتقديم المساعدة لبعضنا و ان عجزت عن كيفية ايصال الفكرة يمكنك شرح ماتريد باستعمال الالوان مثلا : في الشيت الرئيسي لون بالاصفر المدى الذي سيمح بعد الترحيل وفي الشيتات الاخرى لون بالاحمر الصف الذي تريد ترحيل البيانات اليه تحياتي
  7. هذا لانك لم تشرح طلبك جيدا يا استاذ لم تقل ان كل مرة ترحل يضيف البيانات المرحلة في صف جديد ول هريد ان يمسح البيانات المرحلة في شيت "استدعاء وتغيير" بعد الترحيل؟ معالجة الكود.xlsm
  8. ربما يكون طلبك في المرفق تغيير بيانات العاملين في كل الشيتات مرة واحدة على اساس رقم الكود.xlsm
  9. اين يستدعي البيانات ؟ ماهو المكان المصدر للبيانات الى صفحة التغيير علما ان كل الشيتات فيها نفس الكود100
  10. اخي الكريم حاولت فهم طلبك وسيحاول غيري ايضا ولكن لم افهم غايتك في ملفك حوالي 10 شيتات الاولى اعتقد هي الرئيسية والثانية اظن لشرح الطلب اما باقي الشيتات لا أعرف علما ان بعضها فارغ تماما ان كان ممكنا شرح ما تريد بلغة الاكسيل مع تبسيط الشرح وتقليص عدد الشيتات مثلا : الشيت كذا "" هو قاعدة البيانات الرئيسية والشيت كذا "" لاستدعاء البيانات وترحيلها حسب الشرط كذا اريد عند ادخال الكود في خلية "A2" مثلا استدعاء بيانات من شيت كذا الى شيت كذا حاول شرح طلبك مع ادخال مخرجات للبيانات في صفحة كما تريدها كمثال
  11. استاذي الفاضل أحمد يوسف شكرا لك على تشحيعاتك لنا و تنبيهاتك لاعضاء المنتدى استاذ ASUS2020 انسخ هذا الجزء والصقه في الكود بزر "حضور" ويكون هو الاول If TextBox1 = "" Then MsgBox "المرجو ادخال الكود اولا": TextBox1.SetFocus: Exit Sub 'اذا كان التكست بوكس1 فاضي اديني رسالة "المرجو ادخال الكود اولا" واخرج من ساب
×
×
  • اضف...