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

walf10 · أغسطس 17, 2013

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

**دغيدى** · أغسطس 17, 2013

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

 .Range("a4,b6").ClearContents

End Sub

تفضل جرب

**الـعيدروس** · أغسطس 17, 2013

او كالتالي

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

walf10 · أغسطس 18, 2013

السلام عليكم

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

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

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

وشكرا

walf10 · أغسطس 18, 2013

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

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

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

walf10 · أغسطس 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

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