وضع رسالة للكود

[ابوصلاح]

ارجو من المشاركين الكرام وضع رسالة للكود المرفق بالملف

 نعم     لا           الغاء الامر

لو تعم اختيار لا او الغاء الامر يتم الخروج من الكود اوالاجراء

اما لو نعم يتم تنفيذ الكود

ولكم منا كل التقدير والاحترام

وضع رسالة للكود.rar

[ياسر خليل أبو البراء]

أخي الحبيب أبو صلاح

جرب الكود بهذا الشكل

Sub Test()
    Dim LR As Long, Answer As Long
    LR = Cells(Rows.Count, 4).End(3).Row

    Answer = MsgBox("هل تريد الاستمرار؟", vbYesNoCancel)
    If Answer = vbYes Then
        Range("H11:H1000").ClearContents
        With Range("H11:H" & LR)
            .Value = "مستجد"
        End With
    Else
    End If
End Sub

[ابوصلاح]

تمام

مستر المنتدى

دا اللقب الجديد لك وتستحقه بجدارة

[ياسر خليل أبو البراء]

جزيت خيراً أخي الحبيب أبو صلاح

الحمد لله أن تم المطلوب على خير

 

التزم بالتوجيهات من غير ما أنوه ..

تقبل تحياتي