السلام عليكم ورحمة الله
يوضع هذا الكود فى موديول جديد
Sub UpdateData()
Dim ws As Worksheet, Sh As Worksheet
Dim LR As Long, Arr
Set ws = Sheets("Sheet1")
Arr = ws.Range("A3:C" & ws.Range("C" & Rows.Count).End(3).Row).Value
For Each Sh In Sheets(Array("Sheet2", "Sheet3"))
LR = Sh.Range("C" & Rows.Count).End(3).Row
Sh.Range("A3:C" & LR).ClearContents
Sh.Range("A3").Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr
Next
End Sub
اما هذه الكود فيتم وضعه فى حدث كل من sheet2 و sheet3
Private Sub Worksheet_Activate()
UpdateData
End Sub
تحميل محتوى الموضوع
عرض نسخة صالحة للطباعة
أرسل هذا الموضوع إلى صديق
