ماجد القثمي

للرفع

اخي العزيز هل تستطيع تعديل الكود الذي كتبته انا بنفس الطريقه واضافه شرط اخر للانتقال الى الجدول الثالث لاني اضفت جدول ثالث ايضا رابط الموضوع:: اخواني كتبت كود لترحيل بيانات من ورقه الى ورقه اخرى داخل جدول من 3 اقسام اعددته مسبقا اريد ان ينتقل الترحيل من الجدول الاول الى الثاني الى الثالث في حال امتلاء الجدول الذي قبله بالبيانات الكود الذي عملته استطعت وضع شرط في حال امتلا الجدول الاول انتقل الى الثاني ولكن لم استطع عمل شرط اخر للانتقال الى الجدول الثالث في حال امتلا الجدول اثاني ايضا بقيه الشرح في الملف المرفق وشكرا <<Sub test() 'Transfer order from top items table For r = 4 To 57 If Cells(6, r).Value <> Empty Then Cells(3, r).Copy If Sheets("order").Cells(43, 3).Value <> Empty Then Sheets("order").Cells(4, 7).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues Else Sheets("order").Cells(4, 3).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues End If Cells(6, r).Copy If Sheets("order").Cells(43, 4).Value <> Empty Then Sheets("order").Cells(4, 8).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues Else Sheets("order").Cells(4, 4).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues End If End If Next 'Transfere order from bottom items table For s = 4 To 59 If Cells(12, s).Value <> Empty Then Cells(9, s).Copy If Sheets("order").Cells(43, 3).Value <> Empty Then Sheets("order").Cells(4, 7).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues Else Sheets("order").Cells(4, 3).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues End If Cells(12, s).Copy If Sheets("order").Cells(43, 4).Value <> Empty Then Sheets("order").Cells(4, 8).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues Else Sheets("order").Cells(4, 4).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues End If End If Next End Sub>> تعديل الى داخل الجدول.rar

السلام عليكم اخواني كتبت كود لترحيل بيانات من ورقه الى ورقه اخرى داخل جدول من 3 اقسام اعددته مسبقا اريد ان ينتقل الترحيل من الجدول الاول الى الثاني الى الثالث في حال امتلاء الجدول الذي قبله بالبيانات الكود الذي عملته استطعت وضع شرط في حال امتلا الجدول الاول انتقل الى الثاني ولكن لم استطع عمل شرط اخر للانتقال الى الجدول الثالث في حال امتلا الجدول اثاني ايضا بقيه الشرح في الملف المرفق وشكرا <<Sub test() 'Transfer order from top items table For r = 4 To 57 If Cells(6, r).Value <> Empty Then Cells(3, r).Copy If Sheets("order").Cells(43, 3).Value <> Empty Then Sheets("order").Cells(4, 7).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues Else Sheets("order").Cells(4, 3).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues End If Cells(6, r).Copy If Sheets("order").Cells(43, 4).Value <> Empty Then Sheets("order").Cells(4, 8).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues Else Sheets("order").Cells(4, 4).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues End If End If Next 'Transfere order from bottom items table For s = 4 To 59 If Cells(12, s).Value <> Empty Then Cells(9, s).Copy If Sheets("order").Cells(43, 3).Value <> Empty Then Sheets("order").Cells(4, 7).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues Else Sheets("order").Cells(4, 3).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues End If Cells(12, s).Copy If Sheets("order").Cells(43, 4).Value <> Empty Then Sheets("order").Cells(4, 8).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues Else Sheets("order").Cells(4, 4).End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues End If End If Next End Sub>> تعديل الى داخل الجدول.rar

شكرا جزيلا اخي جزاك الله خير الملف يعمل بشكل كامل

للرفع مع التحيه

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

السلام عليكم. اخواني عندي استفسار بخصوص هذا الموضوع عندي ملف اساسي على الكمبيوتر رقم ١ في البارتيشن d نسخت ورقتين عمل من الملف الاساسي الى ملف اكسل ثاني وحفظته على نفس الكمبيوتر في سطح المكتب(بارتيشين c) باسم ملف اكسل اخر غير اسم الملف المصدر ارتبط الملف الجديد بالملف المصدر. اذا تغيرت البيانات في المصدر تتغير في الهدف بعد ظهور رساله طلب التحديث. حتى لو الملف المصدر مغلق(فالبدايه واجهت مشكله ان الهدف لايستطيع ايجاد الملف المصدر واكتشفت انه بسبب ان كلا الملفين يقعان في بارتيشين مختلفان وكذلك لان الملف المصدر به بعض اوراق العمل المخفيه والتي بها البيانات. يجب ان يكون الملفان مفتوحان والاوراق غير مخفيه لتحديث موقع الملف المصدر. بعد ذلك تتحدث البيانات في الهدف بعدالموافقه على التحديث من رساله الامان حتى لو الملف المصدر مغلق) قمت بتغيير الامان في الملف الهدف بحيث يحدث البيانات تلقائيا بدون رساله التحذير وبمجرد فتح الملف وتم ذلك بنجاح حتى الان. المشكلة: عندي ٣ كمبيوترات اريد مشاركه الملف الهدف الموجود في الكمبيوتر١ البارتيشين c على سطح المكتب. اريد مشاركته على كمبيوتر رقم ٢ عملت شورت كت من الملف الهدف الموجود على كمبيوتر١ في سطح المكتب الى سطح المكتب كمبيوتر٢عن طريق الشبكه الداخليهnetwork اذا قمت بفتح هذا الاختصار من كمبيوتر٢ يفتح الملف وتظهر رساله الامان ان هذا الملف به بيانات مرتبطه بملف اخر ولا يستطيع ايجاد المصدر وهناك خياران اما فتح الملف كما هو او تحديث موقع الملف المصدر الخيار الاول يفتح الملف بدون تحديث الخيار الثاني وبعد تحديث موقع الملف المصدر والذي هو كمبيوتر ١ بارتيشين d يفتح الملف ولكن ايضا بدون تحديث البيانات قمت بتغيير اعدادت الامان ليقوم بالتحديث التلقائي بدون الرساله ولكن دون جدوى ماهي المشكله وكيف استطيع فتح الملف الهدف على كمبيوترات اخرى عن طريق الشبكه بالمشاركه من الكمبيوتر١ اسف على الاطاله ولكن اتمنى ان اكون وفقت في شرح المشكله

السلام عليكم استاذ طارق ,, كل منا له مشاغله وانت تتكرم مشكورا بمساعدتنا دون مقابل فلا داعي للاعتذار جزاك الله عنا كل خير.. نعم الكود الذي عملته هو ما اريد بالضبط.. ولكني اضفت اضافه بسيطه لكي يقوم بتشغيل الكود تلقائيا بدون زر وضعت الكود في نفس الورقه load تحت برايفت سب فحصلت على ما اريد ولكنه اصبح ينقل الكود سريعا دون ان يظهر شيء في خليه الترحيل,, فاردت ان يظهرفي الخليه التي بجانب خلية الادخال رمز الصنف الذي يتم ترحيله في كل مرة واستخدمت الامر نسخ ولصق لكن لم يعمل([h5] = [j5]) يظهر خطأout of stack space ارجو القاء نظرة على المرفق مشكورا Implant Items Control2.rar

للرفع

للرفع

وجدت الحل يا اخوان الداله look up تعمل مع القيم المرتبه من الاصغر للاكبر او العكس استعملت الداله index وكانت النتيجه 100% :)

السلام عليكم اخواني عندي ملف به جدول ادخال بيانات: اسماء وارقام جوال وتروايخ وفوق الجدول أعددت جدول صغير للبحث عن طريق رقم الجوال ويعطي في الجدول البيانات الخاصه برقم الجوال الذي ابحث عنه استخدمت الداله look upولكن عندما امتلاء الجدول باكثر من صف بدأ يعطي نتائج مغلوطه لم اعرف ما السبب الملف مرفق تجريبي.rar

للرفع..

للرفع..

للرفع..

السلام عليكم استاذ طارق شكرا جزيلا لك الملف يعمل بشكل ممتاز بعد اخر التعديلات التي اضفتها مشكورا يبدو اني بحاجه الى تعديل او اضافه بسيطه بعد تجربه البرنامج على ارض الواقع الرجاء منك التكرم بالقاء نظره على الملف المرفق مع خالص تقديري Implant Items Control.rar

استاذ طارق بعد التحيه الشكر موصول لك على تفاعلك رغم انشغالك مقدرا لك ذلك سوف اراجع الملف المرفق شكرا جزيلا لك

للرفع مع التحية

استاذ.. الفكرة بدات تعمل ولكن لدي بعض الاستفسارات اولا :هل لابد من ووجود المجال (implant)الذي اضفته؟ لان طريقه ادخال رموز المنتجات في ورقه( scan) ستكون عن طريق جهازقارئ الباركود سوف يقراء كود المنتج ويضع رمزه مباشرة في خانه المنتج ثم يختار المستخدم رمزه الشخصي من 1 -5 ومن ثم الترحيل؟ و اذا كان لابد من وجود المجال،، هل اقوم باضافه باقي المنتجات تحت المجال الاصفر واماكن ترحيلها تحت المجال الازرق فقط, وسوف ينقل كل منتج الى مكانه؟ او كيف ستكون طريقه اضافه باقي المنتجات وهل يمكن اضافه باقي الاكواد لباقي المنتجات في نفس ال(sub) ثانيا: عندما قمت بمسح الجدول (table5) في الورقة(implant) لم يعمل الترحيل داخل الجدول انما تحته واصبح يعطيني خطاء!! مثلا في حال نهايه الجرد سوف تمسح الجداول لبدايه جرد جديد ارفقت الملف بعد مسح محتويات الجدول اعلم اني اتعبتك شكرا على تفاعلك يا ساتاذ ملف ماكرو أصلي - بعد مسح الجدول.rar

وعليكم السلام الغرض من الرقم واحد,لاني اريد ان يكون الترحيل داخل الجدول عدد(قطعه واحده) وليس اسم المنتج لكي يتمكن الجدول الذي اعددته من حساب عدد المنتجات المستخدمه. شكرا لتجوابك استاذ

للرفع..

السلام عليكم اخواني الاعزاء عندي ملف حسابي به جداول في اوراق متعددة اريد الترحيل الى داخلها الملف مرفق وبه بقيه الشرح ارجو التكرم بالقاء نظرة وشكرا Desktop.rar

للرفع.. ملف ماكرو أصلي - للمتدى.rar

السلام عليكم ورحمه الله اولا اشكركم على هذا المنتدى المفيد جعله الله في ميزان حسنات كل من يفيدنا في هذا المنتدى تابعت الكثير من فديوهات الاستاذ عبدالله المجرب والاستاذ محمد حموده والبركه في بقيه الاساتذة عندي طلب لتعديل ملف اكسل للترحيل احاول ترحيل معلومات من خليه تعتبر خليه ادخال لاسماء منتجات الى جداول في اوراق اخرى على حسب اسم المنتج على ان يتم مسح محتويات الخليه كل مرة للسماح بادخال منتج اخر وترحيله حاولت وضع بعض المعادلات في الماكرو لكن ليس لدي الخبرة الكافيه لاتمام بقيه الفكرة الملف مرفق به بقيه الشرح ولكم جزيل الشكر مقدماالترحيل الى جداول.rar

السلام عليكم ورحمه الله وبركاته اشكركم جدا على هذا المنتدى المفيد للغايه جعله الله في ميزان حسنات كل من يفيدنا في هذا المنتدى. تابعت الكثير من فديوهات الاستاذ عبدالله المجرب والاستاذ محمد حمودة والبركه في الاساتذه الباقين. عندي طلب للتعديل في ملف اكسل احاول فيه ترحيل بيانات من داخل خليه واحده تعتبر خليه ادخال اسماء منتجات لتترحل الى داخل جداول في اوراق اخرى على حسب اسم المنتج, على ان يتم مسح محتويات خليه الادخال ليتم ادخال منتج اخر وهكذا حاولت وضع بعض المعادلات لكن ليست لدي الخبرة الكافيه لانهاء كامل الماكرو الملف مرفق وبه بقية الشرح والشكر مقدما لكم