AL_AYMAN

السادة الافاضل

جزاكم الله كل الخير 

ولكن لى استفسار هل ممكن تحديد امتداد فقط بدون ذكر اسم ملف وعند تحديد الامتداد يتم حذف كل الملفات التى لها نفس الامتداد

وشكرا

برجاء مساعدتى فى تفعيل هذا الكود لاحتياجى له بشدة 

قمت بتغيير التاريخ وتغيير الوقت وللاسف لم يعمل

السادة الزلاء

تحية طيبة

مرفق ادناه كود يقوم بحفظ الملف فى مكان اخر على الهارد وباسم اخر ويضع له كلمة مرور

ولا يتم فتحة بعد فترة تكون  محددة داخل الكود ولكن الكود لا يعمل

اى لا يتم خفظ الملف فى مكان اخر وحذف الملف الاصلى ولا يتك وضع كلمة مرور

برجاء مساعدتى لاننى فى حاجة ماسة لهذا الكود وباقصى سرعة 

وجزاكم اللة كل الخير 

هذا هو الكود

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Date = #7/27/2014# And Time >= #12:17:00 AM# Then
ThisWorkbook.SaveAs "C:\AYMAN.xls", FileFormat:=xlNormal, Password:="123"
End If
End Sub

AAA.rar

السادة الزملاء

مرفق كود لاخفاء واظهار الصفوف بناء على قيمة الخلية = 0

ولكن الكود لا يعمل عند حماية الملف ولا اعرف كيف اجعلة يعمل

وايضا اريد ان اضيف شرط فى الكود وهو عند الاظهار ان يظهر الخلايا التى لا تساوى 0 

برجاء افادتى بالحل لاننى احتاجة ضرورى جدا وهذا هو الكود

وشكرا

استاذ ابرهيم

جرب ان تضع شرطاً انه في حال كان  last  اكبر من 99950 فإن  i تبقى كما هي

و ارجغ قيمة   i =4  لتبدأ عملها في اخر  50 اسم

                                                                       والله أعلم

اخى الكريم

ممكن حضرتك تضيف الشرط فى الكود لاننى لن استطيع اضافتة 

وشكرا

اخى الكريم

الاستاذ سليم

الكود اكثر من رائع وجزاك الله كل الخير

ولكن  يستغرق وقت طويل جدا لاننى اقوم بتفعيلة على ورقة عمل بها حوالى 100,000 صف 

هل هناك طريقة لتسريع  عملية الخذف ومع اننى وضعت  last=last-1  بعد i=4

وشكرا

السادة الافاضل 

سلام الله عليكم

لدى ملف اكسل بة حوالى 100 ورقة عمل 

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

اى ان يكون مثلا لكل زر 10 اوراق او اكثر فى القائمة المنسدلة من هذا الزر وان  استطيع ان احددهم انا 

وجزاكم الله كل الخير

استاذى الحبيب العيدروس

ارجو من الله ان تكون فى احسن حال ولى استفسار بسيط 

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

لانى كانت اسئلتى وطلباتى كثيرة  

فارجوا ان يتسع صدركم لى فى طلبى هذا

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

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

اسف لاننى اثقل عليك مرة اخرى ولكن هذا ما عهدتة فيكم وفى هذا المنتدى الرائع

وفى انتظار ردكم

وجزاكم الله خير

استاذى الحبيب العيدروس

ارجو من الله ان تكون فى احسن حال ولى استفسار بسيط 

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

لانى كانت اسئلتى وطلباتى كثيرة  

فارجوا ان يتسع صدركم لى فى طلبى هذا

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

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

اسف لاننى اثقل عليك مرة اخرى ولكن هذا ما عهدتة فيكم وفى هذا المنتدى الرائع

وجزاكم الله خير

اخوانى الكرام

جزاكم الله كل الخير على الاهتمام بالموضوع والرد على سؤالى

وانا بالفعل اقوم بتفعيل الملف لدى 26 فرع على Google drive

,وانها فكرة ممتازة وان واجهتنى مشكلة فسامحونى

ان رجعت لكم بسؤال اخر

واشكركم جميعا اخوانى على المشاركة الطيبة منكم

وجزاكم الله كل الخير

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

السادة الزملاء الكرام

لى سؤال ولا اعرف هل يمكن ام لا الفكرة باختصار

عندى ملف اكسل عبارة عن ارصدة المخازن ( الصنف والكمية )

هذا الملف  يوجد عند 26 فرع من فروع الشركة أقوم كل يوم بتجميع هذه الملفات من على الميل

وانا قد قمت بعمل لينكات بين هذه الملفات لتقوم بالتجميع

السؤال هنا

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

SkyDrive أو  لSharpoint   لا اعرف ؟

ويتم فتح الملف عند اكثر من مستخدم فى نفس الوقت ويقوم كل مستخدم بوضع بياناته فية ( الارصده )  حسب بيانات كل فرع فى ملف الاكسل فى العمود  المحدد له

واستطيع انا ان افتح الملف من عندى وارى كل البيانات التى توضع فى الملف واستطيع التعامل مع هذا لملف

هل يمكن ام لا و ما البديل عن عمل لينكات بين الملفات حتى استطيع ان ارى البيانات لحظة بلحة عن طريق النت

وشكرا لكم

الارصده.rar

اخى واستاذى الكريم عباد

انا لا اجد كلام اشكرك به

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

معى على حل مشكلتى التى ستساعدنى كثيرا بدرجه لا تتخيلها

وبفضل الله الكود يعمل وبصورة ممتازة واكثر من ممتازة وهذا ما كنت اريده بالضبط

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

اشكرك اشكرك اشكرك

وربنا يتقبل منى دعائى  الذى ادعو به لك بظهر الغيب

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

اشكرك واشكر هذا المنتدى المحترم واشكر الاستاذ طارق محمود لانه شارك فى حل هذه المشكلة

اشكرك اشكرك اشكرك اشكرك اشكرك اشكرك وجزاك الله كل الخير

الكود شغال والارقام صحيحة 100% وربنا يكرمك

وارجو ان يتسع صدرك لى وانا اعرف انى اثقلت عليك باسئلتى وبضعف خبرتى

ولكن ممكن حضرتك تتاكد من شيت اسمة ( المبيعات اليومية بالتفصيل ) هل يتم الترحيل فيه هل  يوجد فية اى بيانات

لان كل اوراق العمل يتم ترحيلها بنجاح الا هذا الشيت يكون فارغ لا يوجد فيه اى شىء

ولا اعرف السبب حتى اننى غيرت الملف الاساسى وعملت ملف جديد ولكن ظلت هذه المشكلة

ان شاء الله بهذه النقطة نكون قد انتهينا من هذه المشكلة التى ارهقتك بها وازعجتك بها كثيرا

وانا اسف جدا

وشكرا

استاذى الكريم

تسلم ايدك على هذا العمل الرائع

ولا اعرف كيف اشكرك على استجابتك

ولكن انا اسف جدا ان الكود يعمل ويرحل البيانات وهو فى  اول ملف ينقل حوالى 5 ورقات عمل ثم يتوقف

ويعطى رسال محتواها

Run time error'6

overflow

وعند الضغط على Debug

ويتم تحديد For i = 2 To L_A  فى الكود من خلال رسالة توقف الكود

وايضا تم وضع اسم الملف بجانب البيانات ولكن يتم وضع اسم ورقة العمل فى نفس الالعمود مع اسم الملف

( مثلا Data file1 خصم نقدى ) هل من الممكن ان ياتى باسم الملف فقط ان كانت ستأخذ وقت من حضرتك ومرهقة فال تتعب نفسك ممكن اعالجها يدويا

ولكن المهم ان يستمرالكود فى العمل بدون توقف مع العلم ان نفذت ما طلبتة

وهو كل الملفات واوراق العمل تبدا من الصف الثانى

وكل اوراق العمل بكل الملفات بنفس الاسم ونفس الترتيب

وشكرا جزيلا

اولا اشكرك اخى لسرعة ردك على مشكلتى

 ثانيا عدد الاعمده بحد اقصى 35 عمود لان  عدد الاعمدة فى الاوراق مختلف

ولا تنسى اخى الكريم فى اسم الملف بجوار البيانات الخاصة به

وجزاك الله خيرا

اخوانى الكرام

الاستاذ طارق محمود  والاستاذ عباد

سلام الله عليكم

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

فانا اسف جدا على كثرة اسئلتى

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

ولا يتبقى الا النقاط التى ذكرتها سابقا

واشكركم جدا لمساعدتكم لى

اخوانى الكرام

الاستاذ طارق محمود  والاستاذ عباد

سلام الله عليكم

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

ولكن شىء مهم جدا وهو

1-ان يتم كتابة اسم الملف بجوار البيانات الخاصة فى اخر عمود بجوار البيانات حتى استطيع العمل على الملف وافرق بين بيانات كل فرع

2-ان البيانات لا ترحل كاملة بالعرض اى اذا كان مدى البيانات الى AA2  او اكثر

وللعلم ان البيانات التى اقوم بترحيلها كبيرة جدا اى من الممكن ان يكون الشيت به 30,000 صف او اكثر وحوالى 30 عمود

وهل الكود يعمل على اسم الورقة  لى يتم نقل البيات التى فى الورقة 1 فى الورقة 1 ام حسب ترتيب الاوراق

اشكركم جدا جدا جدا على تجاوبكم معى فى حل مشكلتى وفى اننى اتعلم منكم جميعا كل من فى هذا المنتدى الرائع

فى انتظار هذا التعديل

وجزاكم الله كل الخير

اخوانى الكرام

سلام الله عليكم

اولا اشكركم شكرا جزيلا على اهتمامكم بحل مشكلتى

وجزاكم الله خيرا

ثانيا ان الملف اخى طارق عند الضغط على الزر تظهر لى رسالة تفيد بحفظ الملف ام لا ثم وعندما ارفض الحفظ ياتى لى فى كل ورقة

عمل باسم المحافظة فقط ولا يتم ترحيل بيانات

وبالنسبة لاخى الكريم عباد تسلم الايادى ولكن

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

ومع كل هذا فانا شاكر لكم ولا اعرف فمن الممكن ان يكون الخطأمنى أنا وليس انتم

والذى افعلة هو كما قال اخى طارق أتأكد من ان جميع الملفات فارغ ثم اضغط على الزر

وافعل فى كود اخى عباد

افتح VBA   ثم اقوم بعمل New Module  واقوم بنسخ الكود فية ثم اقوم بتشغيلة

هذا ما افعلة

اسف جدا ولكن هذا الموضوع مهم جدا بالنسبة لى لاننى افعلة يدويا ويحتاج منى 48 ساعة عمل وعرضة للخطأ

فارجو منكم ان يتسع صدركم لى ولامكانياتى المتواضعة وكثرة اسئلتى

وجزاكم الله كل الخير

اخوانى الكرام

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

وانا فى انتظاركم

وشكرا

اخى الكريم 

انا فى انتظار ردك على وقد ارفقت لك نموذج من الملفات

وجزاك الله خيرا

http://www.mediafire.com/download/1qdwog0r0r7ak9n/Data_file.rar

Data file.rar

السادة الزملاء

سلام الله عليكم 

عندى  فولدر به ملف اكسل اسمه ALL ويوجد26 ملف اكسل اخر فى كل ملف اكسل 14 ورقة عمل  وهذه الاوراق مكررة فى جميع الملفات وبنفس الاسم الذى يختلف هو اسم الملف فقط والبيانات التى توجد فية 

ونفس اوراق العمل هذه توجد فى ملف ALL 

اريد ترحيل كل اوراق العمل من 26 ملف والتى لها نفس الاسم فى جميع الملفات الى ملف ALL  تحت بعض كل 

بدون تكرار اول صف فى كل ورقة عمل لان اول صف يكون راس لكل عمود

لان تجميع هذه الملفات بالطريقة العادية تستغرق وقت ومجهود غير عادى وعرضة للخطأ

فانا فعلا محتاج لحل هذه المشكلة والتى ان شاء الله سأجدها معكم كما تعودت منكم

ومرفق نموذج من هذه الملفات

وجزاكم الله خير

Data file.rar

اخى الكريم 

بارك الله فيك وجزاك الله كل خير

عمل ممتاز واكثر من رائع

ولكنى لم استطيع تنفيذه فى الملف الخاص بى 

ولكى ارسل الملف اليك حجمة كبير يصل الى 25 ميجل بعد الضغط

ولا اعرف كيف اتعامل مع الازرار التى فى القائمة لان خبرتى محدوده

فماذا افعل 

افادك الله 

وشكرا لك

ما زلت منتظر ردكم ومساعدتكم لى

وشكرا