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