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

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

قام بنشر

السلام عليكم

اخي عندما رايت ملف اخي احمد يعقوب

وجدت انني فسرت طلبك ناقصا

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

الملف بكوده ولكن يعمل لمجدر التغيير في الصفحة

تحياتي

____.rar

قام بنشر

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

كل عام وانتم بخير

الأستاذ القدير aah-aah 2008

هذه شهادة اعتز بها

شكرا جزيلا لك

ودائما نتعلم منك

قام بنشر

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

  • 2 weeks later...
قام بنشر

الأستاذ القدير aah-aah 2008 تحية طيبه لم احظ باهتمامكم الكافي لضيق وقتكم حسبما اظن انا وددت فقط لو يتم ارسال الملف الاخير ( tifo) ببرنامج آخر غير الريل بلير لعدم وضوح المحتويات مع الشكر

قام بنشر (معدل)

اخي الفاضل

جميعنا كان برنامج الفيديو واضح لدينا ولم يبدي اي احد انزعاج من ذلك

ولكن هنالك حل آخر

حدد الملف الاخير ( tifo)

ثم اضغط شفت مع كليك يمين للماوس

اختار من القائمة فتح باستخدام open wiyh

اختار برنامج الفيديو الذي تريدة

مع التحية

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

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

‏‏‏‏‏الاربعاء‏، 19‏/12‏/1429هـ. الموافق ‏17‏/12‏/08م

اخي الفاضل tofimoon4

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

و يقوم مقام الكود السابق بالضبض

آمل ان يحوز على رضاك

____1ay.rar

قام بنشر

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

قام بنشر

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

____.rar

_____2.rar

قام بنشر

اخي الفاضل tofimmon4

هل المطلوب عمل الكود على نموذج 2

بحيث كل اسم موجود في قائمة الوكلاء يتم نقلة الى ورقة الخلاصة

آمل التوضيح السريع

قام بنشر

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

‏‏‏‏‏‏‏‏‏‏الثلاثاء‏، 25‏/12‏/1429هـ. الموافق ‏23‏/12‏/08م

تم استخدام الكود

For E = 11 To Rows.Count
     If Cells(E, 4).Value <> "" Then
With Sheets("&Icirc;&aacute;&Ccedil;&Otilde;&aring;")
N = .Cells(.Rows.Count, "c").End(xlUp).Row + 1
               .Cells(N, 3) = Cells(E, 4)
               .Cells(N, 4) = Cells(E, 11)
               .Cells(N, 5) = Cells(E, 3)
End With
     End If
Next
Sheets("&Icirc;&aacute;&Ccedil;&Otilde;&aring;").Select

تم تعيين المتغير E من الصف 11 الى آخر صف

اذاكنت قيمة الخلية الصف E العمود الرابع لاتساوي فراغ

اذاً

مع صفحة الخلاصة

عين المتغير N اول صف فاضي في العمود C

الخلية في الصف N للعمود 3 تساوي الخلية في الصف E للعمود 4

و هكذا

آمل ان يكون واضح

شاهد الحل المرفق

هل هذا المطلوب

_____2ay.rar

قام بنشر

أستاذنا القدير مع شكري وامتناني لحلولكم الرائعه اتساءل عن امكانية الغاء زر( عمل ملخص بيانات ) والزر في صفحة الخلاصة لعدم حاجتي اليهما وتعريفي بطريقة عمل الزر المتبقي (زر النقل ) لأنه الاساس في عمل الكود وألا سأضطر الى البناء من جديد( ادخال البيانات ) في الصفحة التي بين يدينا مع التقدير

قام بنشر

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

‏‏‏‏‏‏‏‏‏‏الثلاثاء‏، 25‏/12‏/1429هـ. الموافق ‏23‏/12‏/08م

اخي الفاضل tofimmon4

بعمل رايت كليك على زر المتبقي (زر النقل )

تختار تعيين ماكرو

الشاشة التي تظهر تختار منها الماكرو الذي يبدأ بـ khb??_trheel ((لأن الكود منقول من احد اعمال الأستاذ خبور))

ثم موافق

بعمل رايت كليك على زر زر( عمل ملخص بيانات )

تختار قص Cut

فقط

مع التحية و التقدير

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