محمد عبد الناصر قام بنشر مارس 6, 2019 مشاركة قام بنشر مارس 6, 2019 السلام عليكم الكود هذا يمسح كل شيء بيانات او صور المطلوب التعديل على هذا الكود ليخصص عملية المسح لشيت محدد وليكن اسم الشيت mohsen و elshrok Sub DeleteAllPics() Dim Pic As Object For Each Pic In ActiveSheet.Pictures Pic.Delete Next Pic Rows("4:100").Clear End Sub رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر مارس 6, 2019 الكاتب مشاركة قام بنشر مارس 6, 2019 up رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر مارس 6, 2019 مشاركة قام بنشر مارس 6, 2019 السلام عليكم ورحمة الله اضف هذا السطر قبل جملة For If ActiveSheet.name <> "mohsen" Or ActiveSheet.name <> "elshrok" Then Exit Sub 1 رابط هذا التعليق شارك More sharing options...
محمد عبد الناصر قام بنشر مارس 21, 2019 الكاتب مشاركة قام بنشر مارس 21, 2019 شكراااااااااااااااااااا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان