طلب كود لكتابة شرط يتحقق في حالة قيمة text لا تساوي فراغ

[اشرف النعاس]

اريد كود
لكتابة شرط يتحقق في حالة قيمة خلية (A4)  لا تساوي فراغ 

تم تعديل مارس 27, 2014 بواسطه اشرف النعاس

[وليد فتحي]

السلام عليكم ورحمة الله وبركاته

الاستاذ الفاضل اشرف النعاس

على حسب فهمي لطلبك

sub w_play ()
IF Range("A4").Value<>"" Then
أكتب هنا الكود الذي تريد تنفيذه في حالة تحقق الشرط
End if
End sub

[اشرف النعاس]

مشكـــــــــــــــور جدا

[وليد فتحي]

مشكـــــــــــــــور جدا

الشكر لله أخي اشرف

والحمد لله ان هذا طلبك

تقبل تحياتي