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

جدول


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

السلام عليكم

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

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

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

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

تحياتي

____.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

فقط

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

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

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

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



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

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

Important Information