الترحيل من 3 ملفات اكسل مغلقة الى ملف اكسل مغلق

[ابو تريكة]

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

 

الاخ الكريم مختار

___

 

انا اللى ملون اللون الاحمر لكي يوضح اين الخطأ وليس موضوع تنسيق

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

لانه ينقل كامل الخلايا في اي شيت لكن الصف الاول هو الذي تظهر فيه مشكلة الإفات  الا يوجد حل

 

أيضا حضرتك لم تلحظ انه في الصف الاول ( غير موضوع الافات لوكانت الخلايا خاليه ) المبالغ المكتوبه ويوجد بها علامه عشريه وارقام بعدها يحول تلك العلامه العشريه الى #

مثل 142654.23   تظهر بالشكل دا 142654#23

 

كل هذا في الصف الاول المشئوم من كل شيت

 

وشكرا لك سيدي ومعلمي الفاضل

[ياسر خليل أبو البراء]

الأخ الفاضل أبو تريكة

جرب الكود بهذا الشكل

Sub GetData_Example3()
    GetData ThisWorkbook.Path & "\1.xlsx", "1", _
            "A1:t26", Sheets("1").Range("A1"), False, True
            
   GetData ThisWorkbook.Path & "\2.xlsx", "1", _
            "A1:t26", Sheets("1").Range("A27"), False, True
                     
    GetData ThisWorkbook.Path & "\3.xlsx", "1", _
            "A1:t26", Sheets("1").Range("a53"), False, True
End Sub

تم تغيير كلمة True قبل الأخيرة إلى False لأنه بارامتر يتعامل مع العنوان .. فإذا كان للبيانات عنوان في الملف المراد جلب البيانات منه .. جعلت القيمة True

أما إذا لم تكن البيانات لها عنوان فتقوم بجعل القيمة False

 

أرجو أن تكون تلك النقطة هي حل المشكلة

تقبل تحياتي

[ابو تريكة]

الاخ والمعلم الفاضل ياسر خليل 

 

شكراجدا لحضرتك

فعلا هو دا حل المشكله ..  تسلم وسلمت يمينك وأكثر الله من امثالك

 

وشكرا ليك استاذي مختار على هذا المجهود الرائع

 

تقبلوا تحياتي

[مختار حسين محمود]

أخى الحبيب بوتريكة

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

كل  اللى عملته حضرتك 10/ 10

الأخطاء الحمراء   f1   f2   f3  f4   التى فى ملف التجميع سببه أن الخلايا فى الملف الأصلى فارغة

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

للعلم أن  الدالات تحمل جدول  من   a1 : t26   كله كده على بعضه   به بيانات أم لا    لا يهم

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

جرب تعبئة الخلايا الفارغة فى الجدول بالملفات الثلاثة  ستجد أنه لا شىء من هذا القبيل 

تحياتى لك

 

الأستاذ الفاضل ياسر فتحى أسعدنى جدا مروركم  وجازاكم الله خيرا

 

أخى بوتريكة راجع  الموضوع بأكمله (مشاركة 8   ومشاركة  21   ومشاركة  26   تحديدا )

ثانيا  اللون الأحمر لم أقل إلا أنه   :   تنسيق من عندك يعنى أنت منسقه  بيدك

ثالثا  الخلايا الفارغة  التى أقصدها  هى خلايا الصف الأول  فى الملفات  1 و2 و3 

والكلمات  False, True   أو ture , false    أو  true  , True    بتفرق مع الصف الأول المشئوم

 

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

[ا بو سليمان]

الأخ الفاضل أبو تريكة

جرب الكود بهذا الشكل

Sub GetData_Example3()
    GetData ThisWorkbook.Path & "\1.xlsx", "1", _
            "A1:t26", Sheets("1").Range("A1"), False, True
            
   GetData ThisWorkbook.Path & "\2.xlsx", "1", _
            "A1:t26", Sheets("1").Range("A27"), False, True
                     
    GetData ThisWorkbook.Path & "\3.xlsx", "1", _
            "A1:t26", Sheets("1").Range("a53"), False, True
End Sub

تم تغيير كلمة True قبل الأخيرة إلى False لأنه بارامتر يتعامل مع العنوان .. فإذا كان للبيانات عنوان في الملف المراد جلب البيانات منه .. جعلت القيمة True

أما إذا لم تكن البيانات لها عنوان فتقوم بجعل القيمة False

 

أرجو أن تكون تلك النقطة هي حل المشكلة

تقبل تحياتي

كثيرة هي المشاركات التي يقوم  الشخص المساعد للاشخاص الاخرين   بأعطائة  الكود  ويقول  هذا الكود 

 

ولكن المشكلة   انني  وبعض الاخوه لا نعرف اين يوضع الكود 

[ياسر خليل أبو البراء]

أخي أبو سليمان

تسمح لي أقولك العيب في مين

أكيد العيب فيا أنا عشان أنا المشرف ولازم أشوف شغلي مع الناس اللي بتحط الأكواد ومش بتشرح فين يوضع الكود

بس بردو العيب فيك ..إنت لو متابع لموضوعاتي والفهرس اللي في التوقيع وقناتي على اليوتيوب اللي بردو في التوقيع .. هتلاقي رابط بيشرح لك المطلوب من غير ما تطلبه لأنه من الأساسيات

تفضل الرابط وحاول تتابع القناة (وصدقني هتلاقيها أحسن من القناة الأولى المصرية وأحسن من قناة السويس ..)

 

 

تقبل تحياتي