تعديل بسيط على كود ترحيل واضافة

[أبو زهرة]

السلام عليكم. مرفق كود ترحيل قيم عمود وأضافتها الى عمود أخر. ولكن أريد عند الضغط على زر تنفيذ الكود أريد تنفيذه مرة واحدة فقط اى  لايتكرر ثانية وتظهر الرسالة المكتوبة

ولكم جزيل الشكر

Book1.rar

[عبدالله المجرب]

اليك الكود بعد التعديل

Sub w_Move()
If Range("i1").Value > 0 Then
    On Error Resume Next
    Application.ScreenUpdating = False
Sheets("ورقة1").Select
Range("d1:d8").Copy
Range("a1").PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
Range("a1").Select
Application.CutCopyMode = False
    Application.ScreenUpdating = True
Range("d1:d8").ClearContents
Else
    MsgBox "  الحمد لله  "
        End If
End Sub

[أبو زهرة]

جزاك الله خيرا أستاذ / عبدالله

ولكن هل يمكن ابقاء قيم العمود   d بعد عملية الترحيل

[عبدالله المجرب]

إذا استخدم هذا الكود

Sub w_Move()
If Range("i1").Value > 0 Then
If MsgBox("هل تريد إعادة الترحيل", vbYesNo, "تنبيه") = vbYes Then
    On Error Resume Next
    Application.ScreenUpdating = False
Sheets("ورقة1").Select
Range("d1:d8").Copy
Range("a1").PasteSpecial xlPasteValues, xlPasteSpecialOperationAdd
Range("a1").Select
Application.CutCopyMode = False
    Application.ScreenUpdating = True
   
Else
    MsgBox "  الحمد لله  "
        End If
         End If
End Sub

[أبو زهرة]

جزاك الله خيرا  أستاذ /عبدالله