gamalin

للرفع

للرفع

للرفع

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

اخي ابو اسامة اكرمك الله هذا الكود الذي صنعته لي من قبل جزاك الله خيرا اريد اجراء تعديل عليه Private Sub Worksheet_Change(ByVal Target As Range)Dim cell As Range Dim myt As Range Application.EnableEvents = False For Each cell In Sheets("ÝæÇÊíÑ ").Range("b2:b65500") For i = 1 To 13 Set myt = Range("c63").End(xlUp) If myt.Value = cell.Value Then myt.Offset(0, i).Value = cell.Offset(0, i + 2).Value myt.Offset(0, -1).Value = myt.Row - 13 End If Next Next Application.EnableEvents = True End Sub الكود يعمل بفاءة عالية والحمد لله ولكن التعديل المطلوب ان يتم تنفيذ الكود فقط كلما حدث تغيير في مدى معين وهو c14 الى c63 بدلا من تنفيذه كلما حدث تغيير في الشيت كله ولك فائق التحية والاحترام

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

اخي سوف اقوم باضافتك باذن الله عند عودتي من العمل اشكرك افتح شيت 2 ستجد ان البيان بشيت 1 تم نقل بياناته paste value في الشيت 2 ولكن الخمسة الاولى في جدول ثم الخمسة الثانية في جدول مع اجمالي السابقين وهكذا طالما توجد بيانات لم ترحل من 1 الى 2

استاذي الفاضل اولا م شيت 1 الى شيت 2 يوجد نموذج او جدول في شيت 2 يحتوي على خمس اسطر واجمالي و وماقبله وهو مجرد نوذج فقط اريد تكرار مثل هذا الجدول طالما هناك اسطر باقية لم ترحل من شيت واحد اتنمى ان يكون الموضوع كده واضح tarheel_in_form.rar

الاساتذة الافاضل جزاكم الله خيرا اريد ترحيل بيانات صفحة 1 الى صفحة 2 كقيمة value مع العلم ان البيانات في صفحة 1 متغيرة من حيث عدد الاسطر واريد طالما هناك اسطر في صفحة 1 يتم تكرار النموذج في صفحة 2 وتقسيم البيانات عليه الى ان تنتهي بيانات الصفحة 1 ارجوا ان يكون هذا الطلب ممكنا واتمكن من تعديله ليوافق بياناتي اشكر سعة صدوركم ومساعدات اخي ابو اسامة مرفق ملف به نموذج اتمنى ان يكون الكلام واضح والاستفسار واضح tarheel_in_form.rar

السهل الممتنع اخي الفاضل جزاك الله خير الجزاء وفتح عليك اشكرك جدا اضافة رائعة وهو بالضبط من ابحث عنه جزاك الله خيرا

للرفع

عذرا التكرار غير مقصود

السلام عليكم ورحمة الله وبركاته ارجوا ان تستكمل مساعداتكم الرائعة بكودين احدهما لادراج صفحتين احدما باسم m1 والاخرى m2 والكود الاخر لحذفهما

لا اجد افضل من جزاك الله خيرا ونفعك ونفع بك ورضي عنك وارضاك وهنأك بالقبول اشكرك ليس هناك ابدع ولا ايسر من ذلك

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

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

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

ولا رد ياترى هل السؤال غير واضح ام انه يحتاج لوقت ؟

الملف بامتداد exe يعني ملف تنفيذي المفروض يشتغل بالضغط عليه بس المشكلة يا اخي تامر انه كده بيكون مغلق وغير ممكن التعلم منه هل كلامي سليم ؟

اخواني الاعزاء اكرمكم الله مرفق ملف به 2 شيت بالاول بيانات والثاني به جدول مطلوب عمل قائمة منسدلة في خانة رقم اذن الدخول وبمجرد اختيار رقم الاذن من المتاح بشيت 1 يتم استكمال باقي بيانات الجدول في شيت 2 وبعدها يتم اما حذف السطر من شيت 1 او تلوين السطر او كتابة تم في عمود الاستخدام اريد الثلاثة بدائل لاختيار ايها انسب في مشروعي الجديد ارجوا ان يكون طلبي واضح وارجوا ان يساهم اخي ابو اسامة في حل هذه المشكلة ليخبرني انه قبل اعتذاري وتفهم موقفي وايضا اخي عمر وكل الزملاء يسعدني ان يهتموا بهذا الموضوع new.rar

اعتذااااااااااااااااااااااااار شديد لاخي الحبيب ابو اسامة ارجوا ان تتفهم موقفي ردي كان ظنا مني ان كل الردود لاخي نزار وبمجرد ان اتضح لي ان ردك بينها عدلك المشاركة وشكرتكم وقلت انه الاسهل واني فضلت استخدامه وعدلته وفقا لبياناتي بسهولة ويسر جزاك الله خيرا اما عن ردودي المقطوعة والغير مفهومة فاعتذر عنها لكنها لم تكن كذلك كل ما في الامر اني وجدت المكتبة التي في توقع اخونا فزرتها ووجدت بها من العلم النافع الكثير فشكرته وقلت له جزاك الله خيرا على المكتبة فرد علي وما دخل المكتبة بموضوعك فحذفت العبارة التي ضايقته وعذرا لاني كان المفروض ان احذف الرد كاملا اكرر اعتذاري لاخي ابو اسامة ولاخي الحبيب عمر والذي عاتبني واوضح لي سؤ الفهم الذي حدث واشكره على مساعيه وهذا ليس جديدا على اخي عمر فهو ليس مميز بعلمه فقط بل بخلقه وادبه شكرا لكل من ساهم في حل موضوعي ومشكلتي

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

عذرا

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

اخي نزار جزاك الله خيرا وكل شي تمام وزي الفل بس لو ممكن تشرح لي معني هذا الجزء من الكود اكون شاكر Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row <> 11 Or Target.Column Mod 2 = 1 Then Exit Sub If Target.Row = 11 Then Cells(1, Target.Column + 2).Select End If End Sub وايضا من الكود الاخر Private Sub Worksheet_SelectionChange1(ByVal Target As Range) Dim i As Integer Dim iRow As Integer For i = 1 To 10 iRow = Choose(i, 6, 5, 15, 10, 16, 21, 1, 17, 13, 2) Cells(iRow, 4) = i Next i End Sub اما الباقي فهو جميل ومفهوم والكود بغض النظر عن الجزء غير المفهوم منه سهل خاصة بملف test2 وسهل جدا التعديل فيه اشكرك