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

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