ibn_egypt

اخى الفاضل كما تفضل الأساتذة الكرام انت باعت Registry File ... فيه حاجات اسهل من كده .. لو عاوز ماكرو لمعرفة ال IP الخاص بجهازك تفضل الملف المرفق تحياتي ip.rar

اخى الفاضل جرب الملف المرفق لربما به طلبك .. واعتبرها محاولة للمساعدة تحياتي فورم يعرض نطاق كأنة قناة تلفزيونية.rar

اخى الفاضل أولاً .. المرفق عبارة عن مجلد فارغ ثانياً: للرفع بعد دقيقة واحدة فقط من طرح الموضوع تحياتي

اخى الكريم السلام عليكم ورحمة الله وبركاته الصبر على اخوانك فكل منا لديه انشغالاته .. عامة تفضل الملف المرفق لربما به طلبك .. تم تلبية طلبك بطريقتين الاولى IF AND وتستخدمها اذا كانت الارقام ليست كبيرة عندك اما اذا كانت كثيرة فضعهم في جدول واستخدم SUMPRODUCT شاهد الملف تحياتي BetweenNumbers.rar

اخى الفاضل بعد إذن الفاضل أ.محمد الريفي ومن باب التنوع تفضل الملف المرفق نفس العمل باستخدام الكود، على افتراض ان اسم الزبون دائما في الخلية A1 ورصيده دائما في الخلية F3 تحياتي حسابات الزباين.rar

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

أخى الفاضل أ.محمد عمل رائع .. جزاك الله كل خير وجعله الله في ميزان حسناتك تحياتي

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

أخى الفاضل تفضل الملف المرفق، يتم ترحيل مدخلات مربع النص بالترتيب ابتداءا من A2 اذا كنت تريد ادخال البيانات في الخلية A1 فقط ... فقم بحذف +1 من السطر ده واحذف كافة بيانات العمود A سيتم الادخال في الخلية A1 فقط lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 تحياتى ترحيل الى خلية.rar

أخى الفاضل كلمة لله، طالما طلبك لم تجد له أى رد فتأكد تماما انه غير مفهوم وغير واضح لإخوانك بالمنتدي .. فبرجاء توضيح ما تريد بالأمثلة والبيانات .. واجعل طلباتك واضحة وضوح الشمس وبكل تأكيد ان شاء الله ستجد بدل الكلمة كلمات تحياتي

ibn_egypt ربنا يخليك لمصر تسلم يا غالي ألف شكر أستأذن حضرتك بس تشرحلى اتعملت ازاي ربنا يبارك فيك أخى الفاضل سلمك الله من كل شر، والحمد لله ان وجدت مبتغاك ... اما بخصوص شرح الدالة ابحث عن Lookup واخواتها VLookup و HLookup فهما في منتهى الاهمية والحمد لله ان مصادر المعلومات لهم متوفرة وعديدة تحياتي

أخى الفاضل تفضل الملف المرفق لربما به طلبك .. اخر قيمة واصغر قيمة مقابلة للبحث تحياتى low&last.rar

اخى الفاضل اجعلها بهذا الشكل Dim j As Integer For j = 1 To 2 Me.Controls("ComboBox" & j).List = Array("الفوج1", "الفوج2") Next j تحياتي

أخى الفاضل الجموعي استخدم الترقيم افضل اما رقم 1 او 2 .... أو من الممكن ان تستخدم اسماء الشيت نفسها Set GRHS = ThisWorkbook.Sheets("GRH") تحياتي

اخى الفاضل الجموعي راجع الملف المرفق .. لربما به طلبك تحياتي فورم بحث (تم الحفظ تلقائياً).rar

اخى الفاضل أبو البراء رائع وممتع .. بجد تحفة ومفيدة جدا جدا وخاصة انها تتجاهل الفراغات والتكرار .. تسلم ايدك استاذي الفاضل بعد إذنك استاذي الفاضل أ.ياسر، مرفق ملف تم به تفادي ملاحظة أ.سليم وبهذا تعمل القائمة على أخر صف في اطول عمود لتحضر كافة البيانات وليس على العمود A تحديدا خالص تمنياتي لك استاذي الفاضل بمزيد من التقدم والرقي .. جزاك الله كل خير تحياتي Unique Validation List From Multi Columns.rar

أخى الفاضل الجموعي جرب الملف المرفق لربما به طلبك ... اما بخصوص BASE DE DONNEES و RESEAUX فتأكد تماما انى مش فاهم اى حاجة .. كلمنا عربي تحياتي فورم بحث (تم الحفظ تلقائياً).rar

أخى الفاضل السلام عليكم ورحمة ورحمة الله وبركاته انشئ أى عدد تحبه من الماكرو وليكن Macro1 و Macro2 و Macro3 وهكذا وفي النهاية اجعل هناك Macro سميه وليكن Executeall اكتب به Call Macro1 Call Macro2 Call Macro3 وخصص الأيقونة بتاعتك او الزر بتاعك لهذا الماكرو فقط .. سيتم بمجرد الضغط عليه تنفيذ كل الماكرو واحدا بعد الآخر تحياتي

الأخ الفاضل هذا الشرح يحتاج لبعض التوضيح مثل Range("RN").AutoFilter أي ان اتصفية تكون في النطاق A3:D75 الذي سميناه RN RN كيف يتم تحديده داخل الكود ورجاءاً ممكن شرح الطريقة خطوة بخطوة حتي يتسني لنا فهم كيفية عمل مثل هذا البحث أخي الفاضل أ.محمود الموضوع ببساطة كالتالي أولاً : نحدد النطاق الذي سنعمل عليه ومن مربع الاسم الموجود على يسار شريط الصيغة نكتب اى اسم نريده وليكن كما تفضل ابو حنين RN ونضغط انتر .. وهناك طريقة اخرى لعمل ذلك بأن نذهب الى القائمة صيغ Formulas ثم نختار ادارة الأسماء Name Manager واختيار جديد New ثم نكتب الاسم الذي نريده للنطاق ونحدد خلايا هذا النطاق من Refers to ونضغط موافق في هذه الخطوة حددنا النطاق الذي سنعمل عليه وهو مثلا من A5:D75 واعطيناه اسما وليكن كما في المثال RN .... تمام ثانيا : نذهب الى المطور Developer ونختار ادراج Insert ونحدد مربع نص TextBox ونضيفه بداخل الورقة عن طريق السحب والإفلات .. تمام كده جددنا النطاق وأضفنا مربع النص اللى هنكتب فيه معيار البحث .. وطبعا يفضل انك تضع مربع النص اعلى العمود اللى هيتم فيه البحث .. تمام نيجي على الورقة بتاعتنا تحت نضغط Right-Click ونختار اظهار التعليمات البرمجية او View Code ومن اعلى اليسار نفتح القائمة المنسدلة ونختار اسم مربع النص بتاعنا ونتاكد ان المربع على اليمين مكتوب فيه Change بمعني ان الكود هيتنفذ في حالة تغير مربع النص وهيكون شكلها في البداية كده Private Sub TextBox1_Change() End Sub تبدأ بقي تقف بالماوس في وسط ال sub دي وتكتب الكود بتاعك اللى هو ايه .. اللى هو ده If TextBox1 = "" Then AutoFilterMode = False Else Range("RN").AutoFilter , field:=2, Criteria1:=TextBox1.Text End If معناه ايه ده في السطر الاول بنقول لو مربع النص بتاعى فاضي ايه اللى يحصل السطر الثاني نقوله الغي الفلتر خالص .. علشان كل البيانات تبقي ظاهرة وواضحة طالما لم نكتب شئ في مربع النص الخاص بالبحث طب لو مش فاضي والمستخدم كتب فيه اى حاجة نقوله النطاق اللى اسمه RN ده اللى احنا سمناه في الخطوة الأولى اللى هو من A5:D75 اعمل فلتر ليه كويس بس النطاق ده اكثر من عمود هيعمل فلتر على اساس اى عمود نقوله Field:=2 ويبقي الفلتر بتاعك على العمود الثاني في النطاق .. تمام طب لو انت عاوز العمود الأول غيرها خليها 1 لو عاوز العمود الرابع غيرها خليها 4 وهكذا طب شرط التصفيه او الفلتر ايه نقوله النص المكتوب في مربع النص بتاعنا Criteria1:=TextBox1.Text ونفس الكلام بقي على الاربع مربعات نص الموجودين في ملف الأستاذ أبو حنين أرجو انى اكون وفقت .. تحياتي

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

اخى الفاضل الجموعي ايه كمية الأكواد دي كلها .. وليه تكرار الأكواد بالشكل ده ... توهتنى مرفق الملف لربما به طلبك تحياتي فورم بحث (تم الحفظ تلقائياً).rar

يا اخى الفاضل الكود يعمل تلقائي والأزرار دي موضوعه ليك انت علشان تقدر تظهر القوائم .. مش عاوزها احذفها ب Delete وخلاص اتفضل ملف الأستاذ ياسر بدون أزرار تحياتي Hide Unhide YK.rar

اخى الفاضل بعد إذن ابن بلدي الغالي وأخى الحبيب أ.ياسر، جرب الملف المرفق لربما به طلبك تحياتي Hide&Unhide.rar

اخى الفاضل نحن لا نطبقها على نفس العمود .. تطبقها في العمود المجاور كدالة .. ابتداءا من اول خلية اكتب =TRIM(C2) وبعد ان تقوم بالاكمال الى اخر اسم عندك تستطيع تحديد هذه الأسماء والسحب بزر الفأرة الأيمن للماوس الى العمود الاصلي واختر نسخ هنا كقيم copy here as values ثم احذف العمود الذي به الداله .. وبذلك يتبقي لك الأسماء وفقط بدون فراغات بينها تحياتى

اخى الفاضل عندك حل من اثنين الحل الاول كما تفضل أخى الكريم عبد الباري البنا .. بتنسيق الخلايا كنص .. الحل الثاني بتقسيم الرقم التسلسلى على خليتين وعمل Concatenate بينهم في خلية اخرى مرفق ملف به الحلين تحياتي Book1.rar