ترحيل بيانات

[ابو حمادة]

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

محتاج مساعده من الاساتذه الكرام

اريد كود ترحيل بيانات من صفحه الي صفحة اخرى

اتمني الاطلاع علي الملف المرفق للتوضيح

ولكم مني جزيل الشكر والتقدير لمجهوداتكم

ترحيل بيانات.rar

[رجب جاويش]

أخى الفاضل

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

Sub نقل()
Dim Rng1 As Range, Rng2 As Range
Dim LastRow2 As Long, LastRow3 As Long
Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet
'===========================================================
Set sh1 = Sheets("B"): Set sh2 = Sheets("D")
Set sh3 = Sheets("Archive")
Set Rng1 = sh1.Range("D8:BM39")
Set Rng2 = sh1.Range("A40:BL40")
'===========================================================
Application.ScreenUpdating = False
LastRow2 = sh2.Range("A" & Rows.Count).End(xlUp).Row + 1
LastRow3 = sh3.Range("A" & Rows.Count).End(xlUp).Row + 1
'===========================================================
Rng1.Copy
sh3.Range("A" & LastRow3).PasteSpecial Paste:=xlPasteValues
Rng2.Copy
sh2.Range("A" & LastRow2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

 

ترحيل بيانات.rar

[ابو حمادة]

تسلم استاذي الفاضل دا هو المطلوب بس حضرتك عملت كود واحد ينفذ الترحيل انا عايز افصل بين الكودين  صفحة ( D ) وصفحة الارشيف

 

[رجب جاويش]

تفضل أخى

تم فصل الكود الى كودين كما تريد

 

ترحيل بيانات.rar

[ابو حمادة]

تسلم ياغالي وجزاك الله خيرا

ومعذرة تعديل بس من فضلك

انا عايز في حالة عدم وجود اي بيانات سابقه في الصفحات يتم النسخ

الصف رقم 5 اذا كانت صفحة الارشيف ليس بها اى بيانات سابقه يتم النسخ بعد الصف رقم 5 وايضا الصفحة (D ) بعد الصف رقم 4 في حالة عدم وجود اي بيانات بهما

 

 

[رجب جاويش]

هل تقصد هكذا

 

ترحيل بيانات.rar

[ابو حمادة]

دا المطلوب بجد بجد تسلم ايدكد

وجزاك الله خيرا اخي واستاذي الفاضل

استفسار اخير

يوجد بالخليه ( C5 ) معادلة (  () TODAY  ) لاستخراج تاريخ الشهر ومنسق لاظهار اسم الشهر الحالي في الصفحه ( B ) هل من الممكن وضع اسم الشهر الموجود في هذه الخليه امام كل صف تم نسخه في صفحة الارشيف

بحيث عند الاستعلام عن اي شئ تم اضافته بداخل صفحة الارشيف يتم معرفة الشهر الذي تمت فيه الاضافه

 

 

تم تعديل يناير 27, 2016 بواسطه ابو حمادة

[رجب جاويش]

تفضل أخى

 

ترحيل بيانات.rar

[ابو حمادة]

ماشاء الله بجد بد متشكر جدا استاذي الفاضل

كنت اتمني ان يكون اسم الشهر يكرر امام كل صف به بيانات تم نقله الي الارشيف لو امكن

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

 

[رجب جاويش]

تفضل اخى

 

ترحيل بيانات.rar

[ابو حمادة]

كدا تمام التمام بس الشهر منتقلش للصفحة (D )

 

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

35 دقائق مضت, ابو حمادة said:

كدا تمام التمام بس الشهر منتقلش للصفحة (D )

 

أين تريد وضع الشهر في الصفحة D ؟ لأن الترحيل إلى هذه الورقة يكون لصف كامل كما أردت وكما أجاب عليك أخونا المتميز رجب جاويش

[ابو حمادة]

يتم وضع الشهر بعد اخر عمود بها بيانات وليكن العمود ( BM )

[رجب جاويش]

تفضل أخى

تم وضع تاريخ الشهر فى الصفحة D فى العمود A  بالمثل كما فى صفحة الارشيف

ترحيل بيانات.rar

[ابو حمادة]

رجب جاويش

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

هو دا المطلوب بالظبط

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

ولى طلب في موضوع اخر  لو تكرمت

موضوع خاص بالدوائر الحمراء

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

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

دا رابط الموضوع الاصلي

 

 

ودا ملف للمطلوب اتمنى الاطلاع عليه

ودا الملف المطلوب تطبيق الدوائر الحمراء عليه

الدوائر الحمراء.rar

 

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

[رجب جاويش]

اخى ابو حمادة

تم عمل المطلوب على رابط موضوع كود الدوائر الحمراء

تعديل كود للدوائر الحمراء

 

[ابو حمادة]

السلام عليكم استاذي الفاضل رجب جاويش

قبلتني مشكله في كود الترحيل بالنسبه لصفحة ( D ) وهي

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

نطاق النسخ الذي اريده هو من الصف رقم 7 الي الصف رقم 14 بحيث يتم تجميع الاعمده في الصف رقم 15

اما بالنسبة لصفحة الارشيف

نطاق النسخ من ( D8:BM39 ) احيانا مش بتكون كلها بها بيانات بمعني يعني ممكن تكون البيانات الموجوده في هذا النطاق من ( D8:BM10 )  او اقل او اكثر الكود بينسخ النطاق كله وعند النسخ بينسخ الصفوف الفارغه وعند النسخ مره اخرى في صفحة الارشيف بيترك صفوف فارغه

اريد ان يعمل الكود ياخذ اي بيانات موجوده في الصفحه ( B ) من النطاق المحدد ( D8:BM39 ) ويتم نسخ الصفوف التي بها بيانات فقط في هذا النطاق  لصفحة الارشيف ويترك الصفوف الفارغه بحيث عند اضافة اي بيانات جديده لصفحة الارشيف يتم النسخ عند اخر صف به بيانات بدون ان يترك صفوف فارغه

اتمنى اكون قدرت اوصل لحضرتك المعلومه

تم تعديل يناير 29, 2016 بواسطه ابو حمادة

[رجب جاويش]

بالنسبة لصفة الارشيف أنا فهمت المطلوب

لكن بالنسبة للصفحة D لم يتضح المطلوب

والأفضل ارفاق ملف به بعض البيانات فى الصفحة D  والنتيجة المطلوبة

 

[ابو حمادة]

شكرا لاهتمامك استاذي الفاضل

اولا للتوضيح

صفحه ( B ) هي صفحة ادخال بيانات وارقام كثيره جدا النطاق ( D8:BM39 ) عباره عن اسماء بعض العاملين كل صف باسم عامل النطاق دا بيتم حفظه كل شهر لصفحة الارشيف ليتم عمل حصر كامل لجميع العاملين في خلال السنه او مده معينه ودا بيحصل من خلال صفحة الارشيف لان بيحفظ بها كل حركه تمت لكل موظف في خلال العام لكل شهر علي حدة

بالنسبه للنطاق ( D40:BM40  ) هو مجموع للنطاق السابق ( D8:BM39  ) لكل الارقام خلال الشهر لجميع العاملين والنطاق دا بيتم نسخه في صفحة ( D ) بعد فصل كل فئة من العاملين لوحدها وبذلك بيكون هناك اكثر من مجموع بيتم ترحيل كل المجاميع الي صفحة ( D ) ليتم حساب الاجمالي العام لكل الكشوف في النطاق ( A7:BJ15 ) وبيتم جمع كل الكشوف في الصف ( A16:BJ16 )

في الصفحة ( D ) لمعرفة مجموع الكشوف لكل الفئات خلال الشهر

اتمنى تكون وصلت الفكره

المطلوب باختصار

نقل الصف رقم ( D40:BM40) الى صفحة ( D ) في النطاق ( A7:BJ15 )

 

 

[رجب جاويش]

معلش اعذرنى اخى ابو حمادة

برجاء ارفاق ملف وتوضح عليه هذا الشرح

مع شرح مثال لمكان الترحيل

 

[ابو حمادة]

دا نموزج لتوضيح المطلوب بالظبط

ترحيل بيانات1.rar

[رجب جاويش]

أخى حماده

عندما يتم الترحيل الى صفحة D يتم ذلك فى السطر السابع ( تمام كدا )

وفى الترحيل التالى سوف يتم فى السطر الثامن وهكذا الى أن نصل الى السطر 15

ولكن عند الترحيل بعد ذلك ( أين يتم الترحيل ) علما بأن السطر 16 به معادلات كما تقول

أرجو التوضيح

 

 

 

[ابو حمادة]

كل شهر بيتم مسح الصفوف من السابع ال 15 وبيتم نسخ من جديد كل شهر يعني مش هنحتاج اننا ننسخ فيه حاجه لان هذه البيانات بيانات مؤقته لطباعه تقرير شهري فقط واي بيانات اخرى بنرجع للبيانات المؤرشفه

[رجب جاويش]

أخى حمادة

جرب المرفق

 

ترحيل بيانات1.rar

[ابو حمادة]

شكرا جزيلا استاذي الغالي

الشهر لم يتم نقله وعند الغاء علامة ' بيطلع خطأ في الكود

انا اسف لو تقلت عليك