اذهب الي المحتوي
أوفيسنا

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

قام بنشر

هههههههه

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

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

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

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

اخي سك بابك

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

ام لك راي اخر

جرب المرفق

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

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

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

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

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

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:

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

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

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

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

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

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

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

قام بنشر

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

وجزاك الله كل خير على كل حال لصبرك وعطائك

دمت بود

قام بنشر

اخي سك بابك

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

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

سيصبح كود 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

قام بنشر

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

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

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

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

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