طلب مساعده في ترحيل البيانات بين شيتات متفرقه

[سيد الغنادير]

عندي 3 ملفات

اسجل البيانات في الشيت الاول وهو تلقائيا يسجل في الثاني وبعد كذا انسخه واسجله في الثالث وامسح بيانات الاول والثاني واعيد من جديد

ابغى اليانات ترحل من الشيت الاول الى الشيت الثالث واستغني عن الشيت الثاني وما عرفت تكفون حلوها لي شكرا

المرفق

[عبدالله المجرب]

السلام عليكم

اهلاً بك اخي الكريم بين اخوانك

نرجو منك الالتزام بقواعد المشاركة وخصوصاً

1. عنوان الموضوع وتوافقه مع الطلب

2. عدم فتح اكثر من موضوع

=======

نرجو منك وضع مرفق

لرفع مرفق قم بضغطه بالوينرار ثم ارفعه

[سيد الغنادير]

عندي 3 ملفات

اسجل البيانات في الشيت الاول وهو تلقائيا يسجل في الثاني وبعد كذا انسخه واسجله في الثالث وامسح بيانات الاول والثاني واعيد من جديد

ابغى اليانات ترحل من الشيت الاول الى الشيت الثالث واستغني عن الشيت الثاني وما عرفت تكفون حلوها لي شكرا

exel.rar

[عبدالله المجرب]

بصراحة لم افهم المطلوب (((فصل اكثر)))

ما الفرق لو تم وضع الشيتين الذين تريدهما في ملف اكسل واحد

===

سيتم دمج الموضوعين

[سيد الغنادير]

طريقة العمل القديمه هي يتم تقييم اداء الموظف وبالدوال ترحل الى الشيت الثاني ويتم نسخ من الشيت الثاني وترحيله يدويا بالنسخ ctrl+c واللصق في الشيت الثالث ctrl+v الى الشيت الثالث

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

لماذا كل شيت في ملف اكسل لان الشيت الاول والثاني تابت لجميع المقيميين اما الشيت الثالث فهو خاص بكل مقيم

ايضا اريد فلتره برقم الموظف ومعدل التقييم له

[سيد الغنادير]

شباب تكفون حلوها لي بسرعه محتاجها ضروري

[الـعيدروس]

السلام عليكم

تقصد ترحيل من ملف الى ملف

وليس من شيت الى شيت ؟؟

[سيد الغنادير]

اذا كان تقدر او ممكن نضيف الشيت الاول والثالث في ملف واحد ما في مشكله تكفى ساعدني

[الـعيدروس]

اذا تكرمت حط كل بيانات ملف في شيت

وشرح مبسط للمدى المراد ترحيل بياناته

وارفق الملف

وانا منتظر ردك

[سيد الغنادير]

تم تسجيل البيانات مع نوته بداخله توضح الاليه

[احمدزمان]

لاباس ياسيد الغنادير لاباس

بصراحة لم افهم المطلوب (((فصل اكثر)))

ما الفرق لو تم وضع الشيتين الذين تريدهما في ملف اكسل واحد

انا نزلت الملفات

و المطلوب ممكن ان شاء الله

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

[سيد الغنادير]

المطلوب ياعزيزي

الية العمل القديمه

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

المطلوب ترحيل من الشيت الاول الى الشيت الثالث الي طبعا كل واحد في ملف لوحده ومسح البيانات تلقائيا

[احمدزمان]

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

ايه الي مطلوب نقله من الملف 2

نقل الصف رقم 2 كاملا

او الصفوف 1و2و3 كاملة

او اجزاء محددة

[احمدزمان]

السلام عليكم

حسب مافهمت والله اعلم

اضفنا في ملف 2 ورقة لنقل البيانات

اولا افتح الملف الذي تريد نقل البيانات الية

2 اضغط على زر اسماء الملفات

تظهر لك قائمة باسماء الملفات المفتوحة اختار منها الملف الذي تريد نقل البيانات الية

اضغط زر ابدا نقل البيانات يتم نقلها الى هذا الملف

exel.rar

[سيد الغنادير]

الله يعطيك العافيه يا مدير قسم الاكسل

شكرا

بس انا حاولت اطبقها على الشيت حقي مارضي

Sub senddate()

Dim WB1 As Workbook, WB2 As Workbook, TS As Worksheet, FS As Worksheet

Set WB1 = Workbooks(Range("Result").Text)

Set WB2 = Workbooks(Range("Monitoring Sheet Template Updated").Text)

Set FS = WB1.Sheets("Result")

Set TS = WB2.Sheets(Range("C5").Text)

TR = TS.Range("A99").End(xlUp).Row + 1

FR = 2

For C = 1 To 66

TS.Cells(TR, C) = FS.Cells(2, C)

Next

' Sheets("Result").Range("A2:BM2").Copy

End Sub

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

ارسل لي ايميلك على الخاص وانا ارسل لك

تم تعديل يناير 16, 2012 بواسطه سيد الغنادير

[احمدزمان]

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

الخطأ في هذا الجزء

Set WB1 = Workbooks(Range("Result").Text)

المفروض يشير الى الخلية التي فيها اسم الملف الأول وهي في الصف الثالث

Set WB1 = Workbooks(Range("C3").Text)

تقريبا او اتأكد انته من الخلية

والله اعلم