استجلاب بيانت من عده شيات

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الكرام ارجو من الله ان يكون الجميع بكل خير وعافيه

الاساتذة الكرام

ارجو المساعده فى شيت CHART  على اساس

استقدام البيانات على اساس

1 – اسم الشيت المراد استقدام البيانات منه يتم اختياره من الخليه A3

2- بين التاريخين الذين يظهر فى  B2 & A2

3- يتم استقدامك البيانات المراده على اساس الخلايا A5  الى A13

بمعنى

اريد استقدام البيانات من شيت عام 2015 خلال الفترة من 1/1/2015 الى 31/1/2015

بيانات WALLS & FEED & EXPORT&OIL

ارجو ان اكون قد بينت المطلوب

Data.rar

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الحبيب أبو حنين، وصلتني رسالتك وأشكرك عليها وبارك الله فيك وفي أهلك وجازاك عنا خيرا... أقدم لك هذا الحل باستعمال معادلة تحوي دالتين دالة SUM لجمع مفردات النطاق الديناميكي الذي تحدده الدالة OFFSET وفق الشروط المطلوبة... أرجو أن يكون الحل مستوفيا المطلوب...

 

ملاحظة: بإذن الله ستكون تعديلات أخرى على الملف في رد آخر حتى يحوي المخطط البيانات المستدعاة فقط دون الفراغات...

 

أخوك بن علية

 

 

المرفق : Data.rar 

[ا بو سليمان]

اخي بن عليه حاجي ارجو الزيارة لهذا الموضوع ابداء  رايك فيه 

 

http://www.officena.net/ib/index.php?showtopic=60194

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الحبيب أبو حنين، تم التعديل على الملف كما وعدتك بإضافة معادلات في النطاق E5:F14 (تحت المخطط) يقوم فيه بنسخ كل البيانات الموجودة في النطاق A5:B14 دون الفراغات ثم بواسطة النطاق الديناميكي المسمى Values تم التعديل على نطاق البيانات الخاصة بـ "Data Source" للمخطط التي ستكون ديناميكية تتغير حسب تغير البيانات المدخلة في النطاق A5:B14 (الجدول)... أرجو أن يفي بالغرض المطلوب...

 

أخوك بن علية

 

 

الملف المرفق : Data.rar

تم تعديل أبريل 4, 2015 بواسطه بن علية حاجي

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب بن علية حاجى

جزاك الله كل الخير

سلمت يداك بكل خير ...

ويبقى شئ اخير ... توضيخ فكره الرسم البيانى ديناميكى

اسال الله عز وجل لك كل الخير ولجميع المسلمين

تم تعديل أبريل 4, 2015 بواسطه ۩◊۩ أبو حنين ۩◊۩

[بن علية حاجي]

السلام عليكم ورحمة الله

السلام عليكم

اخى الحبيب بن علية حاجى

جزاك الله كل الخير

سلمت يداك بكل خير ...

ويبقى شئ اخير ... توضيخ فكره الرسم البيانى ديناميكى

اسال الله عز وجل لك كل الخير ولجميع المسلمين

أخي الحبيب أبو حنين، المخطط أصبح مخططا ديناميكيا بحكم أن النطاق المستعمل في Data Source الخاصة بهذا المخطط هو نطاق ديناميكي مسمى، لو راجعت خصائص بيانات المخطط تجد أني استعملت كنطاق لـ Data Source المعادلة :

=Data.xlsb!Values

حيث : Data.xlsb هو اسم الملف الذي يحوي التسمية وذكره في المعادلة ضروري جدا (ويكون متبوعا بعلامة التعجب ثم بالتسمية) و Values هي التسمية الخاصة بالنطاق الديناميكي يمكنك الاطلاع على معادلة هذه التسمية في "التسميات"...

 

لا يمكنني أن أشرح أكثر من هذا....

 

أخوك بن علية

[۩◊۩ أبو حنين ۩◊۩]

اخى الحبيب بن علية حاجى

جزاك الله كل الخير

سوال اخير

يوجد كود

Sub ragab()
Dim cl As Range
Application.ScreenUpdating = False
ActiveSheet.Unprotect "2191612"
T = Range("B1").Text
On Error Resume Next
Set Rng = Sheets(T).Range("C2:ND2")
For Each cl In Rng
    If Range("c2") = cl Then
        x = cl.Column
        Range("C3:C35").Copy
        Sheets(T).Cells(3, x).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Exit For
    End If
Next
Application.ScreenUpdating = True
ActiveSheet.Protect "2191612"
End Sub

يقوم بترحيل  البيانات من شيت TODAY

الى اى شيت على اساس اسمه الموجود فى الخليه B1

اريد عمل حمايه لجميع الشيتات

كيف لهذا الكود ان يقوم بالترحيل من شيت TODAY الى الشيت المراد والشيت المراد الترحيل اليه محمى

جزاك الله كل الخير
 

[بن علية حاجي]

السلام عليكم ورحمة الله

 

أخي الحبيب أبو حنين، عليك بتغيير الكود السابق بالكود التالي:

Sub ragab()
Dim cl As Range
Application.ScreenUpdating = False
T = Range("B1").Text
Sheets(T).Unprotect "2191612"
On Error Resume Next
Set Rng = Sheets(T).Range("C2:ND2")
For Each cl In Rng
    If Range("c2") = cl Then
        x = cl.Column
        Range("C3:C35").Copy
        Sheets(T).Cells(3, x).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Exit For
    End If
Next
Sheets(T).Protect "2191612"
Application.ScreenUpdating = True
Sheets("TODAY").Select
End Sub

لا يقوم الكود الجديد لا بحماية الشيت "TODAY" ولا بمسح الحماية عنه...

 

أخوك بن علية

[۩◊۩ أبو حنين ۩◊۩]

جزاك الله كل الخير

جزاك الله كل الخير

جزاك الله كل الخير