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

ترحيل مواد


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

هههههههه

دقت من الصبح لكني نسيت فعذرني

سأبدء المحاولات

أضحك الله سنك اخي واستاذي القدير ابو احمد

الله يوفقك ابو احمد بل انت الذي ارجو انت تعذرني على كثرة اسألتي فلاحرمك الله الاجر

اخي سك بابك

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

ام لك راي اخر

جرب المرفق

جزاك الله خيرا ورفع قدرك

هو بالفعل ما اردته

أسأل الله أن يعلي شأنك وقدرك ومنزلتك وذكرك في الدنيا والاخرة

هناك مشكلة صغيرة ؟؟؟

عند تفعيل أي ورقة من الورقات المطلوبة يقوم البرامج بتكرار البيانات ... فهل من طريقة للتأكد عند فتح الورقة

1- التاكد من عدم وجود البيانات وأنها غير موجودة لإضافتها

أو

2- التأكد من أن البيانات موجودة وفي هذه الحالة لا يتم اضافتها

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

  • الردود 51
  • Created
  • اخر رد

Top Posters In This Topic

الاستاذ المحترم عبد الله

كودك رائع ولكن اخي الكريم اريد شرح له .. لماذا ؟

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

لان الملف الاصلي متغير في اماكن الاعمدة وعددها والصف الذي نبدأ منه وايضا في الصفحات التي ليست رئيسيه

قد تتغير بدايه الصف

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

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

السلام عليكم اخي سك بابك هذا حل مبدئي جربه وابد رايك فيه

جزاك الله خير اخوي ابو احمد

اسال الله أن لا يحرمك أجر ما عملته وأن يريك أثره خيرا في الدنيا والآخره

نعم الحل ممتاز بل رائع بل جميل .. بجمالك وروعتك وامتيازك

والله إني لأغبطك على هذا العلم فليرفعك الله به دنيا واخرة

طلب اخير اخي العزيز

شرح الكود لا حرمك الله الاجر إن استطعت

شكرا لك

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

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

الاخ العزيز والاستاذ القدير أبو احمد

استفسار بسيط ياغالي

لو تم تعديل مسمى الأوراق الاخرى غير الرئيسية هل سيعمل الكود ...؟؟

مثلا في مثالي السابق كان لدي :

1- Main

2- Excellent

3- VeryGood

4- Good

5- Poor

لو تم تغييرها إلى التالي :

1- Main

2- E

3- VG

4- G

5- P

هل سيعمل الكود بدون مشاكل ... واذا كان هناك سيظهر خطأ أو أنه لا يعمل فكيف السبيل إلى ذلك خصوصا وأن لدي أكثر من ملف تختلف مسميات الاوراق فيه

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

جزاك الله خير

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

السلام عليكم

الترحيل يعتمد على اسم ورقة العمل فلو تغيير اسم ورقة العمل يجب تغيير مسمى النتيجة كذلك في الورقة الرئيسية

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

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

تبارك ما شاءالله ... والله ما ظننت ستكون اجابتك لي بهذه السرعة

ولو لي صلاحية من الأمر لأدخلتك كتاب جينس للأرقام القياسية في اسرع رد في العالم .. :fff:

الغالي ابو أحمد ..

هل لك أن تدلني على هذا الأمر ..وكيفية صياغة أو تعديل الكود ..

حيث أن هناك ملفات أخرى تختلف النتيجه عن مسمى الورقات

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

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

هل لك أن تدلني على هذا الأمر ..وكيفية صياغة أو تعديل الكود ..

حيث أن هناك ملفات أخرى تختلف النتيجه عن مسمى الورقات

في هذه الحالة الكود في حاجة الى صياغة اخرى

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

ان شاء الله (سيكون شرح فيديو كمان)

عما قريب

وانا في انتظار هذا الشرح

موضوع ترحيل البيانات مهم للكثير

تفضل الشرح المصور للكودين

الشرح.rar

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

اخي سك بابك

بخصوص هذا الطلب

هل أطمع أخي ابو احمد في كرمك وأحصل على ذلك الكود ...؟؟

سيصبح كود Abu_Ahmed1 هكذا ولو تلاحظ انه لم يتم التغيير الا باضافة سطر وتعديل بسيط في الشرط

لكن قبل اضافة الكود يجب ان تجعل قيمة الخلية J1 (حالياً مكتوب بها Rating) باسم التقييم مثل Excellent وهكذا شاهد الصورة

post-59952-0-62683000-1322066582_thumb.j


Sub Abu_Ahmed1()

Dim cl As Range

Application.ScreenUpdating = False

sh = ActiveSheet.Name

sh1 = ActiveSheet.Range("J1").Value

MLR = Sheets("Main").Range("A" & Rows.Count).End(xlUp).Row + 1

For Each cl In Sheets("Main").Range("G3:G" & MLR)

If cl.Value = sh1 Then

LR = Sheets(sh).Range("A" & Rows.Count).End(xlUp).Row + 1

Sheets("Main").Cells(cl.Row, 1).Resize(1, 7).Copy Sheets(sh).Range("A" & LR)

End If

Next

Application.ScreenUpdating = True

End Sub

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

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

اسعد الله اوقاتكم بكل خير

اخوي ابو أحمد بارك الله فيك

إبداع فوق الوصف

لا حرمك الله الاجر

واجهتني مشكلة بسيطة بالنسبة لعلمك ومعرفتك لطفاً منك طريقة حلها

المشكلة هي ان الفلتر لا يمسح الاسماء القديمة فمثلاً

الطالب الذي حصل على تقدير Poor لو تم عمل اختبار تحسين مستوى له وحصل على درجة أعلى من السابقة وأصبح تقديره Good ستجد أن بيااناته مسجله في الورقتيين ( Good , Poor )

فلو أن الفلتر يقوم بمسح البيانات السابقة ويقوم بنسخ البيانات الجديدة أعتقد أن ذلك سيكون أفضل

بنتظار ردك استاذي العزيز

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

تبارك الله ما ششاءالله ليهنىء العلم بأمثالك

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

عن أسامة بن زيد رضي الله عنهما قال : قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهُ عَلَيْهِ وَسَلَّمَ : ( مَنْ صُنِعَ إِلَيْهِ مَعْرُوفٌ فَقَالَ لِفَاعِلِهِ : جَزَاكَ اللَّهُ خَيْرًا . فَقَدْ أَبْلَغَ فِي الثَّنَاءِ ) . رواه الترمذي (1958)

جزاك الله خير ورفع قدرك

لك دعوه بظهر الغيب أسأل الله ان يتقبلها

شكرا لك أخي ابو احمد ووفقك الله ووالديك وولديك واهلك

شكرا شكرا شكرا

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

  • 4 weeks later...

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

عودة مر أخرى استاذي ومعلمي أبو احمد

استاذي العزيز

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

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

ان الترحيل سيكون خارج الملف الرئيسي إلى ملفات اخرى على نفس الجهاز وايضا الترحيل يكون لبعض الاعمدة المختلفة وليس لكل الاعمدة

ولعل المثال المرفق يوضح المطلوب بارك الله فيك

اسأل الله ان ينعم عليك الصحة والعافية والستر وأن يرفع ذكرك في الدارين وجزاك الله كل خير

Class.rar

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

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

اخي العزيز ابو احمد

لازلت بارك الله فيك في حاجة إلى علمك ومعرفتك حول طلبي السابق

بانتظار ردك وفقك الله

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

من فضلك سجل دخول لتتمكن من التعليق

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



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

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



×
×
  • اضف...

Important Information