DBA.Oracle

Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = "=Sheets(D)!R[17]C[13]" Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = "=Sheets(D).range("j8")" الطريقتين لا يفعلو شيء الطريقة الوحيدة اللى قربت منها Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = d & "!R[17]C[13]" تقوم بوضع المعادلة فى الخانة ولكن بدون حرف = فلا تعمل المعادلة فأضطر انا لكتابة = قبل المعادلة ولكن هل من طريقة تجعل المعادلة تكتب بشكل مضبوط كلها ولا احتاج للتعديل فيها يدويا فى كل مرة

للرفع

وجدت الطريقة الصحيحة لكتابة الامر هي Sheets("MyData").Cells(EndRow, 8).FormulaR1C1 = "=Sheet3!RC" لكن المشكلة الان انى اريد استبدال اسم الشيت بدل من Sheet3 يصبح باسم الصفحة الجديدة التي ستنشأ قبل الترحيل والمعرفة باسم D فما الحل ؟

d = معرفة باسم صفحة سوف تنشأ .Name = D المهم اثناء الترحيل Sheets("Mydata").Cells(EndRow, 7).Value = TextBox12.Value Sheets("Mydata").Cells(EndRow, 12).Value = TextBox15.Value Sheets("Mydata").Cells(EndRow, 13).Value = TextBox16.Value Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = D & " !R[17]C[13]" اريد ان يضع فى الخانة معادلة تربط الخلية مع خلية معينة فى الصفحة المنشأة فما الطريقة الصحيحة لكتابة الامر انا جربت استخدام الطريقة دى واعطت خطأ Sheets("Mydata").Cells(EndRow, 8).FormulaR1C1 = D & " !R[17]C[13]" برجاء المساعدة فى هذا الكود

nicola كان هناك مشكلة فى تنسيق الجدول بالصفحة الكود لا يوجد به خطأ جربت مسح تنسيق خلايا الجدول فلم تكن هناك مشكلة وقام الكود بعمله بنجاح التوضيح فى المرفق شكرا لملاحظتك Last.rar

تم عمل المطلوب فورم ادخال بيانات + انشاء صفحة باسم العميل + ربط الصفحة بالاسم شاهد المرفق ولك تحياتي مضاف للكود دالة منع تكرار الاسم وموانع اسم الورقة من الاستاذ الكريم / خبور شكر خاص له لكل مساعدة قدمها Finish.rar

للرفع

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

الاخ الفاضل / هشام شلبي شكرا علي الرد الملف الذي ارفقته شامل جميع طرق الارسال بالايميل سواء الاكتف شيت او اكثر من شيت معين او خلايا معينة ولكن بالنسبة لكود ارسال اكثر من شيت معاً فى ملف واحد هذا الكود يجب التعديل عليه كل مرة لارسال الشيتات المطلوبة ولكن الفكرة التي اتحدث عنها هي ان المستخدم لن يدخل كل مرة لمحرر الاكواد لتغيير اسم الصفحات المراد ارسالها ActiveWorkbook.Sheets(Array("Sheet4", "Sheet10")).Copy هنا سيتم نقل الشيتات المحددة 4 ، 10 الي ملف جديد شامل الصفحتين ويرسل هذا الملف كمرفق فى رسالة لو اليوزر لا يعرف التعديل علي الاكواد و اراد ارسال صفحات اخري غير المحددة مثلا يريد ارسال 1 ، 3 فلن يستطيع الفكرة تنص علي انه فى كل مرة نضغط فيها علي تشغيل الخاصية هذه يظهر فورم يطلب تحديد الصفحات المراد ارسالها فيصبح الكود Sourcewb.Sheets((.List(iCtr))).Copy حيث Sourcewb = ActiveWorkbook و حيث ان (.List(iCtr) هي الشيتات المختارة من القائمة ولكن المشكلة انه يقوم بنقل كل شيت منفصل عن الاخر في ملف مختلف ويقوم بعمل رفق واحد منهم فقط فهل هناك مشكلة فى كتابة الكود ام ماذا شكرا لمتابعتك ولردك انا فقط اردت التوضيح حتي يستطيع باقى الاخوة الافاضل ممن سيدخلون هذا الموضوع فهم استفساري ببساطة

السلام عليكم ورحمة الله وبركاته هذه اول مشاركة لي علي المنتدي ولكن لم تكن اول مرة ادخل فيها علي المنتدي انا هنا منذ فترة وتعلمت الكثير من الاكواد وشكر لكل من ساهم فى تعليمي ولو كود بسيط استعنت بكود ارسال رسالة كمرفق علي الايميل واردت التعديل عليه بحيث عند الضغط علي زر يظهر فورم يطلب اختيار الصفحات المراد ارسالها كمرفق فأضفت للكود كود اخر من زميل هنا فى المنتدي كان وضعه لاختيار صفحات معينة للاخفاء او الاظهار وادخلت الكودين في بعض واشتغل لكن عند محاولة اختيار 2 شيت من القائمة يقوم بحفظ واحد فقط منهم فى المرفقات فبرجاء المساعدة فى جعله يحفظ الشيتات المختارة كلها فى صفحة واحدة جديدة ولكم جزيل الشكر Send multisheets on attachment with select menu.rar