كيف اجعل الكود يمسح صفحتين سويا

[walf10]

الرجاء من الاخوة الكرام تعديل الكود بالملف أعلاه ليتم مسح بيانات خلايا محددة بصفحتين معاً

مسح.rar

[دغيدى]

Sub m()
 Sheets ("1")
 Sheets ("2")

 .Range("a4,b6").ClearContents

End Sub

تفضل جرب

[الـعيدروس]

او كالتالي

Sub m()
N = Array("1", "2")
For i = 0 To UBound(N)
Sheets(N(i)).Range("a4,b6").ClearContents
Next
End Sub

[walf10]

السلام عليكم

الكود ممتاز و يمسح نفس الخلايا في الصفحتين

ولكن لو كانت الخلايا المطلوب مسحها مختلفة في كل صفحة

كيف يتم كتابة الكود

وشكرا

[walf10]

اشكر لكم جهودكم

وجدت بالمنتى كود وتم التعديل عليه

تم تعديل أغسطس 18, 2013 بواسطه walf10

[walf10]

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