اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

السلام عليكم

اساتذتى الكرام الملف المرفق من تجميع هذا المنتدى العملاق

واجهتنى مشكلة بة

عند اضافة اسماء واستدعاء بيانتها تفتح صفحة للحساب وهكذا عند اضافة اى اسم تفتح صفحة خاصة بة للحساب

المشكلة تكمن في زيادة اسماء العملاء بالتالى تزيد الصفحات وعندها حجم الملف يزداد ويصعب الحفظ ويصعب فتح وغلق الملف ( الملف ممكن يصل بة عدد العملاء الى 1500 عميل )

هل يوجد حل لهذة المشكلة

هل ممكن تضاف كود لصفحة  sample  عند الضغط علية يحذف صفحة العميل الفارغة من الحسابات

واريد كود اخر لعدم زيادة الحسابات او العملاء الى 700 عميل وعند اضافة عملاء اخرين عن 700 يرفبرنامج اضافتهم

ملحوظة رقم فتح الملف   1

لكم جزيل الشكر والتقدير

2014.rar

قام بنشر

السلام عليكم ورحمة الله وبركاته

اخى اسامه

تم عمل المطلوب الخاص

كود حزف الصفحات الفارغه

وتم تحديد الخليه  b7
هى الخليه التى يتم حزف الصفحه بناء على وجود بيانات بها ام الا

بمعنى ان الخليه b7 لو كانت بها بيانات لا يتم حزف الشيت

اما لو كانت فارغه يتم حزف الشيت

يتم حزف الشيتات الفارغه عند فتح الملف

.........................................................................................................

يرجى تجربة الكود جيدا قبل الاستخدام

................................................

تقبل تحياتى

2014-1.rar

قام بنشر

السلام عليكم

اخى واستاذى الفاضل / إبراهيم ابوليله 

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

جعلة الله في ميزان حسناتك

كنت طمعان في كرم حضرتك

لو امكن تحديد عدد العملاء الى 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

 

شكرا جزيلا

تقبل تحياتى

 

قام بنشر

السلام عليكم ورحمة الله وبركاته

اخى اسامه

اشكرك على الكلمات الجميله

جعل الله اعمالنا خالصه لوجهه الكريم

------------------------------------

بالفعل اخى اسامه هذا الكود هو الكود المختص بالحزف

.............................................................

ان شاء الله اخى سوف احاول عمل المطلوب

تقبل تحياتى

  • Like 1
قام بنشر

ممكن تخلى كل العملاء فى شيت واحد

وعدد من الشيتات الفرعية تحوى 

= فواتير البيع

= تسديدات نقدية أو بنكية

= تسويا جردية وضريبية

= أرصدة إفتتاحية 

====== تضاف إليه كل 

فواتير البيع

تسديدات نقدية أو بنكية

تسويا جردية وضريبية أرصدة إفتتاحية 

وتختار كل عميل بالعمله الفرعية الخاصة بيه

ودى أسهل الطرق اللى أنا واجهت بيها هذه المشكلة 

وتختار كل عميل بالعمله الفرعية الخاصة بيه

قام بنشر

ممكن تخلى كل العملاء فى شيت واحد

وعدد من الشيتات الفرعية تحوى 

= فواتير البيع

= تسديدات نقدية أو بنكية

= تسويا جردية وضريبية

= أرصدة إفتتاحية 

====== تضاف إليه كل 

فواتير البيع

تسديدات نقدية أو بنكية

تسويا جردية وضريبية أرصدة إفتتاحية 

وتختار كل عميل بالعمله الفرعية الخاصة بيه

ودى أسهل الطرق اللى أنا واجهت بيها هذه المشكلة 

وتختار كل عميل بالعمله الفرعية الخاصة بيه

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

ولو موجود لديك ملف اذا تكرمت ارسل الملف

شكرا

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information