jack305

السلام عليكم اريد دالة تجمع محتوى خلايا معينة في خلية واحدة وقد ارفقت مثالا علما اني استعمل اوفيس 2007 دالة نص.xlsx

شكرا اخ سليم

.... شكرا على الردود ....شكرا اخ سليم..... هل يمكن ان يشتغل اوتوماتيكيا دون زر.. الكود يعمل لكن اريده ان يشتغل اوتوماتيكيا

الكود لا يعمل ما اريده اخفاء واظهار الاعمدة الملونة ورقة 2اوتوماتيكيا بشرط من الورقة 1 b7=0 اذا كان e اخفاء العمود اظهاره اوتوماتيكيا اذا زال الشرط e7=0 اذا كان h اخفاء العمود اظهاره اوتوماتيكيا اذا زال الشرط h7=0 اذا كان k اخفاء العمود اظهاره اوتوماتيكيا اذا زال الشرط j7=0 اذا كان n اخفاء العمود اظهاره اوتوماتيكيا اذا زال الشرط m7=0 اذا كان q اخفاء العمود اظهاره اوتوماتيكيا اذا زال الشرط M.xlsm

االسلام عليكم اريد حذف الاعمدة اوتوماتيكيا و عودتها اوتوماتيكيا بشرط اذا كان b7 في الورقة 3 يساوي 0 يحذف العمود E M.xlsm

شكرا

جزاك الله عنا خيرا هذه الصفوف لا يمكن لصقها ها من الممكن تعديل هذا الكود ب ليعمل حيث عند النقر بخلية ما يبدا منها التوليد و يكون يشمل الاعمدة وشكرا Sub AutoNumbering() ActiveCell = ActiveCelltiveCell NS: A = Application.InputBox("أدخل أول ر قم في السلسلة التي تريد إنشاؤها", "أول رقم") B = Application.InputBox("أدخل آخر ر قم في السلسلة التي تريد إنشاؤها", "آخر رقم") If A = False Or B = False Then Exit Sub ElseIf A = "" Or B = "" Then MsgBox "!تأكد من إدخال الأرقام بشكل صحيح", vbExclamation, "إدخال خاطئ" Else If [IV65536] = 1 Then ActiveCell = A Else: Columns(4).Rows(65536).End(xlUp).Select If ActiveCell = "" Then ActiveCell = A Else: ActiveCell.Offset(1, 0).Select Selection = A End If End If ActiveCell.DataSeries xlColumns, , , 1, B End If If Application.WorksheetFunction.CountA(Columns(ActiveCell.Column)) = 1 Then ActiveCell.ClearContents Beep If MsgBox("أول رقم في السلسلة أكبر من آخر رقم .. هل تود إعادة المحاولة؟", vbQuestion + vbYesNo, "إدخال خاطئ") = vbNo Then Exit Sub Else: GoTo NS End If End If Beep If MsgBox("هل تود إنشاء سلسلة رقمية أخرى؟", vbYesNo + vbQuestion, "إنشاء سلسلة أخرى") = vbNo Then Exit Sub Else: GoTo NS End If End Sub

شكرا اخي الفاضل الجدول يعمل وشكرا .... جزاك الله عنا خير

السلام عليكم اريد عمل جدول ديناميكي يتغير حسب المعطيات وقد ارفقت مثالا فيه عدد القاعات و عدد الحراس حيث اذا كان عدد الحراس 3 و عدد القاعات 4 اريد ان يتكرر عدد القاعات حيث يوجد 3 من السطر 1 و 3 من السطر 2 و3 من السطر 3 و3 من السطر4 و ادا غيرنا احد العددين يتغير الجدول تلقائيا حسب المعطيات و شكرا لكم 7.xlsx

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

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

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

الرجاء من الاخوة طريقة للتعديل على هذا الملف قائمة منسدلة بقائمة المواد و في عمود كل مادة هناك ارقام من 1 الى 8 و من 101 الى 108 اريد عندما اغير المادة تظهر الاسماء المرتبطة بهذه الارقام و التي تختلف من مادة لاخرى وشكرا لقد ارفقت ملفا بالمطلوب 0000.xlsx

شكرا اخي رغم عجزي في تعديله

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

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

اغلب التنسيق الشرطي الذي اعمل به هو مثلا الخلية***لا تساوي 0 لون اصفر او الخلية ***تساوي "" لون احمر الخلية***= عدد ما لون اخضر اريد فقط ماذا اضيف للكود السابق في هذه الحالات الثلاث ان امكن اخي

هل اقوم باضافة كود اخر ام اعدل الكود الذي ارفقته

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

حفظك الله من كل سوء فقط سؤال.... ان اردت اضافة تنسيقات شرطية لا يحذفها الكود عند الضغط ......كيف افعل

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

شكرا لك اخي افاضل ادامك الله اخي هل يمكن تعديل الكود واظافة تنسيق شرطي اخر يقوم بتظليل الخلايا الفارغة باللون الاسود..................................تفضلا منك اخي اي يظهر فقط الجزء الذي يحتوي اسماء و الباقي اسود و شكرا

اخي من فضلك اضف الكود على هذه الورقة. هل من الممكن ان حذفنا اسم تحذف معه جميع المعطيات التي في نفس السطر 9.xlsm

ليس هذه الورقة اخي بل ورقة بيانات الحراس ارفقت صورة

اخي الفاضل هل يمكنك وضع هذا الكود في هذا الملف فضلا منك في ورقة بيانات الحراس 8.xlsm