mah16052000 قام بنشر مايو 4, 2019 مشاركة قام بنشر مايو 4, 2019 كل عام وانتم بخير ورمضان كريم وكل عيد قيامه سعيد للاخوة المسيحين ويارب تكونوا في احسن خير وسلام وسعادة انا ارفقت ملف للعمرة كنت محتاج اضيف زر للترحيل من شيت اسمه ربط لشيت اسمه العمليات انا عامل رز للمايكروا بس فيه اوقات كتير بيطلع رساله غلط فكنت محتاج اجرب الترحيل بمساعده اساتذة الموقع الكرام وانا اسف للازعاج والاطالة العمرة.xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 4, 2019 مشاركة قام بنشر مايو 4, 2019 ربما ينفع هذا الكود Option Explicit Sub Copy_range() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim My_max%: My_max = Application.Max(Sheets("الربط").Range("f:f")) + 5 Sheets("العمليات").Range("f5").Resize(500, 54).ClearContents Sheets("الربط").Range("f5").Resize(My_max, 54).Copy _ Sheets("العمليات").Range("f5") With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق Omra.xlsm 1 رابط هذا التعليق شارك More sharing options...
mah16052000 قام بنشر مايو 5, 2019 الكاتب مشاركة قام بنشر مايو 5, 2019 ربنا يكرمك ويرزقك ويعفيك انا مش عارف ارد جمايل حضرتك ازاى 1 رابط هذا التعليق شارك More sharing options...
mah16052000 قام بنشر مايو 5, 2019 الكاتب مشاركة قام بنشر مايو 5, 2019 يا استاذى الكود اشتغل تمام بس عمل نسخ للمعادلات انا عاوز النسخ يكون للقيم بس رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مايو 5, 2019 مشاركة قام بنشر مايو 5, 2019 لنسخ القيم فقط هذا الكود Option Explicit Sub Copy_range_Values() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim My_max%: My_max = Application.Max(Sheets("الربط").Range("f:f")) With Sheets("العمليات").Range("f5") .Resize(500, 54).ClearContents .Resize(My_max + 1, 54).Value = _ Sheets("الربط").Range("f5").Resize(My_max + 1, 54).Value End With With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف من جديد Omra_values.xlsm 2 رابط هذا التعليق شارك More sharing options...
mah16052000 قام بنشر مايو 5, 2019 الكاتب مشاركة قام بنشر مايو 5, 2019 تسلم يا استاذى 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان