AL_AYMAN

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

برجاء مساعدتى فى تفعيل هذا الكود لاحتياجى له بشدة 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

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

السادة الزلاء تحية طيبة مرفق ادناه كود يقوم بحفظ الملف فى مكان اخر على الهارد وباسم اخر ويضع له كلمة مرور ولا يتم فتحة بعد فترة تكون محددة داخل الكود ولكن الكود لا يعمل اى لا يتم خفظ الملف فى مكان اخر وحذف الملف الاصلى ولا يتك وضع كلمة مرور برجاء مساعدتى لاننى فى حاجة ماسة لهذا الكود وباقصى سرعة وجزاكم اللة كل الخير هذا هو الكود 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 برجاء افادتى بالحل لاننى احتاجة ضرورى جدا وهذا هو الكود وشكرا 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

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

اخى الكريم الاستاذ سليم الكود اكثر من رائع وجزاك الله كل الخير ولكن يستغرق وقت طويل جدا لاننى اقوم بتفعيلة على ورقة عمل بها حوالى 100,000 صف هل هناك طريقة لتسريع عملية الخذف ومع اننى وضعت last=last-1 بعد i=4 وشكرا

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

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

اخوانى الكرام جزاكم الله كل الخير على الاهتمام بالموضوع والرد على سؤالى وانا بالفعل اقوم بتفعيل الملف لدى 26 فرع على Google drive ,وانها فكرة ممتازة وان واجهتنى مشكلة فسامحونى ان رجعت لكم بسؤال اخر واشكركم جميعا اخوانى على المشاركة الطيبة منكم وجزاكم الله كل الخير

السلام عليكم ورحمة الله وبركاتة السادة الزملاء الكرام لى سؤال ولا اعرف هل يمكن ام لا الفكرة باختصار عندى ملف اكسل عبارة عن ارصدة المخازن ( الصنف والكمية ) هذا الملف يوجد عند 26 فرع من فروع الشركة أقوم كل يوم بتجميع هذه الملفات من على الميل وانا قد قمت بعمل لينكات بين هذه الملفات لتقوم بالتجميع السؤال هنا هل من الممكن ان يكون هناك ملف اكسل واحد يوضع فية اسماء الفروع جميعا فى كل عمود اسم فرع معين ويوضع على النت مثلا فى SkyDrive أو لSharpoint لا اعرف ؟ ويتم فتح الملف عند اكثر من مستخدم فى نفس الوقت ويقوم كل مستخدم بوضع بياناته فية ( الارصده ) حسب بيانات كل فرع فى ملف الاكسل فى العمود المحدد له واستطيع انا ان افتح الملف من عندى وارى كل البيانات التى توضع فى الملف واستطيع التعامل مع هذا لملف هل يمكن ام لا و ما البديل عن عمل لينكات بين الملفات حتى استطيع ان ارى البيانات لحظة بلحة عن طريق النت وشكرا لكم الارصده.rar

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

الكود شغال والارقام صحيحة 100% وربنا يكرمك وارجو ان يتسع صدرك لى وانا اعرف انى اثقلت عليك باسئلتى وبضعف خبرتى ولكن ممكن حضرتك تتاكد من شيت اسمة ( المبيعات اليومية بالتفصيل ) هل يتم الترحيل فيه هل يوجد فية اى بيانات لان كل اوراق العمل يتم ترحيلها بنجاح الا هذا الشيت يكون فارغ لا يوجد فيه اى شىء ولا اعرف السبب حتى اننى غيرت الملف الاساسى وعملت ملف جديد ولكن ظلت هذه المشكلة ان شاء الله بهذه النقطة نكون قد انتهينا من هذه المشكلة التى ارهقتك بها وازعجتك بها كثيرا وانا اسف جدا وشكرا

استاذى الكريم تسلم ايدك على هذا العمل الرائع ولا اعرف كيف اشكرك على استجابتك ولكن انا اسف جدا ان الكود يعمل ويرحل البيانات وهو فى اول ملف ينقل حوالى 5 ورقات عمل ثم يتوقف ويعطى رسال محتواها Run time error'6 overflow وعند الضغط على Debug ويتم تحديد For i = 2 To L_A فى الكود من خلال رسالة توقف الكود وايضا تم وضع اسم الملف بجانب البيانات ولكن يتم وضع اسم ورقة العمل فى نفس الالعمود مع اسم الملف ( مثلا Data file1 خصم نقدى ) هل من الممكن ان ياتى باسم الملف فقط ان كانت ستأخذ وقت من حضرتك ومرهقة فال تتعب نفسك ممكن اعالجها يدويا ولكن المهم ان يستمرالكود فى العمل بدون توقف مع العلم ان نفذت ما طلبتة وهو كل الملفات واوراق العمل تبدا من الصف الثانى وكل اوراق العمل بكل الملفات بنفس الاسم ونفس الترتيب وشكرا جزيلا