أ محمد عبد الصمد قام بنشر يونيو 9, 2017 قام بنشر يونيو 9, 2017 الاخوة الافاضل اعضاء المنتدى الكريم مرفق ملف به كود للعلامة عبد الله باقشير لترحيل اعمدة معين حاولت التعديل فيه حسب متطلباتى للترحيل من صفحة الراسبين الى صفحة الدور الثانى ولكن به خطأ لم استطع اصلاحه ارجو المساعدة وكل عام وانتم بخير ترحيل مفيد باختبار اعمدة معينة.rar
ياسر خليل أبو البراء قام بنشر يونيو 9, 2017 قام بنشر يونيو 9, 2017 اطلعت على الكود ويبدو أن الكود لملف آخر حيث يوجد تضارب كبير .. عموماً الأفضل أن يكون الطلب واضح في عملية الترحيل .. ما هي ورقة البيانات التي يتم جلب البيانات منها وإلى أي ورقة تريد الترحيل وما هي الأعمدة المطلوبة في كل ورقة الكود المرفق في الملف بسيط ويمكنك التعديل عليه بسهولة ليتوافق مع مطلوبك .. الموضوع فقط يحتاج لمزيد من التفصيل والتوضيح ويوجد ملف مشابه لطلبك حيث يمكن ترحيل أعمدة محددة بأسلوب المصفوفات Extract Pass Using Arrays YasserKhalil.rar
أ محمد عبد الصمد قام بنشر يونيو 9, 2017 الكاتب قام بنشر يونيو 9, 2017 الاستاذ ياسر الف شكر نزلت الملف وجارى التعديل عليه مشكلتى أنى فى البرمجة 10/1 منذ ساعه, ياسر خليل أبو البراء said: اطلعت على الكود ويبدو أن الكود لملف آخر حيث يوجد تضارب كبير .. عموماً الأفضل أن يكون الطلب واضح في عملية الترحيل .. ما هي ورقة البيانات التي يتم جلب البيانات منها وإلى أي ورقة تريد الترحيل وما هي الأعمدة المطلوبة في كل ورقة الكود المرفق في الملف بسيط ويمكنك التعديل عليه بسهولة ليتوافق مع مطلوبك .. الموضوع فقط يحتاج لمزيد من التفصيل والتوضيح ويوجد ملف مشابه لطلبك حيث يمكن ترحيل أعمدة محددة بأسلوب المصفوفات Extract Pass Using Arrays YasserKhalil.rar الورقة المطلوب جلب البيانات منها هى الراسبين والورقة التى يتم الترحيل لها هى ورقة الدور الثانى فى الملف المرفق وبالنسبة لملف حضرتك يرحل الاعمدة فى نفس الصفحة وليس فى صفحة اخرى وشكرا على المرور
ياسر خليل أبو البراء قام بنشر يونيو 9, 2017 قام بنشر يونيو 9, 2017 يمكن تطويع الكود بحيث يتم الإشارة لورقة العمل المصدر وورقة العمل الهدف .. ليست مشكلة كبيرة حاول تطلع على الكود وإن شاء الله تستطيع التعديل عليه
أ محمد عبد الصمد قام بنشر يونيو 9, 2017 الكاتب قام بنشر يونيو 9, 2017 والله لقد خاولت ولكنى فشلت ارجو التعديل على الكود فى الملف المرفق للترحيل من الراسبين للدور الثانى مع العلم أن الخطأ يظخر فى الصورة التالية ترحيل مفيد باختبار اعمدة معينة.rar
ياسر خليل أبو البراء قام بنشر يونيو 9, 2017 قام بنشر يونيو 9, 2017 إذا لم يتدخل أحد الأخوة سأحاول في موضوعك غداّ إن شاء الله
ابراهيم الحداد قام بنشر يونيو 9, 2017 قام بنشر يونيو 9, 2017 السلام عليكم ورحمة الله اخى الكريم الاستاذ / محمد جرب هذا الكود بدون اى تعديل ربما يفيدك Sub aya2() Dim ws As Worksheet, wh As Worksheet Dim Arr As Variant, Temp As Variant Dim i As Long, j As Long, p As Long Set ws = Worksheets("الراسبين") Set wh = Worksheets("الدور الثانى") wh.Range("B8:Z" & wh.Range("D" & Rows.Count).End(xlUp).Row + 7).ClearContents Arr = ws.Range("B8:AA" & ws.Range("D" & Rows.Count).End(xlUp).Row + 7).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 26) = "ناجح" Then p = p + 1 For j = 1 To 25 Temp(p, j) = Arr(i, j) Next End If Next If p > 0 Then wh.Range("B8").Resize(p, UBound(Temp, 2)).Value = Temp End Sub 1
أ محمد عبد الصمد قام بنشر يونيو 10, 2017 الكاتب قام بنشر يونيو 10, 2017 6 ساعات مضت, زيزو العجوز said: السلام عليكم ورحمة الله اخى الكريم الاستاذ / محمد جرب هذا الكود بدون اى تعديل ربما يفيدك Sub aya2() Dim ws As Worksheet, wh As Worksheet Dim Arr As Variant, Temp As Variant Dim i As Long, j As Long, p As Long Set ws = Worksheets("الراسبين") Set wh = Worksheets("الدور الثانى") wh.Range("B8:Z" & wh.Range("D" & Rows.Count).End(xlUp).Row + 7).ClearContents Arr = ws.Range("B8:AA" & ws.Range("D" & Rows.Count).End(xlUp).Row + 7).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 26) = "ناجح" Then p = p + 1 For j = 1 To 25 Temp(p, j) = Arr(i, j) Next End If Next If p > 0 Then wh.Range("B8").Resize(p, UBound(Temp, 2)).Value = Temp End Sub هذا الكود أدى الغرض والف شكر وكل عام وانتم دميعا بخير
أ محمد عبد الصمد قام بنشر يونيو 10, 2017 الكاتب قام بنشر يونيو 10, 2017 بعد تجريب الكود السابق وجد أنه يقوم بترحيل نطاق كامل ولكنى اريد كود يقوم بترحيل اعمدة معين نفس الكود فى المشاركة الثالثة والتى افاد الاخ / ياسر عبد الجليل انه اذا لم يتدخل احد فى سيعدل الكود فالمطلوب كود يقوم بترحيل اعمد وليس نطاق أو تعديل الكود فى الملف الذى ارفقته سابقا
ناصر سعيد قام بنشر يونيو 10, 2017 قام بنشر يونيو 10, 2017 (معدل) جزاكم الله خيرا المحترم الاستاذ زيزو برجاء وضع سطر للمسح ... وسطر لاضافه التسطير حسب الاعداد الموجوده .. بارك الله فيك تم تعديل يونيو 10, 2017 بواسطه ناصر سعيد
خالد الرشيدى قام بنشر يونيو 10, 2017 قام بنشر يونيو 10, 2017 السلام عليكم اخى الكريم رغم محاولتى الاطلاع على كافة التعليقات والاكواد التى جاءت بها - الا ان مطلوبك غير واضح - ارجو ان تدرج ملف - موضح به ارقام الاعمده المطلوب ترحيلها - والى اى اعمده - هل اللصق الى اعمده متجاورة ام الى اعمده متفرقة ايضأ - اى ان تحدد اى اعمده تريد نسخها والى اى اعمده تريد لصقها ؟ تقبلوا مرورى وتحياتى 1
أ محمد عبد الصمد قام بنشر يونيو 10, 2017 الكاتب قام بنشر يونيو 10, 2017 الاخ خالد الرشيدى كل عام وحضرتك بخير وشكرا على المرور تم رفع الشيت بنفس التصميم المطلوب وفى ورقة طلبة راسبون مكتوب المطلوب بالضبط وهو ترحيل الاعمدة الملونة الى ورقة الدور الثانى بناء على مرجع كلمى ثان فى أخر عمود وشكرا على المرور 4.rar
أ محمد عبد الصمد قام بنشر يونيو 10, 2017 الكاتب قام بنشر يونيو 10, 2017 الاعضاء الكرام للرفع وكل عام وانتم بخير
خالد الرشيدى قام بنشر يونيو 11, 2017 قام بنشر يونيو 11, 2017 (معدل) السلام عليكم ا / محمد حضرتك حددت الاعمده المطلوب ترحيلها والى اين ولكن -- حضرتك حددت العمودين T - Y ( المجموع ) - والعمود C - كأعمدة لا يراد ترحيلها في حين انها موجوده في شيت الدور الثاني - ؟؟؟؟؟؟؟ العمود N على الرغم من ان حضرتك محدده كعمود يراد ترحيله الا انه غير موجود بشيت الدور الثاني ؟؟؟؟؟؟ انظر المرفق وابدي ملاحظاتك 4.rar تم تعديل يونيو 11, 2017 بواسطه خالد الرشيدى 1
أ محمد عبد الصمد قام بنشر يونيو 11, 2017 الكاتب قام بنشر يونيو 11, 2017 قمت بتعديل الكود قدر استطاعتى فى الملف المرفق ولم يعطى رسالة الخطأ التى كان يعطيها لى قبلا ويظهر لى رسالة بنجاح الترحيل ولكنه لم يرحل اى بيانات بمعنى انه يقول تم الترحيل بدون أن يرحل بيانات ارجو تعديله وجعله يقوم بالترحيل 4.rar
ناصر سعيد قام بنشر يونيو 11, 2017 قام بنشر يونيو 11, 2017 2 ساعات مضت, خالد الرشيدى said: السلام عليكم انظر المرفق وابدي ملاحظاتك 4.rar المرفق راائع جزاك الله كل خير وبارك فيك ولكن مع هذا الكود يجب اضافه نسخ التسطير ونسخ جميع التسيقات الموجوده بالصف الثامن حفظك الله ورعاك 1
خالد الرشيدى قام بنشر يونيو 11, 2017 قام بنشر يونيو 11, 2017 اخى ناصر اعتقد ان ملف ا/ محمد لا يحتاج لازالة التسطير واعادته لانه قام بتنسيق عدد كبير من السطور - بالاضافه انه لم يطلب ذلك هذا بجانب اني اعتقد انه لا يريد الكود المقدم منى ( وهو كود استاذى ابو البراءانا فقط عدلت عليه بما يناسب الملف ) لانى بعد اضافته تجاهل المشاركه بطلب التعديل على كود اخر تقبل مرورى وتحياتى 1
أ محمد عبد الصمد قام بنشر يونيو 11, 2017 الكاتب قام بنشر يونيو 11, 2017 الاستاذ الفاضل خالد الرشيدى انا لم اري مشاركتك الاخيرة وهذا خطأ منى ربما لآنى استعجلت الحل وانا اعتذر وسوف اخد الكود الذى قدمته فى المشاركة الاخيرة واحاول ان اطوعه حسب رغبتي أن امكننى ولك الشكر وعلى فكرة كل ما اتقنته وتعلمته فى الاكسيل لاعضاء هذا المنتدى كل الفضل فيه
أ محمد عبد الصمد قام بنشر يونيو 11, 2017 الكاتب قام بنشر يونيو 11, 2017 شكرا للاستاذ الفاضل خالد الرشيدى والاستاذ ناصر سعيد واعتذر للاخ خالد الرشيدى لانى لم ار مشاركته التى تضمنت الحل وتصحيح الكود
خالد الرشيدى قام بنشر يونيو 11, 2017 قام بنشر يونيو 11, 2017 ا / محمد لما الاسف، الامر لا يستحق.. عندما زكرت ذلك كان ردا علي ا/ ناصر الذي اشار الي بعض التعديلات وعندها اعتقدت ان حضرتك تريد التعديل علي الكود الاخر وهو امر عادي جدا.. اتمني ان حضرتك تكون حصلت علي المطلوب تماما وعذراً علي ما ذكرت.. لم اقصد حقا تقبلوا خالص تحياتي وتقديري
الردود الموصى بها