كود يغير ارتباط القيم للرسم البياني من الملف القديم الى الملف الجديد عند النسخ

[k24s]

السلام عليكم 

حين اقوم بنسخ شيت معين "قديم" الى شيت اخر "جديد" باسم محدد من قبل المستخدم عن طريق ( vba) 

 

الشيت القديم (sheet 2)يوجد فيه رسم بياني .. حين يتم انشاء الشيت الجديد ارتباط القيم تعتمد على الشيت القديم كيف اقدر اضع كود يغير ارتباط القيم للرسم البياني من الصفحة الجديدة

الشيت الجديد ( sheet 3 مثلا ) الرسم البياني سيكون مرتبط بصفحة (  sheet 2)  في تغيير البيانات   x أو y لا يوجد اي تغيير على الرسم ( بسبب ارتباطه بصفحة sheet 2 )

 

 

اتمنى من الاخوة الافاضل .. المرور على المرفقات لتتضح الصورة ..  ( يوجد ملف اكسل )

 

اتمنى ان اجد حلاً لتغيير Series الخاصة بالمخطط ضمن الكود الاسفل .. 

 

----------------

اعتذر .. 

هذا الملف للفائدة ولبحث حلول حول ذلك ... 

 

Q.xlsm

[الـعيدروس]

السلام عليكم

جرب هذا التعديل على الكود

Private Sub CommandButton1_Click()
    Dim origSht             As Worksheet
    Dim destSht             As Worksheet
    Set origSht = Worksheets("sheet 2")
    sheetsname = InputBox("Enter the sheet name!" & vbNewLine & vbNewLine & "Example:- the sales", "Attention")
    If sheetsname = "" Then
    MsgBox "again please", , "Attention"
    Exit Sub
    End If
    If sheetsname = (Sheets(Sheets.Count).Name) Then
    MsgBox "This Name already Exists", , "Attention"
    Exit Sub
    End If
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = sheetsname
    Set destSht = ActiveSheet
    origSht.Cells.Copy Destination:=destSht.Cells
Dim cr As ChartObject
With destSht
     For Each cr In destSht.ChartObjects
          If cr.Index = 1 Then .ChartObjects(cr.Name).Chart.SetSourceData Source:=.Range("C27,O27:P27")
          If cr.Index = 2 Then .ChartObjects(cr.Name).Chart.SetSourceData Source:=.Range("C28,O28:P28")
     Next cr
End With
End Sub

 

[أحمد يوسف]

الأستاذ

k24s

  أين الضغط على الإعجاب ,طالما أعجبك الحل واعتقد ان هذا اقل ما يقدم لمن كان سبباً فى حل مشكلتك والتفريج عنك ؟!!!!!!!!!!!!

تم تعديل أكتوبر 24, 2019 بواسطه أحمد يوسف