محمد هشام.

السلام عليكم ورحمة الله تعالى وبركاته المرجوا المساعدة في اضافة msgbox إلى الكود لأني حاولت كثيرا حيث عند اضافة الرسالة يتم عرضها عدد مرات ترحيل الاعمدة يعني يرحل عمود وتظهر الرسالة ولما بضغط ok يكمل الترحيل وهكذا حتى ينتهي عاوز طريقة تخلي الرسالة تظهر مرة واحدة عند نهاية الترحيل فقط الكود: Sub V_ترحيل() Dim r As Integer Dim xnewr As Integer For r = 5 To 650 Application.ScreenUpdating = False If IsEmpty(Cells(r, 1)) Then Exit Sub xnewr = Feuil5.Cells(1, 1).CurrentRegion.Rows.Count + 1 If Cells(r, 1).Value = "" Then Exit Sub Feuil5.Cells(xnewr, 1) = Cells(r, 1) Feuil5.Cells(xnewr, 2) = Cells(r, 2) Feuil5.Cells(xnewr, 3) = Cells(r, 3) Feuil5.Cells(xnewr, 4) = Cells(r, 4) Feuil5.Cells(xnewr, 5) = Cells(r, 5) Feuil5.Cells(xnewr, 6) = Cells(r, 6) Feuil5.Cells(xnewr, 7) = Cells(r, 7) Feuil5.Cells(xnewr, 😎 = Cells(r, 😎 Feuil5.Cells(xnewr, 9) = Cells(r, 9) Feuil5.Cells(xnewr, 10) = Cells(r, 10) Feuil5.Cells(xnewr, 11) = Cells(r, 11) Feuil5.Cells(xnewr, 12) = Cells(r, 12) Feuil5.Cells(xnewr, 13) = Cells(r, 13) Feuil5.Cells(xnewr, 14) = Cells(r, 14) Feuil5.Cells(xnewr, 15) = Cells(r, 15) Feuil5.Cells(xnewr, 16) = Cells(r, 16) Feuil5.Cells(xnewr, 17) = Cells(r, 17) Feuil5.Cells(xnewr, 18) = Cells(r, 18) Feuil5.Cells(xnewr, 19) = Cells(r, 19) Feuil5.Cells(xnewr, 20) = Cells(r, 20) Feuil5.Cells(xnewr, 21) = Cells(r, 21) Feuil5.Cells(xnewr, 22) = Cells(r, 22) Feuil5.Cells(xnewr, 23) = Cells(r, 23) Feuil5.Cells(xnewr, 24) = Cells(r, 24) Feuil5.Cells(xnewr, 25) = Cells(r, 25) Feuil5.Cells(xnewr, 26) = Cells(r, 26) Feuil5.Cells(xnewr, 27) = Cells(r, 27) Feuil5.Cells(xnewr, 28) = Cells(r, 28) Cells(r, 5) = "" Cells(r, 6) = "" Cells(r, 7) = "" Cells(r, 😎 = "" Cells(r, 9) = "" Cells(r, 10) = "" Cells(r, 11) = "" Cells(r, 12) = "" Cells(r, 13) = "" Cells(r, 14) = "" Cells(r, 15) = "" Cells(r, 16) = "" Cells(r, 17) = "" Cells(r, 18) = "" Cells(r, 19) = "" Cells(r, 20) = "" Cells(r, 21) = "" Cells(r, 22) = "" Cells(r, 23) = "" Cells(r, 24) = "" Cells(r, 25) = "" Cells(r, 26) = "" Cells(r, 27) = "" Cells(r, 28) = "" Application.ScreenUpdating = True Next End Sub

المرجوا من الإخوة الأعزاء شرح طريقة نقل شريط التحميل المرفق في الملف إلى ملف آخر به كود ليتم اظهار الشريط أثناء تنفيذ كود معين TEST100.xlsm

كود ولا أروع👍 ما شاء الله عليك أخي عبد الفتاح بحثت على زر يعبر عن شيئ أكثر بكثير عن أفضل إجابة ولم أجده فعلا شكرا لك بجد . 🤝🤝🤝

شوف ده ممكن يساعدك copy Sheets.xlsm

السلام عليكم ورحمة الله إخواني الأعزاء هذا الكود قد تم تزويدي به في موضوع سابق من طرف أخونا عبد الفتاح يقوم بنسخ شيتات معينة لمصنف آخر مستقل هو شغال تمام لاكن كنت عاوز من أحد الأستاذة الأفاضل تعديل الكود لكي أستطيع تسمية الشيتات المنسوخة بإسم آخر غير الموجود في الملف الرئيسي يعني لو تم نسخ shets 1 و shets 5 كمثال يتم تسميتهم تلقائيا بعد الاستخراج ب مبيعات ١ ومبيعات ٢ Sub export_sheets() Dim Fname As String, ws As Worksheet Application.DisplayAlerts = False Sheets(Array("SH1", "SH3")).Copy For Each ws In ActiveWorkbook.Sheets ws.UsedRange = ws.UsedRange.Value Next ws ActiveWorkbook.SaveAs Filename:= _ "C:\Users\PC WORLD\Desktop\" & " report_ " & "W" & Format(Date, "WW") & "_" & Format(Date, "YYYY") & ".xlsx", FileFormat:=51 ActiveWorkbook.Close Application.DisplayAlerts = True End Sub

ياريت لو في استطاعت أحد من الأستاذة الأفاضل التعديل على الكود . حيث نستطيع تسمية الشيتات المستخرجة بإسم آخر غير الأصلي يعني لو في المصنف الأول كان اسم الشيت sheets 1 وبعد النسخ في مصنف آخر عاوز يكون اسمه مثلا مبيعات1 وهكذا مع جميع الشيتات المنسوخة

هذا الكود تم وضعه قبل يومين من طرف أستاذنا الفاضل عبد الفتاح كود رائع وشغال 100%

شكرا لك أستاذنا الفاضل والأخ المحترم محمد يوسف تم بحمد الله حل المشكلة 👍👍👍👍

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

عندي شيت عليه زر يقوم بنسخ الشيت على سطح المكتب عاوز لما ينسخ يحفظ الملف بتاريخ ورقم الأسبوع الافتراضي على الجهاز مثلا لو تم نسخه في الأسبوع الرابع يتم تسمية الملف Rapport_W4_2022 كود فتح الملف hicham وشكرا لتعاونكم معنا . hicham.xlsm

شكرا لحضرتك على المساعدة بس طلب أخير لو سمحت هل هناك طريقة عند استخراج التقرير انه يتعرف على رقم الأسبوع تلقائيا بحيث يتم تسمية الملف المستخرج بإسم الأسبوع مثال: لو تم استخراج التقرير في الأسبوع الخامس يتم تسمية الملف بإسم ( تقرير w5_2022)

أنا عندي ملف إكسيل عامل عليه ماكرو بينسخ الشيت الي أنا عليه ويستخرجه لسطح المكتب كنت عاوز فكرة تخلي الشيت المستخرج بإسم الأسبوع الافتراضي مثلا لو تم نسخ الملف في الأسبوع الخامس يتم تسمية الملف هكذا W5_2022 يتعرف الكود على رقم الأسبوع والسنة تلقائيا دون التدخل مني وهكذا hicham.xlsm

نسخ شيتات معينة من ملف إكسيل إلى ملف آخر مستقل بإسم معين يعني عندي ملف فيه 20 شيت وعاوز انسخ 5 شيتات معينة إلى ملف خارجي بنفس التنسيق وبدون معادلات على سطح المكتب بإسم تقرير.22/2/2022 مثلا هل هناك كود لهذه المهمة

نسيت ان اخبرك انه في الاربعة اعمدة الأولى هناك معادلات للتاريخ و..... تكتب مباشرة عند كتابة اي شيء في النطاق في اي عمود للتعريف بتاريخ الإضافة يتسمح تلقائيا عند تفريغ النطاق من E5:Z

ثم اخي الفاضل 2.xlsm

1.xlsm

السلام عليكم ورحمة الله وبركاته المرجو من الأخوة الكرام المساعدة في كود ترحيل بيانات من ورقة الصنف إلى قاعدة البيانات بحيث يتم الترحيل من A5:Z إلى قاعدة البيانات في A7:Z اما نطاق الصفوف فهو غير ثابت ممكن يتراوح بين من صف الى 65 صف مع اضافة كود الحلقة التكرارية اي انه عند كل ترحيل ينسخ النطاق المرحل مباشرة تحت آخر سطر عليه كتابة test1.rar