jo0

شكرا اخي لكن اريده ان يعمل اوتوماتيكيا اي اذا فرغت الخلايا يختفي اذا تغير المحتوى يظهر العمود اوتوماتيكيا هل يمكن تعديل هذا الكود ليغمل على ورقة عمل واحدة لانه يعمل على ورقتين اذا كان الشرط بالورقة 1 يختفي العمود في الولرقة لاخرى اوتوماتيكيا و يعود ليظهر اوتوماتيكيا Sub Hide_unhide() Dim Sh1 As Worksheet, Sh2 As Worksheet Dim Ar_cel, Ar_n, i% Application.ScreenUpdating = False Set Sh1 = Sheets("واجهة"): Set Sh2 = Sheets("بيانات") Sh1.Range("D1:Q1").EntireColumn.Hidden = False Ar_cel = Array("an", "ao", "ap", "aq", "ar") Ar_n = Array("b", "c", "d", "e", "f") For i = LBound(Ar_cel) To UBound(Ar_cel) Sh1.Range(Ar_n(i) & 1).EntireColumn.Hidden = _ IIf(Sh2.Cells(88, Ar_cel(i)) = 0, -1, 0) Next i Application.ScreenUpdating = True End Sub '+++++++++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Activate() Hide_unhide End Sub

السلام عليكم الرجاء من الاخوة الاكارم كود لاخفاء اعمدة اذا كانت الخلايا في الصف الخامس فارغة او وفق اي شرط مثلا تساوي 0 وقد ارفقت ملفا و شكرا لكم على الدعم الدائم اخفاء.xlsx

السلام عليكم اعضاء المنتدي الاكارم حفظكم الله ورعاكم من الوياء اريد ان ارسم جدول ديناميكي حسب معطيات تتغير وقد ارفقت ورقة عمل بها المطلوب ... افيدونا افادكم الله و رعاكم كا عودتمونا اريد ان يتغير الجدول اوتوماتيكيا من حيث الأقسام و المواد و الأسماء حسب المعطيات في الورقة data بحيث يتغير الجدول تلقائيا من حيث عدد الصفوف ( المواد والأساتذة) و عدد الاعمدة ( الأقسام) وشكرا جدول ديناميكي.xlsx

شكرا اخي لقد تم الحل عافاك الله

السلام عليكم ابحث عن دالة تقريب فاصلة تقرب الفواصل الاقل من 0.5 الى 0.5 والاكثر من .0.5 الى العدد الصحيح مثال: 7.50====7.11 8.50===8.33 10===9.66 12===11.76 و هكذا لكل الاعداد و شكرا مسبقا

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

الغ التثبيت من على الرقم ... هل هذا المطلوب 000000000000000000.xlsx

السلام عليكم افيدونا افادكم الله في هذا الملف اريد منع ادخال بعض القيم وفق شرط كمعين اذا كان af2=0 ورقة1 ورقة 2 f9:f460 في المجال ah2 -aq2منع ادخال القيم المقابلة من و منع ادخال هذه القيم+ 100 اي منع ادخال 101-102-103-104 ومنع ادخاله +200 اي منع ادخال 201-202-203-204 نفس الشيئ اذا كان ag2=0 منع ادخال القيم المقابلة وهذا لباقي الجدول اي af3=0/ag3=0 af4=0/ag4=0 af5=0/ag5=0 حتى af7=0/ag7=0 ;و شكرا مسبقا المصنف1.xlsx

في تطابق الاسماء اي المواد كما قلت تحديدا ..... جزاك الله خيرا

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

شكرا اخي لكن عند تغيير المادة 2 لا يظهر مكان العمل الرجاء تاكد اخي من الدوال خاصة c2 و d2

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

شكرا اخي ... اريده ان يعمل في اي خلية في نفس العمود ... ان يعمل في جميع الاعمدة M L K J I H G F E .. وشكرا مسبقا

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

الكود الاول حذف محتوى خلية وفق شرط اما الثاني للقائمة المنسدلة

الكود الاول اذا نقرت نقر مزدوج في خلية يحذف خلية اخرى ..اما الثاني فيتعلق بالتحكم بقائمة منسدلة من ورقة اخرى

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

شكرا ...لكن ليس هذا اريد فقط ان يعمل الكودين مع بعض فقط

السلام عليكم اريد دمج الكودين الاتيين Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub If Not Intersect(Target, Range("q9:q300")) Is Nothing Then If Target.Value = "a" Then Target.Offset(, -4).ClearContents End If If Not Intersect(Target, Range("r9:r300")) Is Nothing Then If Target.Value = "a" Then Target.Offset(, -6).ClearContents End If If Not Intersect(Target, Range("s9:s300")) Is Nothing Then If Target.Value = "a" Then Target.Offset(, -8).ClearContents End If If Not Intersect(Target, Range("t9:t300")) Is Nothing Then If Target.Value = "a" Then Target.Offset(, -10).ClearContents End If If Not Intersect(Target, Range("u9:u300")) Is Nothing Then If Target.Value = "a" Then Target.Offset(, -12).ClearContents End If If Not Intersect(Target, Range("v9:v300")) Is Nothing Then If Target.Value = "a" Then Target.Offset(, -14).ClearContents End If If Not Intersect(Target, Range("w9:w300")) Is Nothing Then If Target.Value = "a" Then Target.Offset(, -16).ClearContents End If If Not Intersect(Target, Range("x9:x300")) Is Nothing Then If Target.Value = "a" Then Target.Offset(, -18).ClearContents End If If Not Intersect(Target, Range("y9:y300")) Is Nothing Then If Target.Value = "a" Then Target.Offset(, -20).ClearContents End If End Sub مع الكود الثاني Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address = "$g$3" And Target.Cells.Count = 1 Then Sheets("الحراسة").Range("$d$8") = Target End If Application.EnableEvents = True End Sub

شكرا اخي هل من توضيخح لانني اريد استعمالها في ملف اخر وشكرا

السلام عليكم عيد مبارك اريد ادراج قائمة منسدلة في الورقة 1 مثلا ونفس القائمة المنسدلة بالورقة 2 ايضا عندما اغير خيار في الورقة 1 اريده ان يتغير في اورقة 2 اوتوماتيكيا ايضا و العكس صحيح قائمة منسدلة.xlsx

السلام عليكم هل من حل لهذا الملف الرجاء من الاخوة الافاضل الافادة كما عمودتمونا و شكرا لكم

السلام عليكم المطلوب : العمودين a و e تحتهما فراغ .. اريد في الجدول الاسفل ان يعطيني الاعداد او الحروف الموضوعة في المجال a الى I كما هو موضح في المثال مهما كانت عدد واحد او اثنين الى غاية نهاية المجال ويمنعني من كتابة هذه الاعداد او الحروف في العمود الذي يمثل الحرف الذي تحته فراغ اي في هذا المثال a و e test.xlsx

بارك الله فيك اخي لقد قمت بالحل

شكرا اخ سليم لكن ما اريه هو ان كتبت اي رقم من ارقام القاعات في الخلية يعطيني الرقم الملون بالاصفر اي الرقم الاول من كل صفc85 مثلا ا اذا كتبت اي رقم من العمود 3 من اي جدول يعططيني الرقم الملون بالاصفر من هذا الجددول ةو هكذا لكل الجداول و قد ارفقت 12 جدولا اصحح الصف 3 وليس العمود3 My_if.xlsx