gamalin

للرفع

للرفع

اخي ابو اسامة هل لي ان اطمع في ان يكون الكود بدلا من تنفيذه مع التغيير في الشيت مع تغيير الخلية في مدى محدد

والتعديل ليكون في شكل قائمة بدلا من خلية وحيدة ارجوا الاطلاع على الملف المرفق

new5.rar

اخي ابو اسامة اكرمك الله

هذا الكود الذي صنعته لي من قبل جزاك الله خيرا اريد اجراء تعديل عليه

الكود يعمل بفاءة عالية والحمد لله ولكن التعديل المطلوب

ان يتم تنفيذ الكود فقط كلما حدث تغيير في مدى معين وهو c14 الى c63

بدلا من تنفيذه كلما حدث تغيير في الشيت كله ولك فائق التحية والاحترام

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

اشكرك

السلام عليكم

هذا عنوانى Omarhajy@hotmail.com

اضفنى

حتى توضح لى الامر ان لم يقم احد الاخوه بحل الموضوع

هل كل خمسه اسطر تريدها كمجموعه ؟

اخي سوف اقوم باضافتك باذن الله عند عودتي من العمل

اشكرك

افتح شيت 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

والكود الاخر لحذفهما

Sub ocolor()
Dim myrng As Range
Dim cell As Range
Dim myrows As Integer
Sheets(1).Activate
myrows = Range("A65000").End(xlUp).Row
Set myrng = Range(Cells(2, 1), Cells(myrows, 1))
For Each cell In myrng
If cell.Value = Sheets(2).Cells(3, 2).Value Then
cell.EntireRow.Interior.ColorIndex = 5
cell.Offset(0, 7).Value = "تم"
End If
Next
Sheets(2).Activate
End Sub

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

اشكرك ليس هناك ابدع ولا ايسر من ذلك

السلا م عليكم

تم اضافه الحذف او التلوين الى طلبك

استاذي بعد الاطلاع على الكود الرائع السهل الممتنع وتعديله تم بحمد الله ايضا تجربة التلوين

بقي لو وقتكم الكريم يسمح البديل الاول وهو كتابة كلمة تم فقط بس تكون value وليست معادلة وتتغير كلما حدث تغيير

ولك مني وافر التحية والاحترام واتمنى ان يكون بهذا الكود فائدة لكثير من الاخوة بالمنتدى

السلا م عليكم

تم اضافه الحذف او التلوين الى طلبك

استاذي الفاضل بارك الله فيك

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

اشكرك ولو امكن ان معالجة باقي البدائل اكون شاكر لك جدا

اخي جزاك الله خيرا قطعا شوطا طيبا

اولا القائمة تمام

لكن كلمة تم المفروض انها تعني ان هذا الاذن تم استخدامه يعني value ولا تتغير بتغير الاختيارات

شكرا على هذا الجهد الطيب وامل في المواصلة جزاك الله خيرا

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

الملف بامتداد exe

يعني ملف تنفيذي

المفروض يشتغل بالضغط عليه

بس المشكلة يا اخي تامر انه كده بيكون مغلق وغير ممكن التعلم منه

هل كلامي سليم ؟

اخواني الاعزاء اكرمكم الله

مرفق ملف به 2 شيت بالاول بيانات والثاني به جدول

مطلوب

عمل قائمة منسدلة في خانة رقم اذن الدخول

وبمجرد اختيار رقم الاذن من المتاح بشيت 1 يتم استكمال باقي بيانات الجدول في شيت 2

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

او تلوين السطر

او كتابة تم في عمود الاستخدام

اريد الثلاثة بدائل لاختيار ايها انسب في مشروعي الجديد

ارجوا ان يكون طلبي واضح

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

وايضا اخي عمر وكل الزملاء يسعدني ان يهتموا بهذا الموضوع

new.rar

االسلام عليكم

حل اخر خطر ببالى و انا متفرغ

عدل كما تشاء في اسما النطاقات

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

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

اما عن ردودي المقطوعة والغير مفهومة فاعتذر عنها لكنها لم تكن كذلك

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

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

وهذا ليس جديدا على اخي عمر فهو ليس مميز بعلمه فقط بل بخلقه وادبه

شكرا لكل من ساهم في حل موضوعي ومشكلتي

اخي الحبيب

اما الكود الاخر فهو

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

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

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

لنكن متعلمين والا ايه

جزاك الله خيرا اخي ونفعك بعلمك ونفع بك

عذرا

اخي الحبيب justice السلام عليكم

تاكد اخي انني شاهدت الملف من اخي ابو اسامة والذي تم ارساله بعد ما ارسلت مشاركتي عموما الاخ gamalin سيختار مايناسبه

شكرا اخي gamalin على هذا الاطراء ففعلا هذه الاخوة فانا افتقدتك منذ فترة لم اجد مشاركاتك فاهلا بعودتك

وشكرا مجددا

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

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

انا سعيد جدا بردودكم جميعا جزاكم الله خيرا

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

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 وسهل جدا التعديل فيه

اشكرك

بسم الله الرحمن الرحيم

اخي زيزو اشكر استجابتك وردك

اخي نزار بارك الله فيك

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

اخي ابو اسامة اشكر سرعة استجابتك وتلبية الطلب بالفكرة البسيطة والسهلة جدا

اشكركم جميعا وبارك الله فيكم وزادكم علما

ولو في اي اضافات سوف اوافيك باذن الله