أعانى من بطئ كود ترحيل

[إبراهيم ابوليله]

الاخوه الكرام

لست ادرى لماذا هذا الكود بطئ

ارجو حل المشكله

واذا كان هناك كود اخر اسرع فلا مانع

SEC.rar

[رجب جاويش]

أخى ابراهيم

جرب المرفق

لعله يكون أسرع من السابق

SEC1.rar

[إبراهيم ابوليله]

الاخ رجب بارك الله

فيك

وشاكر جدا لاهتمامك

[رجب جاويش]

أخى ابراهيم

لا شكر على واجب

[إبراهيم ابوليله]

الاخ رجب

لقد وجدت ايضا هذا الكود

Sub Macro1()

Application.ScreenUpdating = False

On Error Resume Next

If Range("B2") = "" Or Range("C2") = "" Or Range("E2") = "" Or Range("F2") = "" = 1 Then

MsgBox " برجاء اكمال البيانات "

Else

Dim lastrow As Integer

lastrow = Range("b10000").End(xlUp).Row + 1

Range("b2:f2").Copy

Cells(lastrow, 2).PasteSpecial Paste:=xlPasteValues

Range("B2:F2").ClearContents

Application.CutCopyMode = False

MsgBox " تم ترحيل البيانات "

End If

End Sub

[رجب جاويش]

أخى ابراهيم

يعتبر هو نفس الكود تقريبا

[إبراهيم ابوليله]

الاخ رجب نحن نستفيد دائما منك