walf10 قام بنشر أغسطس 17, 2013 مشاركة قام بنشر أغسطس 17, 2013 الرجاء من الاخوة الكرام تعديل الكود بالملف أعلاه ليتم مسح بيانات خلايا محددة بصفحتين معاً مسح.rar 1 رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر أغسطس 17, 2013 مشاركة قام بنشر أغسطس 17, 2013 Sub m() Sheets ("1") Sheets ("2") .Range("a4,b6").ClearContents End Sub تفضل جرب رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أغسطس 17, 2013 مشاركة قام بنشر أغسطس 17, 2013 او كالتالي Sub m() N = Array("1", "2") For i = 0 To UBound(N) Sheets(N(i)).Range("a4,b6").ClearContents Next End Sub رابط هذا التعليق شارك More sharing options...
walf10 قام بنشر أغسطس 18, 2013 الكاتب مشاركة قام بنشر أغسطس 18, 2013 السلام عليكم الكود ممتاز و يمسح نفس الخلايا في الصفحتين ولكن لو كانت الخلايا المطلوب مسحها مختلفة في كل صفحة كيف يتم كتابة الكود وشكرا رابط هذا التعليق شارك More sharing options...
walf10 قام بنشر أغسطس 18, 2013 الكاتب مشاركة قام بنشر أغسطس 18, 2013 (معدل) اشكر لكم جهودكم وجدت بالمنتى كود وتم التعديل عليه تم تعديل أغسطس 18, 2013 بواسطه walf10 رابط هذا التعليق شارك More sharing options...
walf10 قام بنشر أغسطس 18, 2013 الكاتب مشاركة قام بنشر أغسطس 18, 2013 Sub sRange_Move() Sheets("ورقة2").Range("A9:c12").ClearContents Sheets("ورقة2").Range("a9:c12").ClearContents Sheets("ورقة2").Range("a9:c12").Value = Sheets("ورقة1").Range("A9:c12").Value End Sub رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.