محمد عبد الناصر

تم حل المشكلة شكرا لكم هذا التعديل Sub CopySheet() Dim strName As String, SH As Worksheet strName = Trim(Sheet1.Range("b1").Value) For Each SH In Worksheets If SH.Name = strName Then Exit Sub Next SH Sheet1.Copy after:=Sheets(Sheets.Count) Sheets("Sheet1 (2)").Name = strName With Sheets(strName) .Shapes("Button 1").Delete .Range("B1").Copy .Range("B1").PasteSpecial xlPasteValues .Range("B2").Copy .Range("B2").PasteSpecial xlPasteValues End With Application.CutCopyMode = False Range("A1").Select End Sub

في هذا الكود يقوم بأخذ نسخه من شيت1 وفتح شيت باسم العميل المحدد في شيت البداية الكود يقوم باخذ نسخه من شيت1 بكل الدوال المطلوب ان لا ياخذ الدوال التي توجد بالخلية B1,B2 ياخذ الاسم المكتوب فقط وان ياخذ جميع الدوال في باقي الشيت الملف مرفق Sub CopySheet() Dim strName As String, SH As Worksheet strName = Trim(Sheet1.Range("b1").Value) For Each SH In Worksheets If SH.Name = strName Then Exit Sub Next SH Sheet1.Copy after:=Sheets(Sheets.Count) Sheets("Sheet1 (2)").Name = strName With Sheets(strName) .Shapes("Button 1").Delete .Cells.Copy .Cells.PasteSpecial End With Application.CutCopyMode = False Range("A1").Select End Sub R.xlsm

شكرا اخي الكريم

احتاج الى كود في هذا الملف ان ينقل اسم العميل ورقم الجوال من شيت (البداية) الى شيت (التقرير) بحيث اذا وحد اسم العميل في التقرير ان لا يقوم بنقل الاسم مره اخرى ويعطى رسالة تحذير بان الاسم موجود بالفعل test 2.xlsm

ماشاء الله استاذ سليم رائع جدااااااااا

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

في الملف المرفق يوجد كود نقل اسم المريض من شيت( البداية ) الى شيت (التقرير ) المشكلة عند وجود شيت باسم المريض يقوم الكود بنقل الاسم اكثر من مره اريد اذا وجد الاسم في التقرير بان لا يقوم بنقل الاسم مره اخرى وان يظهر رسالة تحذير بان الاسم يوجد في شيت التقرير الملف مرفق test 2.xlsm

احتاج الى معادلة في الملف المرفق ان تكتب لي ايام الشهر بالترتيب عند كتابة الشهر المحدد فمثلا عند كتابة 10 ان يكتب لي عدد ايام شهر اكتوبر في خلايا محددة مثال 1/10/2020 2/10/2020 3/10/2020 4/10/2020 عند كتابة 11 ان يكتب لي عدد ايام شهر نوفمبر في خلايا محدده 1/11/2020 2/11/2020 3/11/2020 وهكذا الملف المرفق موضح المطلوب 80.xlsx

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

اريد ترتيب البيانات تحت بعضهم لكل عميل مع الحفاظ على رقم البند هذا ليس تسلسل ارقام لا اريد دمج البنود لكل عميل اريد فقط ترتيب الاسماء تحت بعضهم ابجدي الملف مرفق جزاكم الله كل الخير تم التوضيح في الورقه الثانية 12.xlsx 15.xlsx

ماشاء الله استاذ وجيه شكراااااااا

في الملف المرفق يوجد كود يقوم بربط تشعبي لاسم الشيت ووضع الاسم في الخلية B اول مشكلة هي الكود يقوم بكتابة الشيت الرئيسي Sheet1 اريد ان الغي هذا الامر ويكتب فقط الشيتات التي تليه ثاني مشكلة اريد الكود ان يكتب الرقم الموجود في كل شيت في الخلية E1 في العمود D2 md.xlsm

تمام رجعته شكرا لحضرتك

مسحت شيت داخل ملف بالخطا شغل وتعب يومين والله في طريقة اؤجعه بيها ؟؟؟؟؟؟؟؟؟

تم بس ليه مره واحده كده اتغيرت عندي مش عارف السبب

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

اخواتي الكرام حد يعرف حل للمشكلة دي ؟ كل م اعمل ميكرو تطلعلي

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

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

تم افضل اجابة

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

ماشاء الله استاذ سليم تاربك الله فيك وفي مجهوداتك هو 80% من المطلوب اريد ان لا تجمع لاني اريد رقم البند اريد فقط ان يقوم بنقل بيانات العميل تحت بعض برقم البند لا ان يجمع ينقل كوبي بيست في الشيت الخاص بكل عميل اريد ان ينقل الملفات كما هو في الملف الاصلي هذا الملف الاصلي hg.xlsm

عايز كود يقوم بفتح شيت لكل اسم موجود في العمود B ويقوم بنقل جميع بيانات كل اسم كما هو موضح في في الملف المرفق عايز اطبقها في كل العمود طالما تريد الإجابة عن طلبك بالأكواد .. فكان عليك لزاماً رفع الملف بإمتداد الماكرو XLSM hg.xlsm

ماشاء الله استاذ سليم فاضل بس التسلسل مثل ما موجود في الملف يكتب الخلايا المدموجه مثلا من 1 الى 13

محتاج كود استدعاء بيانات من شيت2 الى الشيت رقم1 الملف المرفق موضح المطلوب محتاج اطبقها في اكتر من 10.000 بند mahmoud.xlsx