اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

 

قام بنشر

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

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

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

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

 

Extract Pass Using Arrays YasserKhalil.rar

قام بنشر

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

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

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

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

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

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

 

Extract Pass Using Arrays YasserKhalil.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

 

  • Like 1
قام بنشر
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

 

هذا الكود أدى الغرض والف شكر وكل عام وانتم دميعا بخير

قام بنشر

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

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

قام بنشر (معدل)

جزاكم الله خيرا

المحترم الاستاذ زيزو

برجاء وضع سطر للمسح ...  وسطر لاضافه التسطير حسب الاعداد الموجوده .. بارك الله فيك

تم تعديل بواسطه ناصر سعيد
قام بنشر

السلام عليكم

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

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

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

  • Like 1
قام بنشر

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

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

4.rar

قام بنشر (معدل)

السلام عليكم

ا / محمد  

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

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

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

4.rar

 

تم تعديل بواسطه خالد الرشيدى
  • Like 1
قام بنشر

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

4.rar

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

السلام عليكم

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

4.rar

 

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

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

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

  • Like 1
قام بنشر

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

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

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

  • Like 1
قام بنشر

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

قام بنشر

ا / محمد

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

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

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

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information