اذهب الي المحتوي
أوفيسنا

رسالة تحذيرية قبل حذف بيانات عمود


إذهب إلى أفضل إجابة Solved by Ali Mohamed Ali,

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

عندى ملف وعملت ماكرو لازالة بيانات عمود معين واريد ان اضيف للماكرو رسالة تحذير قبل البدء فى الحذف فكيف افعلها؟

عذرا استاذى الملف المرفق به زر باسم شيت بيانات وداخل هذه الصفحة زر مسح البيانات متصل بماكرو باسم clear 

المطلوب انى عندما اضغط على زر مسح البيانات يعطينى رسالة تحذيرية قبل تنفيذ الامر

برنامج التنسيق تعديل14.xlsm

رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل هذا هو الكود

Sub clear()
kk = MsgBox("هل تريد مسح البيانات ؟", vbYesNo)
        If kk = vbYes Then
Range("b11:C300").ClearContents
Range("J11:k300").ClearContents
End If
End Sub

 

برنامج التنسيق تعديل14.xlsm

  • Like 3
رابط هذا التعليق
شارك

تفضل

Sub exit_end()
For Each w In Application.Workbooks
 w.Save
Next w
Application.Quit
End Sub

وهذا كود أخر ايضا يلبى طلبك

Sub testSave()
Application.DisplayAlerts = False
ThisWorkbook.Save
Application.DisplayAlerts = True
Application.Quit
End Sub

 

  • Like 3
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information