أسامة عطاالله قام بنشر أغسطس 6, 2014 مشاركة قام بنشر أغسطس 6, 2014 السلام عليكم اساتذتى الكرام الملف المرفق من تجميع هذا المنتدى العملاق واجهتنى مشكلة بة عند اضافة اسماء واستدعاء بيانتها تفتح صفحة للحساب وهكذا عند اضافة اى اسم تفتح صفحة خاصة بة للحساب المشكلة تكمن في زيادة اسماء العملاء بالتالى تزيد الصفحات وعندها حجم الملف يزداد ويصعب الحفظ ويصعب فتح وغلق الملف ( الملف ممكن يصل بة عدد العملاء الى 1500 عميل ) هل يوجد حل لهذة المشكلة هل ممكن تضاف كود لصفحة sample عند الضغط علية يحذف صفحة العميل الفارغة من الحسابات واريد كود اخر لعدم زيادة الحسابات او العملاء الى 700 عميل وعند اضافة عملاء اخرين عن 700 يرفبرنامج اضافتهم ملحوظة رقم فتح الملف 1 لكم جزيل الشكر والتقدير 2014.rar رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر أغسطس 7, 2014 مشاركة قام بنشر أغسطس 7, 2014 السلام عليكم ورحمة الله وبركاته اخى اسامه تم عمل المطلوب الخاص كود حزف الصفحات الفارغه وتم تحديد الخليه b7 هى الخليه التى يتم حزف الصفحه بناء على وجود بيانات بها ام الا بمعنى ان الخليه b7 لو كانت بها بيانات لا يتم حزف الشيت اما لو كانت فارغه يتم حزف الشيت يتم حزف الشيتات الفارغه عند فتح الملف ......................................................................................................... يرجى تجربة الكود جيدا قبل الاستخدام ................................................ تقبل تحياتى 2014-1.rar رابط هذا التعليق شارك More sharing options...
أسامة عطاالله قام بنشر أغسطس 7, 2014 الكاتب مشاركة قام بنشر أغسطس 7, 2014 السلام عليكم اخى واستاذى الفاضل / إبراهيم ابوليله لا توجد كلمات اصف بها شكرى وامتنانى ابسط كلمة تقال شكرا لمجهود اخى العزيز جعلة الله في ميزان حسناتك كنت طمعان في كرم حضرتك لو امكن تحديد عدد العملاء الى 700 العملاء تكتب في العمود a في الصفحة الرئيسية سوال هل هذا هو الكود المستخدم في حذف الاوراق هل يوجد اى اكواد في الملف خاصة بالحذف غيرة ولا هذا هو فقط Sub DEL_sh() Application.DisplayAlerts = False Dim sh As Worksheet For Each sh In ThisWorkbook.Sheets 'هنا نفترض ان الورقة الأولى هي الرئيسية If sh.Name <> Sheets("الرئيسية").Name And sh.Name <> Sheets("sample").Name And sh.Cells(7, 2) = "" Then sh.Delete Else 'sh.Visible = xlSheetVisible End If Next End Sub شكرا جزيلا تقبل تحياتى رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر أغسطس 7, 2014 مشاركة قام بنشر أغسطس 7, 2014 السلام عليكم ورحمة الله وبركاته اخى اسامه اشكرك على الكلمات الجميله جعل الله اعمالنا خالصه لوجهه الكريم ------------------------------------ بالفعل اخى اسامه هذا الكود هو الكود المختص بالحزف ............................................................. ان شاء الله اخى سوف احاول عمل المطلوب تقبل تحياتى 1 رابط هذا التعليق شارك More sharing options...
أبو العاصم قام بنشر أغسطس 7, 2014 مشاركة قام بنشر أغسطس 7, 2014 ممكن تخلى كل العملاء فى شيت واحد وعدد من الشيتات الفرعية تحوى = فواتير البيع = تسديدات نقدية أو بنكية = تسويا جردية وضريبية = أرصدة إفتتاحية ====== تضاف إليه كل فواتير البيع تسديدات نقدية أو بنكية تسويا جردية وضريبية أرصدة إفتتاحية وتختار كل عميل بالعمله الفرعية الخاصة بيه ودى أسهل الطرق اللى أنا واجهت بيها هذه المشكلة وتختار كل عميل بالعمله الفرعية الخاصة بيه رابط هذا التعليق شارك More sharing options...
أسامة عطاالله قام بنشر أغسطس 7, 2014 الكاتب مشاركة قام بنشر أغسطس 7, 2014 ممكن تخلى كل العملاء فى شيت واحد وعدد من الشيتات الفرعية تحوى = فواتير البيع = تسديدات نقدية أو بنكية = تسويا جردية وضريبية = أرصدة إفتتاحية ====== تضاف إليه كل فواتير البيع تسديدات نقدية أو بنكية تسويا جردية وضريبية أرصدة إفتتاحية وتختار كل عميل بالعمله الفرعية الخاصة بيه ودى أسهل الطرق اللى أنا واجهت بيها هذه المشكلة وتختار كل عميل بالعمله الفرعية الخاصة بيه موجود ملف لديك بما تقولة ولا حضرتك عايز تعديل هذا الملف ولو موجود لديك ملف اذا تكرمت ارسل الملف شكرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان