طلب جلب محتوى خلايا بحسب مكان خلية أخرى

[ناصراا]

السلام عليكم 

 

أعرف أني ازعجتكم بالطلبات 

 

لكن كرمكم يغمرني ويغمر جميع رواد المنتدى 

 

لدي طلبين تكرما

 

في الملف المرفق ورقة ملخص .. اريد ادراج عمود مبني على معامل يتغير كل 58 صف بمعامل جديد 

 

بحيث تتم عملية بسيطة قسمة أو ضرب لكافة ارقام الجدول بالمعامل الخاص بها والجدول الذي تحته بالمعامل الخاص بها وهكذا 

 

الطلب الآخر ..  في ورقة 2  أريد اضافة رمز الشركة ويجلب لي جدولها كاملا 

علما أن الجداول مرتبة بالضبط بتسلسل في ورقة ملخص 

جلب محتوى خلايا بحسب مكان خلية رمز الشركة 

 

لأني احتجت رسوم بيانية فبدلا من أن أضعها في الملخص لكل شركة على حده 

أنشأت ورقة جديدة وربطتها بالرسوم البيانية 

فأجلب البيانات وأقارن بالرسم 

 

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

 

 

عذرا لم استطع ارفاق الملف 

وهو على هذا الرابط 

http://www.4muhammed.org/up/uploads/13642222131.rar

 

[الشهابي]

الطلب الآخر ..  في ورقة 2  أريد اضافة رمز الشركة ويجلب لي جدولها كاملا 

 

علما أن الجداول مرتبة بالضبط بتسلسل في ورقة ملخص 

جلب محتوى خلايا بحسب مكان خلية رمز الشركة 

 

لأني احتجت رسوم بيانية فبدلا من أن أضعها في الملخص لكل شركة على حده 

أنشأت ورقة جديدة وربطتها بالرسوم البيانية 

فأجلب البيانات وأقارن بالرسم 

 

 

 

لقد قمت بعمل معادلات في أعمدة مساعدة وهما العمودين (AZ) و(BA) في ورقة ( ملخص)

ثم تم عمل كود لجلب البيانات من خلال النسخ واللصق حيث تم تعريف اسم نطاق متغير حسب تغير رمز الشركة  في الخلية (AZ1) في ورقة ( ملخص )

قم بكتابة رمزالشركة في الخلية (B3)في ورقة 2  ثم اضغط على زر جلب البيانات وسوف يتم جلب جدوالها كاملا 

إن شاء الله يكون هو المطلوب 

أم طلبك الأول لم أفهم المقصود  ربما أحد الأخوة فهم المطلوب وسوف يقوم بالحل إن شاء الله

أو فضلا مزيدا من الإيضاح حتى يتم الفهم إن شاء الله 

تقبل تحياتي

 

ملخص.rar

[ناصراا]

ما أجملك يالشهابي 

 

رحم الله من علمك ورباك وأسكنهم فسيح جناته 

 

أشكرك أخي فكم سررت بمساعدتك 

 

يوجد اشكالية بسيطة 

 

زر جلب لا يعمل إلا بعد أن ترجع لصفحة ملخص ثم تضغط عليه 

 

جرب ضع رمز شركة واضغط على جلب ثم ضع رمزا آخر واضغط على جلب  فلن يعمل معك 

حتى ترجع لصفحة ملخص ثم ترجع تضغط على الزر

 

ليس الأمر ضروريا 

 

يكفي أنك ريحتني من النسخ واللصق كل مرة 

 

ريحك الله من همك وقضى دينك وأسعدك 

 

سؤال عندما أريد نقل الخدمة إلى ملف آخر 

 

أنسخ العمودين (AZ) و(BA) وأنقل كود الجافا  وزر جلب البيانات فقط ؟؟ 

 

أكرر شكري واحترامي

[ناصراا]

الطلب الآخر .. في ورقة 2 أريد اضافة رمز الشركة ويجلب لي جدولها كاملا

علما أن الجداول مرتبة بالضبط بتسلسل في ورقة ملخص
جلب محتوى خلايا بحسب مكان خلية رمز الشركة

لأني احتجت رسوم بيانية فبدلا من أن أضعها في الملخص لكل شركة على حده
أنشأت ورقة جديدة وربطتها بالرسوم البيانية
فأجلب البيانات وأقارن بالرسم

لقد قمت بعمل معادلات في أعمدة مساعدة وهما العمودين (AZ) و(BA) في ورقة ( ملخص)
ثم تم عمل كود لجلب البيانات من خلال النسخ واللصق حيث تم تعريف اسم نطاق متغير حسب تغير رمز الشركة في الخلية (AZ1) في ورقة ( ملخص )
قم بكتابة رمزالشركة في الخلية (B3)في ورقة 2 ثم اضغط على زر جلب البيانات وسوف يتم جلب جدوالها كاملا
إن شاء الله يكون هو المطلوب
أم طلبك الأول لم أفهم المقصود ربما أحد الأخوة فهم المطلوب وسوف يقوم بالحل إن شاء الله
أو فضلا مزيدا من الإيضاح حتى يتم الفهم إن شاء الله
تقبل تحياتي

تمت عملية النقل إلى ملف آخر بنجاح

والكود يعمل 100% بدون مشاكل

ندخل الرمز ونضغط خارج الخلية ثم نضغط زر الجلب

هل يمكن أخي طمعا بمزيد من كرمك أن نلغي زر الجلب

بمجرد ما ندخل الرمز ونضغط انتر يجلب تلقائي

جزاك الله خيرا وأحسن إليك
حليت المشكلة الأكبر عندي

أما الطلب الأول فأمره أسهل حتى لو لم يحل تم تعديل مارس 27, 2013 بواسطه ناصراا

[الشهابي]

أخي العزيز / ناصر

 تم إضافة عمودين مساعدين آخرين لعمل قائمة منسدلة لرموز الشركات وتم وضعها في كومبكس من خلاله تختار رقم الشركة ومن ثم يتم جلب الجدول الخاص بها

كما تم الاستغناء عن النطاق المعرف () ووضع المعادلة الخاصة به مباشرة في الكود لأنه نطاق غير ظاهر وربما يحدث خطأ عند النقل إلى ملف آخر

 

INDIRECT(ملخص!$AZ$1)
 

ويالنسبة لطلبك الأول ممكن ذلك بس أين تريد ادراج العمود بالضبط  هل في نفس الجدول أم خارج الجدول

وحسب ما فهمت أن الرقم يقسم على كل رقم في عمود الأعلى  ويكون الناتج في عمود آخر يقابل الرقم المقسوم عليه 

هل هذا هو المطلوب أو قم بمزيد من التوضيح 

والعفو 

ملخص.rar

[ناصراا]

أخي العزيز / ناصر

 تم إضافة عمودين مساعدين آخرين لعمل قائمة منسدلة لرموز الشركات وتم وضعها في كومبكس من خلاله تختار رقم الشركة ومن ثم يتم جلب الجدول الخاص بها

كما تم الاستغناء عن النطاق المعرف () ووضع المعادلة الخاصة به مباشرة في الكود لأنه نطاق غير ظاهر وربما يحدث خطأ عند النقل إلى ملف آخر

 

INDIRECT(ملخص!$AZ$1)
 

ويالنسبة لطلبك الأول ممكن ذلك بس أين تريد ادراج العمود بالضبط  هل في نفس الجدول أم خارج الجدول

وحسب ما فهمت أن الرقم يقسم على كل رقم في عمود الأعلى  ويكون الناتج في عمود آخر يقابل الرقم المقسوم عليه 

هل هذا هو المطلوب أو قم بمزيد من التوضيح 

والعفو 

لا أعرف كيف أشكرك أخي على اهتمامك أولا وعلى جهدك ثانيا 

 

فلك في ذمتي شكرين والثالث على نفسك الطيبة

 

بالنسبة للقائمة المنسدلة لم تناسبني أبدا ..وأعتذر منك 

فهي ثقيلة وليست عملية 

ولا يمكن أن تدخل فيها أكثر من رقم ويكون اكمال تلقائي - كما في عادة القوائم التي تقبل أكثر من رقم وترشحها لك

 

ويجب أن أضغط على السهم الصغير وأختار الرمز من 117 رمز 

 

الأسهل لي أخي الكريم 

هو طريقة ادخال الرمز مباشرة وبدون زر الجلب 

 

فهل يمكن الغاء زر الجلب فقط ؟؟؟

 

Sub igfal()

    Sheets("ملخص").Range("igfal").Copy
    Sheets("ورقة2").Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
 

 

----

النطاق المعرف (igfal)  آه ..ويله مني فقد كان متخفيا 

 

ساعات وأنا أحاول نقل الكود والأعمدة إلى ملف آخر وكانت تفشل معي

حتى استطعت بحيلة مني نقله مكبلا مغلولا ..والحمد لله  

 

----- 

بالنسبة للطلب الأول نعم أخي كما فهمت بالضبط

في نفس الورقة يكون العمود .. وفي أي مكان لا بأس

 

وأتمنى أن يكون بمعادلة وليس بكود فيجوال

 

لأن هدفي أن أعرف الطريقة السليمة والسهلة لعمل مثل هذه العملية  

حتى أطبقها على غيرها 

 

دعواتي لك بالتوفيق 

[الشهابي]

أخي العزيز / ناصر

 تم التعديل حسب طلبك إن شاء الله

قم بوضع رمز الشركة في الخلية (B3) ومن ثم إضغط انتر وسيتم نسخ البيانات المطلوبة

وبالنسبة لطلبك الأول حسب ما فهمت قمت بعمل معادلة لقسمة الرقم المحدد على بيانات العمود ( الأعلى ) تم عمل ذلك في العمود ( Y ) 

إن شاء الله يكون هو المطلوب وتقبل تحياتي

والعفو 

ملخص.rar

[ناصراا]

أخي العزيز / ناصر

 تم التعديل حسب طلبك إن شاء الله

قم بوضع رمز الشركة في الخلية (B3) ومن ثم إضغط انتر وسيتم نسخ البيانات المطلوبة

وبالنسبة لطلبك الأول حسب ما فهمت قمت بعمل معادلة لقسمة الرقم المحدد على بيانات العمود ( الأعلى ) تم عمل ذلك في العمود ( Y ) 

إن شاء الله يكون هو المطلوب وتقبل تحياتي

والعفو 

الله ينور عليك يابن اليمن السعيد

فأنتم أهل حكمة وإيمان

 

أشكرك جدا 

 

لي سؤال (الطلب الأول ) كيف فعلتها هل يدويا 

أم هنالك أمر يسهل تطبيق المعادلة 

فأنا أعرف (اف ) وتفاصيلها 

 

لكن كيف أستطيع تنفيذها مع تغير المعامل فعندي 118 شركة 

أسهل طريقة أعرفها أنا هو تطبيقها على الشركة الأولى ثم نسخ ولصق 117 مرة 

 

فكيف طبقتها أنت استاذي

 

--

أما الورقة الثانية فهي الطلب تماما 

لكن في زر الجلب سابقا كان الجلب فوري 

أما الآن فيتأخر 3 -4 ثواني قبل جلب البيانات ..ويعطيني انتظار 

لا أدري ما سبب هذه المدة 

 

----

شكر الله لك جهدك معي 

[الشهابي]

أخي العزيز / ناصر

 أولا : أشكرك علىكلامك الطيب الذي يدل على حسن الخلق فجزاك الله خير

بالنسبة للمعادلة تم عملها يدويا في جدول الشركة الأولى حيث تم وضع معادلة لقسمة الرقم المحدد على جميع صفوف الأعلى من خلال سحب المعادلة من الصف الأول إلى آخر صف به بيانات  والمعادلة هي :

=IF(A10="";0;$B$4/B10)

 

حيث تلاحظ أن  اللخلية ($B$4) التي تمثل الرقم المطلوب قسمته  على عمود الأعلى مطلق وليس نسبيا من أجل يتم تطبيق القسمة عند السحب والدالة (IF) وضيفتها فقط هي جعل النتيجة صفر في حالة الخلية المقابلة في العمود (A) فارغة 

وبعد ذلك  تم حذف علامة الدولار لتصبح هكذا (B4) أي جعل نطاق الخلية نسبيا من أجل تطبيقه على كافة جداول الشركات ولو ترك مطلقا لقسم نفس الرقم في جدول الشركة الأولى على عمود الأعلى لجميع الشركات 

ثم تم نسخ جميع صفوف العمود (Y) للشركة الأولى من الخلية (Y2) إلى الخلية (Y59)  وتم تضليل العمود في جميع جداول الشركات الأخرى و لصق الصيغ  فتم تطبيقها على نمط الشركة الأولى

إن شاء الله وصلت الفكرة

 

بالنسبة لبطء الكود في بدايته كذلك الكود من خلال الزر فيه بطء في نهايته 

وربما البطء بسبب ربط الكود بالتغير الذي يحدث في الخلية (B3) والله أعلم بصراحة لست خبيراً في الأكواد

ولكن هناك نقطة في الكود لم يتم تنفيذها لا أدري ما السبب وهي :

إلغاء عملية النسخ بعد اللصق 

وكذلك تحديد الخلية (A3) 

والعفو 

[ناصراا]

أخي العزيز / ناصر

 أولا : أشكرك علىكلامك الطيب الذي يدل على حسن الخلق فجزاك الله خير

بالنسبة للمعادلة تم عملها يدويا في جدول الشركة الأولى حيث تم وضع معادلة لقسمة الرقم المحدد على جميع صفوف الأعلى من خلال سحب المعادلة من الصف الأول إلى آخر صف به بيانات  والمعادلة هي :

=IF(A10="";0;$B$4/B10)

 

حيث تلاحظ أن  اللخلية ($B$4) التي تمثل الرقم المطلوب قسمته  على عمود الأعلى مطلق وليس نسبيا من أجل يتم تطبيق القسمة عند السحب والدالة (IF) وضيفتها فقط هي جعل النتيجة صفر في حالة الخلية المقابلة في العمود (A) فارغة 

وبعد ذلك  تم حذف علامة الدولار لتصبح هكذا (B4) أي جعل نطاق الخلية نسبيا من أجل تطبيقه على كافة جداول الشركات ولو ترك مطلقا لقسم نفس الرقم في جدول الشركة الأولى على عمود الأعلى لجميع الشركات 

ثم تم نسخ جميع صفوف العمود (Y) للشركة الأولى من الخلية (Y2) إلى الخلية (Y59)  وتم تضليل العمود في جميع جداول الشركات الأخرى و لصق الصيغ  فتم تطبيقها على نمط الشركة الأولى

إن شاء الله وصلت الفكرة

 

بالنسبة لبطء الكود في بدايته كذلك الكود من خلال الزر فيه بطء في نهايته 

وربما البطء بسبب ربط الكود بالتغير الذي يحدث في الخلية (B3) والله أعلم بصراحة لست خبيراً في الأكواد

ولكن هناك نقطة في الكود لم يتم تنفيذها لا أدري ما السبب وهي :

إلغاء عملية النسخ بعد اللصق 

وكذلك تحديد الخلية (A3) 

والعفو 

 

أنا من يشكرك أخي

لا أدري لماذا تغير الكود لوحده ؟

قد كان بطيء وأصبح أسرع  ..مع أنه لا يزال يستهلك الذاكرة

كان يعطيني رسالة تنبيه عند اغلاق الملف تقول هل تريد مسح البيانات التي في الذاكرة لأنها كبيرة 

والآن لم تعد تظهر هذه الرسالة 

الخلية (a3) لم ألاحظ عليها شيئ من البداية

 

لازلت أعاني من النقطة الأولى 

فقد طبقت شرحك حرفيا 

وضعت المعادلة 

=IF(A10="";"";IF(A9="";"";$B$4/B10))

 

ثم عمل تعبئة إلى نهاية الشركة الأولى 

 

حتى الآن جيد جدا

 

نسخت العمود من الخلية y2 إلى الخلية y59

 

بعدها أحدد العمود كاملا بكل الشركات 

 

وأضغط لصق  ولصق صيغ ولصق قيم 

المهم لا يلصق إلا للشركة الأولى فقط 

مع اني حددت العمود كاملا 

 

لاأدري أين المشكلة 

(وهذا لب المشكلة عندي )

 

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

تم تعديل مارس 31, 2013 بواسطه ناصراا

[الشهابي]

أخي العزيز / ناصر

المعادلة فيها زيادة غير مطلوبة فقط تكون مثل التي أوردتها في المشاركة السابقة

=IF(A10="";0;$B$4/B10)

 

 

بالنسبة لعملية اللصق من أجل تفادي المشكلة قم بتضليل الصفوف للشركة الأولى جميعا وقم بنسخها ثم قم بتضليل العمود (Y) من بداية الشركة الثانية إلى نهاية الشركة قبل الأخيرة وقم بعملية اللصق ثم الشركة الأخيرة حدد أول خلية فقط وقم بعملية اللصق

جرب وإن لم تنجح سأقوم بتسجيل فديو صامت لشرح الطريقة 

والعفو

[ناصراا]

شرحك أحسن من الفيديو 

 

نجحت معي 

 

جعل الله النجاح حليفك ورفيقك أينما اتجهت 

 

اشكرك أخي على الجهد الذي بذلته معي 

 

ويعلم الله وفر علي الكثير من الوقت والجهد 

 

فبارك الله فيك وفي علمك ورحم والديك 

 

تقبل تحيتي وتقديري