اذهب الي المحتوي
أوفيسنا

وضع زر ترحيل


الردود الموصى بها

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

العمرة.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

  • Like 1
رابط هذا التعليق
شارك

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

هذا الكود

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

  • Like 2
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information