السلام عليكم
الاخ ناصر طلب مني المساعدة ولم يعلم ان خبرتي في اكسل افرغ من فؤاد ام موسى
ولكني قد افيده في كيفية تفعيل اي كود وقت الحاجة
اولا نحول الكود الى وحدة نمطية عامة
يعني سيصبح كود استاذنا احمد هكذا :
Public Function macrox()
'äÓÎ ÊäÓíÞ æÑÞÉ 2 Çáì ßá ÇæÑÇÞ ÇáãáÝ
Dim RN1 As Range, SH, ER
Sheets("æÑÞÉ2").Select
Sheets("æÑÞÉ2").Range("A9:J9").Copy
For SH = 2 To Sheets.Count
ER = Sheets(SH).UsedRange.Rows.Count
Set RN1 = Sheets(SH).Range("A8:J" & ER)
RN1.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
RN1.PasteSpecial Paste:=xlPasteColumnWidths
Next SH
Application.CutCopyMode = False
End Function
الآن نستطيع ان نستدعي هذا الكود وتشغيله في اي حدث فقط نكتب العبارة التالية :
Call macrox