تصحيح فى كود ترحيل

[أ محمد عبد الصمد]

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

 

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

اطلعت على الكود ويبدو أن الكود لملف آخر حيث يوجد تضارب كبير ..

عموماً الأفضل أن يكون الطلب واضح في عملية الترحيل .. ما هي ورقة البيانات التي يتم جلب البيانات منها وإلى أي ورقة تريد الترحيل وما هي الأعمدة المطلوبة في كل ورقة

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

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

 

Extract Pass Using Arrays YasserKhalil.rar

[أ محمد عبد الصمد]

الاستاذ ياسر الف شكر نزلت الملف وجارى التعديل عليه مشكلتى أنى فى البرمجة 10/1

منذ ساعه, ياسر خليل أبو البراء said:

اطلعت على الكود ويبدو أن الكود لملف آخر حيث يوجد تضارب كبير ..

عموماً الأفضل أن يكون الطلب واضح في عملية الترحيل .. ما هي ورقة البيانات التي يتم جلب البيانات منها وإلى أي ورقة تريد الترحيل وما هي الأعمدة المطلوبة في كل ورقة

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

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

 

Extract Pass Using Arrays YasserKhalil.rar

الورقة المطلوب جلب البيانات منها هى الراسبين والورقة التى يتم الترحيل لها هى ورقة الدور الثانى فى الملف المرفق 

 

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

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

يمكن تطويع الكود بحيث يتم الإشارة لورقة العمل المصدر وورقة العمل الهدف .. ليست مشكلة كبيرة

حاول تطلع على الكود وإن شاء الله تستطيع التعديل عليه

[أ محمد عبد الصمد]

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

 

ترحيل مفيد باختبار اعمدة معينة.rar

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

إذا لم يتدخل أحد الأخوة سأحاول في موضوعك غداّ إن شاء الله

[ابراهيم الحداد]

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

اخى الكريم الاستاذ / محمد

جرب هذا الكود بدون اى تعديل ربما يفيدك

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

 

[أ محمد عبد الصمد]

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 بواسطه ناصر سعيد

[خالد الرشيدى]

السلام عليكم

اخى الكريم رغم محاولتى الاطلاع على كافة التعليقات والاكواد التى جاءت بها - الا ان مطلوبك غير واضح - 

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

تقبلوا مرورى وتحياتى 

[أ محمد عبد الصمد]

الاخ خالد الرشيدى كل عام وحضرتك بخير وشكرا على المرور

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

4.rar

[أ محمد عبد الصمد]

الاعضاء الكرام للرفع وكل عام وانتم بخير

 

[خالد الرشيدى]

السلام عليكم

ا / محمد  

حضرتك حددت الاعمده المطلوب ترحيلها والى اين ولكن -- حضرتك حددت العمودين T - Y  ( المجموع ) - والعمود C - كأعمدة لا يراد ترحيلها في حين انها موجوده في شيت الدور الثاني -  ؟؟؟؟؟؟؟

العمود N  على الرغم من ان حضرتك محدده كعمود يراد ترحيله الا انه غير موجود بشيت الدور الثاني ؟؟؟؟؟؟

انظر المرفق وابدي ملاحظاتك 

4.rar

 

تم تعديل يونيو 11, 2017 بواسطه خالد الرشيدى

[أ محمد عبد الصمد]

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

4.rar

[ناصر سعيد]

2 ساعات مضت, خالد الرشيدى said:

السلام عليكم

انظر المرفق وابدي ملاحظاتك 

4.rar

 

المرفق راائع  جزاك الله كل خير وبارك فيك

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

حفظك الله ورعاك

[خالد الرشيدى]

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

هذا بجانب اني اعتقد انه لا يريد الكود المقدم منى ( وهو كود استاذى ابو البراءانا فقط عدلت عليه بما يناسب الملف ) لانى بعد اضافته تجاهل المشاركه  بطلب التعديل على كود اخر 

تقبل مرورى وتحياتى 

[أ محمد عبد الصمد]

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

[أ محمد عبد الصمد]

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

[خالد الرشيدى]

ا / محمد

لما الاسف، الامر لا يستحق..  عندما زكرت ذلك كان ردا علي ا/ ناصر الذي اشار الي بعض التعديلات وعندها اعتقدت ان حضرتك تريد التعديل علي الكود الاخر وهو امر عادي جدا..  

اتمني ان حضرتك تكون حصلت علي المطلوب تماما

وعذراً علي ما ذكرت..  لم اقصد حقا

تقبلوا خالص تحياتي وتقديري