-
Posts
411 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه gamalin
-
-
اخي ابو اسامة رجاء بحث هذ الامر او الرد وكذلك باقي الاخوة الكرام
-
-
-
للرفع
-
اخي ابو اسامة هل لي ان اطمع في ان يكون الكود بدلا من تنفيذه مع التغيير في الشيت مع تغيير الخلية في مدى محدد
والتعديل ليكون في شكل قائمة بدلا من خلية وحيدة ارجوا الاطلاع على الملف المرفق
-
اخي ابو اسامة اكرمك الله
هذا الكود الذي صنعته لي من قبل جزاك الله خيرا اريد اجراء تعديل عليه
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
بدلا من تنفيذه كلما حدث تغيير في الشيت كله ولك فائق التحية والاحترام
-
عذرا اخي لم اتمكن من التواصل امس لعدم وجود ماسينجر او ايميل بالعمل وربما تسنح الفرصة اليوم
اشكرك
-
السلام عليكم
هذا عنوانى Omarhajy@hotmail.com
اضفنى
حتى توضح لى الامر ان لم يقم احد الاخوه بحل الموضوع
هل كل خمسه اسطر تريدها كمجموعه ؟
اخي سوف اقوم باضافتك باذن الله عند عودتي من العمل
اشكرك
افتح شيت 2 ستجد ان البيان بشيت 1 تم نقل بياناته paste value في الشيت 2 ولكن الخمسة الاولى في جدول ثم الخمسة الثانية في جدول مع اجمالي السابقين وهكذا طالما توجد بيانات لم ترحل من 1 الى 2
-
استاذي الفاضل اولا م شيت 1 الى شيت 2
يوجد نموذج او جدول في شيت 2 يحتوي على خمس اسطر واجمالي و وماقبله
وهو مجرد نوذج فقط
اريد تكرار مثل هذا الجدول طالما هناك اسطر باقية لم ترحل من شيت واحد اتنمى ان يكون الموضوع كده واضح
-
الاساتذة الافاضل جزاكم الله خيرا
اريد ترحيل بيانات صفحة 1 الى صفحة 2 كقيمة value مع العلم
ان البيانات في صفحة 1 متغيرة من حيث عدد الاسطر
واريد طالما هناك اسطر في صفحة 1 يتم تكرار النموذج في صفحة 2 وتقسيم البيانات عليه الى ان تنتهي بيانات الصفحة 1
ارجوا ان يكون هذا الطلب ممكنا واتمكن من تعديله ليوافق بياناتي
اشكر سعة صدوركم ومساعدات اخي ابو اسامة
مرفق ملف به نموذج
اتمنى ان يكون الكلام واضح والاستفسار واضح
-
السهل الممتنع
اخي الفاضل جزاك الله خير الجزاء وفتح عليك
اشكرك جدا اضافة رائعة وهو بالضبط من ابحث عنه جزاك الله خيرا
-
-
عذرا التكرار غير مقصود
-
السلام عليكم ورحمة الله وبركاته
ارجوا ان تستكمل مساعداتكم الرائعة
بكودين
احدهما لادراج صفحتين احدما باسم 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
او تلوين السطر
او كتابة تم في عمود الاستخدام
اريد الثلاثة بدائل لاختيار ايها انسب في مشروعي الجديد
ارجوا ان يكون طلبي واضح
وارجوا ان يساهم اخي ابو اسامة في حل هذه المشكلة ليخبرني انه قبل اعتذاري وتفهم موقفي
وايضا اخي عمر وكل الزملاء يسعدني ان يهتموا بهذا الموضوع
-
االسلام عليكم
حل اخر خطر ببالى و انا متفرغ
عدل كما تشاء في اسما النطاقات
اعتذااااااااااااااااااااااااار شديد لاخي الحبيب ابو اسامة
ارجوا ان تتفهم موقفي ردي كان ظنا مني ان كل الردود لاخي نزار وبمجرد ان اتضح لي ان ردك بينها عدلك المشاركة وشكرتكم وقلت انه الاسهل واني فضلت استخدامه وعدلته وفقا لبياناتي بسهولة ويسر جزاك الله خيرا
اما عن ردودي المقطوعة والغير مفهومة فاعتذر عنها لكنها لم تكن كذلك
كل ما في الامر اني وجدت المكتبة التي في توقع اخونا فزرتها ووجدت بها من العلم النافع الكثير فشكرته وقلت له جزاك الله خيرا على المكتبة فرد علي وما دخل المكتبة بموضوعك فحذفت العبارة التي ضايقته وعذرا لاني كان المفروض ان احذف الرد كاملا
اكرر اعتذاري لاخي ابو اسامة ولاخي الحبيب عمر والذي عاتبني واوضح لي سؤ الفهم الذي حدث واشكره على مساعيه
وهذا ليس جديدا على اخي عمر فهو ليس مميز بعلمه فقط بل بخلقه وادبه
شكرا لكل من ساهم في حل موضوعي ومشكلتي
-
اخي الحبيب
اما الكود الاخر فهو
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
والذي بملف اخي ابو اسامة لاعلاقة له بتنفيذ المثال لان الجزء الذي يتحكم بحركة المؤشر هو الكود التالي
اعلم يا اخي وبساطة الكود سهلت علي تعديله ولكني اردت ان افهم الكود التالي اذا لم يكن لديك مانع فلا احب ان يمر من بين يدي ولا افهم ماذا يعني لربما احتجته لاحقا
لنكن متعلمين والا ايه
جزاك الله خيرا اخي ونفعك بعلمك ونفع بك
-
قائمة منسدلة تعتمد على شيت اخر
في منتدى الاكسيل Excel
قام بنشر
اخي ابو اسامة
رجاء بحث هذا الامر او الرد وكذلك باقي الاخوة الكرام