وضع زر ترحيل

[mah16052000]

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

العمرة.xlsm

[سليم حاصبيا]

ربما ينفع هذا الكود

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

[mah16052000]

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

 

[mah16052000]

يا استاذى الكود اشتغل تمام بس عمل نسخ للمعادلات انا عاوز النسخ يكون للقيم بس 

[سليم حاصبيا]

لنسخ القيم فقط 

هذا الكود

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

[mah16052000]

تسلم يا استاذى