على حسن قام بنشر يناير 15, 2019 مشاركة قام بنشر يناير 15, 2019 المطلوب كود لتعديل كلمة بدلات الى بدل طبيعة عمل و ادراج بعدها عمود ويكتب به حوافز وللعلم الشيتات الاصليه اكثر من 1000 شيت تكرار بالكود.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 15, 2019 مشاركة قام بنشر يناير 15, 2019 حدد كل الصفحات (او عدد منها)دفعة واحدة وقم بتنفيذ هذا الماكرو Option Explicit Sub Salim_Macro() Dim My_St1$: My_St1 = "بدلات طبيعة" & Chr(10) & " عمل" Dim My_St2$: My_St2 = "حوافز" Columns("E:E").Insert Shift:=xlToRight With Range("d1") .Value = My_St1 .Offset(, 1) = My_St2 End With End Sub رابط هذا التعليق شارك More sharing options...
أبوســـارة1973 قام بنشر يناير 15, 2019 مشاركة قام بنشر يناير 15, 2019 تم عمل المطلوب: ولكن يتم الضغط على الزر ( تفعيل مرة واحدة فقط) ، وقم بنسخ الزر من شيت رقم 1 إلى بقية الصفحات ، ثم اضغط على الزر في كل صفحة mustafa_sara_2.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 15, 2019 مشاركة قام بنشر يناير 15, 2019 2 دقائق مضت, أبوســـارة1973 said: تم عمل المطلوب: ولكن يتم الضغط على الزر ( تفعيل مرة واحدة فقط) ، وقم بنسخ الزر من شيت رقم 1 إلى بقية الصفحات ، ثم اضغط على الزر في كل صفحة mustafa_sara_2.xlsx لا حاجة ان يكون هناك زر في كل صفحة 1-اضغط على Ctrl باستمرار واختر الشيتات اللازمة 2- اترك الزر Ctrl ونفذ الكود رابط هذا التعليق شارك More sharing options...
على حسن قام بنشر يناير 16, 2019 الكاتب مشاركة قام بنشر يناير 16, 2019 جزاك الله خيرا ممكن بعد اذنك شرح الكود رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان