ترحيل البيانات من جدولين إلى جدول واحد مع الترتيب

[بوعلام]

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

تحية عطرة لكل القائمين ورواد هذا المنتدى الكبير

أرجوا المساعدة في الملف المرفق

المطلوب داخل الملف.

الترحيل من جدولين.rar

[جمال عبد السميع]

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

الترحيل من جدولين.rar

[بوعلام]

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

جزاك الله كل خير على المحاولة لكن في طلبي يجب أن تحذف الصفوف التي تحتوي على 0 ويتم الترتيب كما هو مبين في الجول 3

ألف شكر على اهتمامك

[حمادة عمر]

السلام عليكم

الاخ الكريم / بوعلام

 

بارك الله فيك

بعد اذن الاستاذ القدير / جمال عبد السميع ... جزاه الله خيرا

واثراءا للموضوع ... والي ان يأتيك رد القدير ... الذي بلاشك سيكون اروع بكثير

جرب المرفق ... به المطلوب ولكن بالاكواد ... فقط اضغط علي الزر الموجود بالملف

ارجو ان يكون هو المطلوب

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

 

 

الترحيل من -SAMAجدولين.rar

 

[بوعلام]

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

شكرا أخي الكريم على هذا الحل الرائع لكن المطلوب أن يتم ترتيب الحراس حسب السلم من الأكبر إلى الأصغر 12 . 11 . 10 

شكرا جزيلا أرجوا المساعدة

[احمد عبد الناصر]

السلام عليكم

 

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

Sub SAMA()
Dim LastR1 As Long
Dim LastR2 As Long
Dim LR As Long

Application.ScreenUpdating = False
Range("L6:p20").ClearContents

LastR1 = Cells(Rows.Count, 7).End(xlUp).Row
Range("b5:g" & LastR1).AutoFilter Field:=6, Criteria1:="<>0"
Range("c6:g10").SpecialCells(xlCellTypeVisible).Copy
Range("L6").PasteSpecial

LR = Cells(Rows.Count, 12).End(xlUp).Offset(1, 0).Row
  
LastR2 = Cells(Rows.Count, 12).End(xlUp).Row
Range("b14:g" & LastR2).AutoFilter Field:=6, Criteria1:="<>0"
Range("C15:g19").SpecialCells(xlCellTypeVisible).Copy
Cells(LR + 1, 12).PasteSpecial
Range("b6:J19").AutoFilter
'*
Range("l" & LR + 1 & ":p" & Range("p" & Rows.Count).End(xlUp).Row).Sort key1:=Range("o" & LR + 1), order1:=xlDescending
'*
Application.ScreenUpdating = True

End Sub

تحياتي و الشكر موصول لاستاذ جمال

تم تعديل مايو 1, 2013 بواسطه احمد عبد الناصر

[أبو شرف]

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

اخوكم 

ابو شرف 

[عبد الحميد شقير]

اللهم اجعل كل ماتقدمونه في ميزان حسناتكم

[بوعلام]

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

شكرا أخي الكريم وسلمت يداك لكن لو تكرمت وشرحت لي الكود لأن خبرتي قليلة

وكيف يمكن إضافة صفوف أخرى لكل الجداول وشكرا جزيلا

[بوعلام]

هل يمكن فعل نفس العمل بالمعادلات 

 

للرفع

تم تعديل مايو 2, 2013 بواسطه بوعلام

[الخالدي]

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

جرب المرفق باستخدام المعادلات

يمكنك استخدام معادلة واحدة والاستغناء عن الاعمدة المساعدة بعد فهمها

في أمان الله

الترحيل من جدولين معادلات.rar

[حمادة عمر]

السلام عليكم

الاستاذ القدير / الخالدي

 

بارك الله فيك

دائما مبدع ورائع في معادلاتك كما انت في اكوادك

والاروع هو تواجدك بيننا هذه الايام ... برغم قلته بعض الشئ

تقبل تحياتي

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

[الخالدي]

شكرا لك استاذ حمادة عمر

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

البركة بكم بالأخوة في المنتدى

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

[جمال عبد السميع]

ماشاء الله أستاذى فى منتهى الذكاء بارك الله فيك

[الخالدي]

شكرا للمرور والثناء استاذ جمال

بارك الله فيك وجزاك خيرا