السلام عليكم ورحمة الله وبركاتة
اخواني كنت استخدم عملية ارتباط تشعبي لنقل البيانات من صفحة الى اخرى او عدة صفحات و الان ارغب في استبدال ارتباط تشعبي بالكود
حاولت عدة محاولات و لم انجح في ذلك هل يوجد لديكم كود
Private Sub worksheet_change(ByVal target As Range)
Worksheets.("جردالشهري") (Worksheets("بيانات الأصناف").Range("b9:e10000"))
Worksheets.("دوران المخزون") (Worksheets("بيانات الأصناف").Range("b9:e10000"))
End Sub
البيانات منقولة من شيت بيانات الأصناف b9:e10000
و منقولة الى الشيت جردالشهري ودوران المخزون b9:e10000
و شكرا لكم
Private Sub worksheet_change(ByVal target As Range)