saad abed قام بنشر مايو 13, 2011 قام بنشر مايو 13, 2011 الاخوة الافاضل اعضاء منتدانا الغالى اريد ظهور اسماء الشيتات التى تضاف للعمل بعد اللوراق الموجوده بمعنى ظهور كل اللوراق ماعدا الداتا والمين والناسخة والتقارير Book2.rar
دغيدى قام بنشر مايو 13, 2011 قام بنشر مايو 13, 2011 أخى الفاضل / سعد باشا عابد السلام عليكم حسب ما فهمت وضعت كودا للإخفاء الأوراق الأربعة المشار اليهم ** الكود للأستاذ /عماد الحسامي ** Book2.rar
saad abed قام بنشر مايو 13, 2011 الكاتب قام بنشر مايو 13, 2011 اخى الفاضل استاذى جمال دغيدى والله انت دائما سباق بالخير هذا الطلب الذى قدمته هو ما كنت اطلبه فى المره القادمه فشكرا لك على كل حال ما اطلبه الان ظهور اسما الشيتات باسثناء اربع اوراق فى الجدول المبين تحت اسم العميل وشكرا لك اخى الفاضل على سرعة ردكم جزاكم الله خيرا واصلح الله بالكم اخوك سعد عابد
دغيدى قام بنشر مايو 13, 2011 قام بنشر مايو 13, 2011 الأخ الفاضل / سعد عابد سلام الله عليكم وضج اخى العزيز على الجدول من فضلكم
saad abed قام بنشر مايو 13, 2011 الكاتب قام بنشر مايو 13, 2011 (معدل) اخى دغيدى العمل هو برنامج للعملاء كل عميل له شيت صفحة الارصدة اريد ظهور اسماء العملاء ( اسماء الاوراق باستثناء المخفى) حتى اظهر رصيده المدين والدائن ومنهم الرصيد الحالى للعميل والتوضيح فى المرفق وجزاك الله خيرا اخوك سعد عابد Book2.rar تم تعديل مايو 13, 2011 بواسطه سعد عابد
عبد الفتاح كيرة قام بنشر مايو 13, 2011 قام بنشر مايو 13, 2011 (معدل) السلام عليكم اسمحوا لى بالمساهمة معكم هذا الكود يظهر أسماء كل الشيتات التى هى بعد شيت التقارير Sub ViewAfter4() On Error Resume Next For i = 8 To ThisWorkbook.Sheets.Count shn = Sheets(i - 3).Name Cells(i, 3) = shn Next i End Sub و يلصقها فى الجدول kemas55.rar تم تعديل مايو 13, 2011 بواسطه kemas
saad abed قام بنشر مايو 13, 2011 الكاتب قام بنشر مايو 13, 2011 (معدل) اخى كيماس (ابوعمر) اسمح لى يا استاذى ان اقدم لك شكرى واعتزازى فهذا هو المطلوب بالضبط وشكرا لك وجزاك الله خيرا ولكن هناك ملحوظة الكود لا يضيف بعد الورقة k8 اعلم ان i=8 تعن رقم صف بداية الاضافة Cells(i, 3) = shn تعنى الصف الثامن والعمود الثالث shn = Sheets(i - 3).Name هل تعنى عدد الورق الى لن يظهر واذا اردت زيادة الورق المرغوب فى عدم ظهوره فاين اعدل وكيف تظهر كل الاوراق الباقية =250 ورقة ارجو ان يتسع صدرك لى اخوك فى الله سعد عابد الشكر موصول لاستاذى دغيدى واسف لانى كنت ضعيف فى توصيل المعلومة تم تعديل مايو 13, 2011 بواسطه سعد عابد
عبد الفتاح كيرة قام بنشر مايو 14, 2011 قام بنشر مايو 14, 2011 (معدل) أخى الفاضل / أبو عمر الله ينور عليك وعلى والديك أنا قاعد وفاضى .. ومستمتع بالفرجة استبدلت ( x ) بلفظ الجلالة فكانت روعة أخى الفاضل أستاذ سعد عندما تضيف شيتا جديدا سيضاف تلقائيا للقائمة عند إعادة تنفيذ الماكرو بالضغط على الزر قيمة المتغير تبدأ من 8 وتصل إلى ThisWorkbook.Sheets.Count و هو عدد الشيتات فى المصنف جرب أن تضيف شيتا آخر ثم أعد تنفيذ الماكرو موفق بإذن الله تم تعديل مايو 14, 2011 بواسطه kemas
احمدزمان قام بنشر مايو 14, 2011 قام بنشر مايو 14, 2011 السلام عليكم و رحمة الله وبركاته عندي اقتراح اذا سمحتم اخي سعد نحنه ممكن نحدد عدد 7 او 8 خلايا في ورقةDAT او ورقة MAIN ونحط فيها اسماء الشيتات التي لا نريدها ان تظهر ونعمل الكود بحيث يأخذ اسم الورقة و يتأكد انه مو موجود في هذه الخلايا ويضعة في الصف هذا مجرد اقتراح مع التحية و التقدير للجميع
الحسامي قام بنشر مايو 14, 2011 قام بنشر مايو 14, 2011 السلام عليكم بعد اذن اخوتي واحبتي اخي كيماس عدد الشيتات تبدأ من 5 وبالتالي اذا تم البدأ من 8 سيتم تجاهل اخر 3 صفحات الكود يجب ان يكون على الشكل التالي : For i = 5 To ThisWorkbook.Sheets.Count Cells(i + 3, 3) = Sheets(i).Name Next i اخي ابو يعقوب فكرة واقتراح تلبي المطلوب تماما وتعطي نفس النتائج بشكل صحيح بارك الله فيك
عبد الفتاح كيرة قام بنشر مايو 14, 2011 قام بنشر مايو 14, 2011 (معدل) عليكم السلام و رحمة الله أخى الفاضل و أستاذى الكبير عماد الحسامى جزاك الله خيرا على التعديل الكود يعطى نتائج صحيحة حسب طلب الأخ السائل لكن المفقود فعلا هى الأوراق الثلاثة الأخيرة التعديل بزيادة 3 إلى أقصى عدد الشيتات Sub ViewAfter4() On Error Resume Next For i = 8 To ThisWorkbook.Sheets.Count + 3 shn = Sheets(i - 3).Name Cells(i, 3) = shn Next i End Sub وفق الله الجميع kemas525.rar تم تعديل مايو 14, 2011 بواسطه kemas
saad abed قام بنشر مايو 15, 2011 الكاتب قام بنشر مايو 15, 2011 اخى ابويعقوب(احمد زمان) جزاك الله خيرا ودمتم بخير والاقتراح جيد لكن اسماء الاوراق كثيرة ومتغيرة اخى عماد الحسامى جزاك الله خيرا والكود شغال بنسبة 100% اخى كيماس (ابوعمر) التعديل الاخير مضبوط ويعمل بكفاءة وهو يساوى عمل كود الحسامى سؤال اخير واعزرونى لجهلى بالبرمجة كيف ازيد عدد الاوراق التى لا تظهر ورقة k1 ورقة الارصدة يجب الا تظهر شكرا لكم وجزاكم الله جميعا خيرا اسال الله ان تكون مساعدتى فى ميزان حسنات كلا منكم اخوكم سعد عابد
الحسامي قام بنشر مايو 15, 2011 قام بنشر مايو 15, 2011 السلام عليكم اخي كماس اخي سعد عدل الكود على النحو التالي For i = 6 To ThisWorkbook.Sheets.Count Cells(i + 2, 3) = Sheets(i).Name Next i
saad abed قام بنشر مايو 15, 2011 الكاتب قام بنشر مايو 15, 2011 اخى عماد الحسامى كلمات الشكر قليلة على مساندتك الدائمة جزاك الله خيرا واسأل الله ان ينعم عليك بالصحة والعافية والستر اللهم امين الشكر موصول لاخونا ابوعمر وانا عارف انها ايام امتحانات كان الله فى العون
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.