اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

وضع زر ترحيل


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

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

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