ترحيل بيانات بشكل عمودي بشرط

[احمد الغوري]

الاخوة الكرام 

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

تفاصيل اكثر موضحة في الملف المرفق 

يرجى تكرمكم وكما عهدناه في اكثر من طلب سابق .

مع فائق تقدري لما تبذلونه من جهود في خدمة الجميع .

والله الموفق 

 

برنامج السيارات 1.xlsm

[أ / محمد صالح]

جرب هذا الكود لإجراء الترحيل

Sub migration()
Application.ScreenUpdating = 0
lr1 = Sheets("migration").Cells(Rows.Count, 2).End(xlUp).Row
lr2 = Sheets("ALL DATA").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("migration").Range("b4:n" & lr1).Copy
Sheets("ALL DATA").Select
Sheets("ALL DATA").Range("B" & lr2 + 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = 0
Sheets("ALL DATA").Range("B4").Select
Sheets("migration").Select
For n = 4 To lr1
Dim cl As Range, inrange As Boolean
For Each cl In Range(Cells(n, 2))
If cl.Value = Cells(n, 2).Offset(0, 4).Value Then inrange = True
Next
If Not inrange Then Range(Cells(n, 2)).Cells(Range(Cells(n, 2)).Cells.Count).Offset(1) = Cells(n, 2).Offset(0, 4).Value
Next n
Range("b4:n52").ClearContents
Range("B4").Select
Application.ScreenUpdating = 1
MsgBox "Done"
End Sub

بالتوفيق 

[kk_elmasry]

السلام عليكم لدي مشكلة في كود الترحيل لقيم ولم اعرف ما الخطأ

ارجو شاكرا توضيح الخطأ

مصنع البلك.xlsm

[أ / محمد صالح]

9 دقائق مضت, kk_elmasry said:

السلام عليكم لدي مشكلة في كود الترحيل لقيم ولم اعرف ما الخطا

يبدو أن هذا الامر لا يتعلق بالموضوع ولا ملف الموضوع

يمكنك بدء موضوع جديد حتى يكون كل موضوع له خصوصيته

[احمد الغوري]

اشكرك اولا على تجاوبك أ/ محمد صالح وعلى مجهودك في عمل الكود 

ان شاء الله اجرب الكود وارجع لك خبر .ربنا يفرج عنك كل هم وينفس عنك كل كرب ويجزيك عنا كل خير .

تحياتي وتقديري لك ولبقية الاساتذة الافاضل 🌹

[احمد الغوري]

اخي الكريم ا/محمد صالح

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

Application.ScreenUpdating 0
Application.ScreenUpdating 1

ولكن حذفتهما واشتغل الكود 

ربنا يفتح عليك ويزيدك علما وفهما 

ملاحظة : وانا استعرض الكود ما ظهر اسم الورقة car'scod قلت ربما لم يقرأ المطلوب بجانب ورقة migration 😞

ولكنك اديت المطلوب شكرا لك مرة اخرى

 

 

تم تعديل أغسطس 5, 2021 بواسطه احمد الغوري

[أ / محمد صالح]

ضع قبل 1 و 0 علامة =

تم تحديث الكود السابق

وبالنسبة لاسم الشيت لم استخدمه بل استخدمت اسماء النطاقات المسماة في الجداول في الصفحة الثالثة

فكل نوع سيارة له نطاق مسمى باسمه

ومجموعة الأنواع اسمها car وهكذا

[احمد الغوري]

طبقت الكود المعدل واشتغل تمام 

لكن ظهرت لي مشكلة عند الترحيل لـ chassis no. إلى ورقة  car'scod تنتقل البيانات إلى جميع اصناف السيارات  عدا  ISUZU ترحل إليه آخر صنف فقط من المرحل .

يرجى التكرم بحل هذه المشكلة مرفق لكم الملف وقد حددت البيانات باللون الأحمر في ورقة ALL DATA وايضاف في ورقة car'scod باللون الاخضر على الاصناف الشغاله و بالاحمر على ISUZU وهي خلايا فارغه . مع جزيل الشكر ,,,

  برنامج السيارات 1.xlsm

[أ / محمد صالح]

المشكلة في مرجع الاسم Isuzu هو الخلية الأولى فقط وليس الجدول ككل

ولاصلاح ذلك

من تبويب formulas المعادلات

Name manager ادارة الاسماء 

حدد ايسوزو من قائمة الاسماء بالأعلى 

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

[احمد الغوري]

حياك الله ا/محمد صالح 

علم ان شاءالله اعيد تعريف النطاق كما اوضحت .

شكرا على التوضيح .

[احمد الغوري]

اخي ا/ محمد صالح 

قمت باعاة تعريف النطاق  isuzu وكان الخطأ ان النطاق غير مكتوب بالكامل يعني مكتوب فقط E$4$ وأعدت تعريفه وتمت طبعا هو كان معرف بالاصل صحيحا ولكن بسبب اني اجرب ببيانات افترضية وارجع امسحها تعمل لي مشاكل وهكذا حتى في الانواع الاخرى بسبب مسح جزء من الجدول وارجع اعرف النطاقات وارجع اجرب وارجع امسح وهكذا ادور في نفس الدائره .

لذا افكر اذا بالامكان العمل مع نطاقات عاديه وليس جداول .

وانا محرج منك لكثرة طلباتي وانت كما لاحظت ترد على طلبات كثيره غيري  جزاك الله عنا وعنهم خيرا .

لا اريد اكثر عليك اذا قدرت والا ساعمل الموجود حسب الامكان .

شكرا لك مع اجمل التحايا 🌺🌸🌹

 

[أ / محمد صالح]

هذا هو الأفضل وهو الذي كنت سأفعله

لكني وجدتك تستعمل النطاقات المسماة

تم تعديل الكود مع امكانية اضافة عمود للسيارة الجديدة تلقائيا 

وعدم تكرار رقم الشاسيه لكل نوع سيارة 

بالتوفيق

برنامج السيارات3.xlsm

[احمد الغوري]

نعم طبقت الكود وعمل بشكل ممتاز .

طبعا في المرة الاولى كان استخدامي للجداول من اجل القوائم المنسدلة  الفرعيه وكما تعرف  للتخلص من ظهور الفراغ في تلك القوائم و امكانية اضافة بيانات بدون تحديد نطاق معين.

على كل حال الان افضل .

وشكرا على تفاعلك اخي الرائع  و اقدر جهودك .

مع تحياتي وفائق التقدير 🌹