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