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

AL_AYMAN

02 الأعضاء
  • Posts

    57
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو AL_AYMAN

  1. السادة الافاضل جزاكم الله كل الخير ولكن لى استفسار هل ممكن تحديد امتداد فقط بدون ذكر اسم ملف وعند تحديد الامتداد يتم حذف كل الملفات التى لها نفس الامتداد وشكرا
  2. برجاء مساعدتى فى تفعيل هذا الكود لاحتياجى له بشدة Private Sub Workbook_BeforeClose(Cancel As Boolean) If Date = #10/13/2014# And Time >= #3:40:00 PM# Then ThisWorkbook.SaveAs "C:\MZM.xls", FileFormat:=xlNormal, Password:="123" End If End Sub
  3. السادة الزلاء تحية طيبة مرفق ادناه كود يقوم بحفظ الملف فى مكان اخر على الهارد وباسم اخر ويضع له كلمة مرور ولا يتم فتحة بعد فترة تكون محددة داخل الكود ولكن الكود لا يعمل اى لا يتم خفظ الملف فى مكان اخر وحذف الملف الاصلى ولا يتك وضع كلمة مرور برجاء مساعدتى لاننى فى حاجة ماسة لهذا الكود وباقصى سرعة وجزاكم اللة كل الخير هذا هو الكود 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
  4. السادة الزملاء مرفق كود لاخفاء واظهار الصفوف بناء على قيمة الخلية = 0 ولكن الكود لا يعمل عند حماية الملف ولا اعرف كيف اجعلة يعمل وايضا اريد ان اضيف شرط فى الكود وهو عند الاظهار ان يظهر الخلايا التى لا تساوى 0 برجاء افادتى بالحل لاننى احتاجة ضرورى جدا وهذا هو الكود وشكرا Sub show_B() Application.ScreenUpdating = False Rows("9:350").Select Selection.EntireRow.Hidden = False Range("a3").Select Application.ScreenUpdating = True End Sub Sub Hidden_B() Application.ScreenUpdating = False Range("b9:b350").Select For Each cell In Selection If cell.Value = 0 Or cell.Value = "" Then cell.EntireRow.Hidden = True End If Next cell Range("a3").Select Application.ScreenUpdating = True End Sub
  5. اخى الكريم ممكن حضرتك تضيف الشرط فى الكود لاننى لن استطيع اضافتة وشكرا
  6. اخى الكريم الاستاذ سليم الكود اكثر من رائع وجزاك الله كل الخير ولكن يستغرق وقت طويل جدا لاننى اقوم بتفعيلة على ورقة عمل بها حوالى 100,000 صف هل هناك طريقة لتسريع عملية الخذف ومع اننى وضعت last=last-1 بعد i=4 وشكرا
  7. السادة الافاضل سلام الله عليكم لدى ملف اكسل بة حوالى 100 ورقة عمل اريد التنقل بين هذه الاوراق من خلال زر تخرج منه قائمة فيها بعض اوراق العمل واستطيع التحكم فى عدد الاوراق واسمائها لكل زر اى ان يكون مثلا لكل زر 10 اوراق او اكثر فى القائمة المنسدلة من هذا الزر وان استطيع ان احددهم انا وجزاكم الله كل الخير
  8. استاذى الحبيب العيدروس ارجو من الله ان تكون فى احسن حال ولى استفسار بسيط الكود يعمل معى وبشكل ممتاز ولكن هناك شىء بسيط جدا منذ عمل الكود ولم اريد ان اثقل عليك بالاسئلة اكثر من ذلك لانى كانت اسئلتى وطلباتى كثيرة فارجوا ان يتسع صدركم لى فى طلبى هذا وهو ان هناك تقاير معينة لفرعين بالتحديد لا يتم نقلهم الفرعين هما اكبر فرعين عندى عدد الصفوف فى التقارير كبير جدا يتجاوز 50000 صف هذه التقارير اقوم بنسخها يدويا لانها لا تترحل مع بقية القارير اسف لاننى اثقل عليك مرة اخرى ولكن هذا ما عهدتة فيكم وفى هذا المنتدى الرائع وجزاكم الله خير
  9. اخوانى الكرام جزاكم الله كل الخير على الاهتمام بالموضوع والرد على سؤالى وانا بالفعل اقوم بتفعيل الملف لدى 26 فرع على Google drive ,وانها فكرة ممتازة وان واجهتنى مشكلة فسامحونى ان رجعت لكم بسؤال اخر واشكركم جميعا اخوانى على المشاركة الطيبة منكم وجزاكم الله كل الخير
  10. السلام عليكم ورحمة الله وبركاتة السادة الزملاء الكرام لى سؤال ولا اعرف هل يمكن ام لا الفكرة باختصار عندى ملف اكسل عبارة عن ارصدة المخازن ( الصنف والكمية ) هذا الملف يوجد عند 26 فرع من فروع الشركة أقوم كل يوم بتجميع هذه الملفات من على الميل وانا قد قمت بعمل لينكات بين هذه الملفات لتقوم بالتجميع السؤال هنا هل من الممكن ان يكون هناك ملف اكسل واحد يوضع فية اسماء الفروع جميعا فى كل عمود اسم فرع معين ويوضع على النت مثلا فى SkyDrive أو لSharpoint لا اعرف ؟ ويتم فتح الملف عند اكثر من مستخدم فى نفس الوقت ويقوم كل مستخدم بوضع بياناته فية ( الارصده ) حسب بيانات كل فرع فى ملف الاكسل فى العمود المحدد له واستطيع انا ان افتح الملف من عندى وارى كل البيانات التى توضع فى الملف واستطيع التعامل مع هذا لملف هل يمكن ام لا و ما البديل عن عمل لينكات بين الملفات حتى استطيع ان ارى البيانات لحظة بلحة عن طريق النت وشكرا لكم الارصده.rar
  11. اخى واستاذى الكريم عباد انا لا اجد كلام اشكرك به ويكفى انك قد استحملتنى فى كثرة اسئلتى التى تنم عن ضعف خبرتى ومع ذلك فقط صبرت معى على حل مشكلتى التى ستساعدنى كثيرا بدرجه لا تتخيلها وبفضل الله الكود يعمل وبصورة ممتازة واكثر من ممتازة وهذا ما كنت اريده بالضبط جزاك الله خيرا وزادك من علمة فانت انسان مخلص ومحترم بجد اشكرك اشكرك اشكرك وربنا يتقبل منى دعائى الذى ادعو به لك بظهر الغيب وارجو الا تضجر منى او ينفذ صبرك معى لانى اريد ان اتعلم بجد وانى سوف اسالك انت والاخوه فى اشياء اخرى كثيرة اشكرك واشكر هذا المنتدى المحترم واشكر الاستاذ طارق محمود لانه شارك فى حل هذه المشكلة اشكرك اشكرك اشكرك اشكرك اشكرك اشكرك وجزاك الله كل الخير
  12. الكود شغال والارقام صحيحة 100% وربنا يكرمك وارجو ان يتسع صدرك لى وانا اعرف انى اثقلت عليك باسئلتى وبضعف خبرتى ولكن ممكن حضرتك تتاكد من شيت اسمة ( المبيعات اليومية بالتفصيل ) هل يتم الترحيل فيه هل يوجد فية اى بيانات لان كل اوراق العمل يتم ترحيلها بنجاح الا هذا الشيت يكون فارغ لا يوجد فيه اى شىء ولا اعرف السبب حتى اننى غيرت الملف الاساسى وعملت ملف جديد ولكن ظلت هذه المشكلة ان شاء الله بهذه النقطة نكون قد انتهينا من هذه المشكلة التى ارهقتك بها وازعجتك بها كثيرا وانا اسف جدا وشكرا
  13. استاذى الكريم تسلم ايدك على هذا العمل الرائع ولا اعرف كيف اشكرك على استجابتك ولكن انا اسف جدا ان الكود يعمل ويرحل البيانات وهو فى اول ملف ينقل حوالى 5 ورقات عمل ثم يتوقف ويعطى رسال محتواها Run time error'6 overflow وعند الضغط على Debug ويتم تحديد For i = 2 To L_A فى الكود من خلال رسالة توقف الكود وايضا تم وضع اسم الملف بجانب البيانات ولكن يتم وضع اسم ورقة العمل فى نفس الالعمود مع اسم الملف ( مثلا Data file1 خصم نقدى ) هل من الممكن ان ياتى باسم الملف فقط ان كانت ستأخذ وقت من حضرتك ومرهقة فال تتعب نفسك ممكن اعالجها يدويا ولكن المهم ان يستمرالكود فى العمل بدون توقف مع العلم ان نفذت ما طلبتة وهو كل الملفات واوراق العمل تبدا من الصف الثانى وكل اوراق العمل بكل الملفات بنفس الاسم ونفس الترتيب وشكرا جزيلا
  14. اولا اشكرك اخى لسرعة ردك على مشكلتى ثانيا عدد الاعمده بحد اقصى 35 عمود لان عدد الاعمدة فى الاوراق مختلف ولا تنسى اخى الكريم فى اسم الملف بجوار البيانات الخاصة به وجزاك الله خيرا
  15. اخوانى الكرام الاستاذ طارق محمود والاستاذ عباد سلام الله عليكم انا فى انتظار ردكم على لاننى محتاج هذا الملف فى نهاية الشهر لاقوم بالعمل به فانا اسف جدا على كثرة اسئلتى فان الكود يعمل وتسلم اياديكم على هذا المجهود الرائع ولا يتبقى الا النقاط التى ذكرتها سابقا واشكركم جدا لمساعدتكم لى
  16. اخوانى الكرام الاستاذ طارق محمود والاستاذ عباد سلام الله عليكم لقد تم عمل الكودين معى بشكل صحيح وجزاكم الله كل الخير على هذا العمل الرائع جعلة الله فى ميزان حسناتكم ولكن شىء مهم جدا وهو 1-ان يتم كتابة اسم الملف بجوار البيانات الخاصة فى اخر عمود بجوار البيانات حتى استطيع العمل على الملف وافرق بين بيانات كل فرع 2-ان البيانات لا ترحل كاملة بالعرض اى اذا كان مدى البيانات الى AA2 او اكثر وللعلم ان البيانات التى اقوم بترحيلها كبيرة جدا اى من الممكن ان يكون الشيت به 30,000 صف او اكثر وحوالى 30 عمود وهل الكود يعمل على اسم الورقة لى يتم نقل البيات التى فى الورقة 1 فى الورقة 1 ام حسب ترتيب الاوراق اشكركم جدا جدا جدا على تجاوبكم معى فى حل مشكلتى وفى اننى اتعلم منكم جميعا كل من فى هذا المنتدى الرائع فى انتظار هذا التعديل وجزاكم الله كل الخير
  17. اخوانى الكرام سلام الله عليكم اولا اشكركم شكرا جزيلا على اهتمامكم بحل مشكلتى وجزاكم الله خيرا ثانيا ان الملف اخى طارق عند الضغط على الزر تظهر لى رسالة تفيد بحفظ الملف ام لا ثم وعندما ارفض الحفظ ياتى لى فى كل ورقة عمل باسم المحافظة فقط ولا يتم ترحيل بيانات وبالنسبة لاخى الكريم عباد تسلم الايادى ولكن فان الكود عندما انسخة واضعة فى محرر الاكواد ثم اقوم بتشغيلة لا يعمل ويعطينى رسالة بانة غير قادر على تشغيل هذا الكود ومع كل هذا فانا شاكر لكم ولا اعرف فمن الممكن ان يكون الخطأمنى أنا وليس انتم والذى افعلة هو كما قال اخى طارق أتأكد من ان جميع الملفات فارغ ثم اضغط على الزر وافعل فى كود اخى عباد افتح VBA ثم اقوم بعمل New Module واقوم بنسخ الكود فية ثم اقوم بتشغيلة هذا ما افعلة اسف جدا ولكن هذا الموضوع مهم جدا بالنسبة لى لاننى افعلة يدويا ويحتاج منى 48 ساعة عمل وعرضة للخطأ فارجو منكم ان يتسع صدركم لى ولامكانياتى المتواضعة وكثرة اسئلتى وجزاكم الله كل الخير
  18. اخوانى الكرام اريد حل لهذه المشكلة ضرورى جدا وانا فى انتظاركم وشكرا
  19. اخى الكريم انا فى انتظار ردك على وقد ارفقت لك نموذج من الملفات وجزاك الله خيرا http://www.mediafire.com/download/1qdwog0r0r7ak9n/Data_file.rar
  20. اخى الكريم سلام الله عليك اولا اشكرك على اهتمامك ومساعدتك لى ثانيا لى بعض الملاحظات والاستفسارات 1- الملف الذى ارسلتة لى يعمل جيدا ولكن عند وضع الكود فى الملف الخاص بى لا يعمل يعطى لى رسالة تفيد بحفظ الملف ثم يغلق الملف 2-هل عند تغيير اسماء الملفات لن يعمل الكود لان الملفات عندى باسم كل محافظة فى مصر لان لنا فروع فى كل المحافظات 3-هل ترتيب اوراق العمل ضرورى ام ان الترحيل يحدث على اسم ورقة العمل 4-عند زيادة او نقصان اوراق العمل هل ستحدث مشكلة 5-هل يمكن ان يتم وضع اسم الملف فى اخر عمود بالبيانات التى تم ترحيلها من هذ الملف حتى نستطيع ان نفرق بين بيانات كل فرع 6-هل ممكن ان يكون الترحيل فى اول صف فارغ لتكون البيانات تحت بعض مباشرة وعدم نقل رؤس الاعمدة من كل ورقة اخى الكريم ارجو الا اكون قد اطلت عليك ولكنى اريد ان اتعلم وجزاك الله خير ومرفق ملف به بعض اسماء الفروع لاننى لم استطيع ارفاق جميع الملفات Data file.rar
  21. السادة الزملاء سلام الله عليكم عندى فولدر به ملف اكسل اسمه ALL ويوجد26 ملف اكسل اخر فى كل ملف اكسل 14 ورقة عمل وهذه الاوراق مكررة فى جميع الملفات وبنفس الاسم الذى يختلف هو اسم الملف فقط والبيانات التى توجد فية ونفس اوراق العمل هذه توجد فى ملف ALL اريد ترحيل كل اوراق العمل من 26 ملف والتى لها نفس الاسم فى جميع الملفات الى ملف ALL تحت بعض كل بدون تكرار اول صف فى كل ورقة عمل لان اول صف يكون راس لكل عمود لان تجميع هذه الملفات بالطريقة العادية تستغرق وقت ومجهود غير عادى وعرضة للخطأ فانا فعلا محتاج لحل هذه المشكلة والتى ان شاء الله سأجدها معكم كما تعودت منكم ومرفق نموذج من هذه الملفات وجزاكم الله خير Data file.rar
  22. اخى الكريم بارك الله فيك وجزاك الله كل خير عمل ممتاز واكثر من رائع ولكنى لم استطيع تنفيذه فى الملف الخاص بى ولكى ارسل الملف اليك حجمة كبير يصل الى 25 ميجل بعد الضغط ولا اعرف كيف اتعامل مع الازرار التى فى القائمة لان خبرتى محدوده فماذا افعل افادك الله وشكرا لك
×
×
  • اضف...

Important Information