ابوعبدالواجد قام بنشر مارس 29, 2016 مشاركة قام بنشر مارس 29, 2016 السلام عليكم - حياكم الله ممكن ترحيل بيانات من ورقة ( شيت ادخال البيانات ) الى ورقة ( شيت السجل ) وكما مبين بالملف المرفق ترحيل بيانات من ورقة الى ورقة أخرى.rar رابط هذا التعليق شارك More sharing options...
ابوعبدالواجد قام بنشر مارس 29, 2016 الكاتب مشاركة قام بنشر مارس 29, 2016 السلام عليكم اللهم يا الله بارك في اعماركم ووقتكم ، ووفق العاملين في هذا المنتدى لما يقدموه من خير وعلم سبحان الله وبحمده - سبحان الله العظيم رابط هذا التعليق شارك More sharing options...
ابوعبدالواجد قام بنشر مارس 30, 2016 الكاتب مشاركة قام بنشر مارس 30, 2016 الله اكبر والحمد لله كثيرا وسبحان الله بكرة وأصيلا ولا حول ولا قوة إلا بالله السلام عليكم أي فكرة أخرى تنجز العمل حفظكم الله وسلمكم رابط هذا التعليق شارك More sharing options...
ابوعبدالواجد قام بنشر مارس 30, 2016 الكاتب مشاركة قام بنشر مارس 30, 2016 السلام عليكم قال رَسُولَ اللَّهِ صَلَّى اللهُ عَلَيْهِ وَسَلَّمَ صدقة السر تطفئ غضب الرب و صلة الرحم تزيد في العمر و فعل المعروف يقي مصارع السوء رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 31, 2016 مشاركة قام بنشر مارس 31, 2016 أخي الكريم أبو عبد الواجد ربما لم تجد استجابة في موضوعك نظراً لأن الخلايا المراد ترحيلها كثيرة جداً ... ولذا أهديك الكود فقط وأنت قم بالتعديل عليه بحيث تكمل بقية المصفوفة الكود يعتمد على عمل مصفوفة بالنطاقات المراد الترحيل منها ثم الترحيل دفعة واحدة وهذا الكود أسميه الكود السحري للترحيل وخصوصاً مع الخلايا المفردة والمتباعدة كما في ملفك حيث أن الخلايا المراد ترحيلها غير متجاورة ...وهذا ما يصعب المهمة السطر الذي ستقوم بالتعديل فيه هو السطر التالي myValues = Array(.Range("C4"), .Range("C5"), .Range("B27"), "", "", "", .Range("B28"), "", "", "", .Range("B29"), "", "", "", .Range("B30"), "", "", "", .Range("B31")) في هذا السطر لو لاحظت تكتب اسم الخلايا التي سيتم الترحيل منها وإذا كانت الخلية التي سيتم الترحيل إليها غير مستخدمة كما لاحظت في ملفك تترك مكانه فراغ .. حاول تفهم السطر عشان تعرف تكمله لأن وقتي ضيق للغاية وفي السطر التالي ستغير العدد 19 إلى آخر عمود حيث الرقم 19 يمثل العمود S وهو العمود الذي توقفت عنده ، ويمكنك التكملة على نفس المنوال .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row + 1).Resize(1, 19).Value = myValues حمل الكود من هنا تقبل تحياتي 2 رابط هذا التعليق شارك More sharing options...
ابوعبدالواجد قام بنشر مارس 31, 2016 الكاتب مشاركة قام بنشر مارس 31, 2016 السلام عليكم مشكور ان شاء الله اوفق في العمل والتغيير شكراً استاذ ياسر رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 31, 2016 مشاركة قام بنشر مارس 31, 2016 وعليكم السلام أخي الكريم أبو عبد الواجد لقد رسمت لك خارطة الطريق للكود .. وإن شاء الله توفق في التعديل ..إنما سيكون إضافة على النطاقات الموجودة ولعلك تكون قد فهمت فكرة الكود .. اعذرني لعدم اكتمال الكود .. ولكن صدقني من الأفضل أن تكمله بنفسك لتعرف كيف يمكنك التعديل وقتما تشاء بدون الرجوع إلى أحد تقبل تحياتي 2 رابط هذا التعليق شارك More sharing options...
ابوعبدالواجد قام بنشر مارس 31, 2016 الكاتب مشاركة قام بنشر مارس 31, 2016 (معدل) جزيت خيرا - ما قصرت دوماً سباق في تقدم المساعدة حفظك الله ورزقك من حيث لا تحتسب الحمد لله فهمت الكود صحيح العمل طويل ، وقد استشار عليه ان اقسم العمل الى شيتات شيت للعنوان شيت عمل خلاصة بمشتريات العميل وشيت للاقساط وربطها معاً لغرض السهولة والسيطرة حياك الله أخي واستاذي وحبيبي استاذ ياسر - ما قصرت - تسلم تم تعديل مارس 31, 2016 بواسطه ابوعبدالواجد 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر مارس 31, 2016 مشاركة قام بنشر مارس 31, 2016 لا تعلم مدى سعادتي عندما يتعلم مني شخص معلومة ، لأنه بالتأكيد سينقلها لغيري ، ويساعده كما قدمت له المساعدة ، ونرجو الأجر من الله تقبل وافر تقديري واحترامي 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر مارس 31, 2016 مشاركة قام بنشر مارس 31, 2016 7 ساعات مضت, ياسر خليل أبو البراء said: لا تعلم مدى سعادتي عندما يتعلم مني شخص معلومة ، لأنه بالتأكيد سينقلها لغيري ، ويساعده كما قدمت له المساعدة ، ونرجو الأجر من الله تقبل وافر تقديري واحترامي جزاك الله خيرا ابوالبراء 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان