كود حذف أعمدة

[Akram Galal]

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

تحية طيبة وعطرة علي كل أعضاء هذا المنتدي العظيم

أريد كود يقوم بحذف عدد من الأعمدة غير المتجاورة

وجزاكم الله كل الخير

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

السلام عليكم

جرب هذا الكود

استبدل الاعمدة بالاعمدة التي تريدها

Sub DelCol()

    Range("A:A,E:E,H:H,J:J").Delete Shift:=xlToLeft

End Sub

[Akram Galal]

جزاك الله كل الخير

وتسلم علي سرعة الرد

[جروان]

مختصر و سريع سلمت يداك على الابداع