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

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


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

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

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

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

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

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

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

والله الموفق 

 

برنامج السيارات 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

بالتوفيق 

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

Application.ScreenUpdating 0
Application.ScreenUpdating 1

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

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

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

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

 

 

تم تعديل بواسطه احمد الغوري
رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

ولاصلاح ذلك

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

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

بالتوفيق

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

رابط هذا التعليق
شارك

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information