خالد الرشيدى

ما استطيع تقديمه لحضرتك هو هذا الرابط

السلام عليكم جرب المرفق التالى وابدي ملاحظاتك listbox_2.rar

السلام عليكم جرب الملف وابدى ملاحظاتك الثالث مع فورم البحث.rar

اخى 3mda.v8 ايضاً حضرتك لم توضح - هل تريد اضافه هذا الشرط على الشرط القديم ( عدم وجود رقم موجب ) - ام فقط تريد هذا الشرط ؟؟؟ -- هذه واحده وهل تريد هذا الشرط في الصفوف المدخل بها بيانات ام كل الصفوف - تقبل مرورى وتحياتى

يمكن ذلك طبعاً ولكن من اى عمود تريد البحث -- ما قبل عمود الاجمالى -- ام -- عمود الاجمالى وما بعده - ام كل الاعمده ؟؟ فالرقم 81355 موجود بالعمود D والعمود aQ وقد زكرت حضرتك ان التكرار مستبعد ؟؟ - لحين التوضيح - الذي طالما ما اكدنا عليه لكي يكون الحل من مرة واحدة - وتوفير الوقت والجهد على من يريد تقديم المساعدة -- بافتراض انك تريد البحث بدءاً من العمود D وحتى العمود AN ضع المعادلة التالية بالخليه B9 ثم اسحبها لاسفل -- =IF(A9>0,INDEX(اليومية!$D$1:$AN$1,,MIN(IF(اليومية!D1:AN25=الاستاذ!A9,COLUMN($D:$AN)-3))),"") والمعادلة التالية بالخليه D9 ثم اسحبها لاسفل =IF(C9>0,INDEX(اليومية!$D$1:$AN$1,,MIN(IF(اليومية!D1:AN25=C9,COLUMN($D:$AN)-3))),"") وكلاهما معادلات صفيف بعد كتابتها يتم الضغط على CTRL + SHIFT + ENTER

السلام عليكم بالنسبه للدالة المعرفة UDF )) -- vlookupalsaqr)) قام الاستاذ عماد بتناولها على الرابط التالى .. اما لو اردت تنفيذ المطلوب بدون اكواد - معادلة عادية -- قم بادراج نموزج مبسط مشروح فيه المطلوب تقبل مرورى وتحياتى

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

السلام علكم هل هناك احتمال ان تتساوي قيمتين او اكثر ؟؟؟؟؟؟ وان كان كذلك اى معيار اذن يتم جلب اسم الحساب على اساسه ؟؟؟

السلام عليكم اخى الكريم اين المرفق !!!!!!

السلام عليكم اخى ناصر زكرت سابقاً ان الكود المستخدم بالفعل يقوم بمسح النطاق المحدد وفقط -- واشرت ان مسح البيانات الموجودة واستبدالها بقيم جديده لا يتوقف فقط على كود المسح ولكن ايضاًُ يتوقف على كود البحث .... مثلاً : تم مسح النطاق A1:A10 من خلال كود المسح ثم تم البحث واستخرج مصفوفة نتائج مكونه من 20 سطر وبالتالى سيتم وضع النتائج بالنطاق A1 : A20 بالرغم اننا مسحنا حتى A10 -- قم بادراج نموزج مبسط موضح به المطلوب ان كانت الاجابه السابقة غير واضحه

السلام عليكم كل عام وحضرتك بخير اخى الكريم اكدنا كثيراً على التوضيح التفصيلي للمطلوب ارجو مزيد من التوضيح تقبل مرورى وتحياتى

السلام عليكم اخى ناصر هناك جزئيتين لابد من الانتباه اليهم وهم : 1- عند نسخ مصفوفة النتائج الى النطاق يتم استبدال القيم الموجوده به بالنتائج الجديده حتى وان لم تضع كود مسح -- مما يعنى لو ان كود المسح حتى الصف العاشر - ومصفوفة النتائج بها عشرين صف - عندها ستجد النتائج موجوده حتى الصف العشرين 2- ان حضرتك حددت كود المسح من "A12:DW1000" في حين ان حضرتك حددت صف بدايه نسخ مصفوفة النتائج بدءاً من الصف 11 .Range("A11").Resize(j - 1, UBound(temp, 1)).Value = temp ومن ثم سيتم استبدال نتائج الصف 11 بقيم نتائج اول صف بمصفوفة النتائج تقبل مرورى وتحياتى

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

السلام عليكم ا.ناصر ماذا تقصد ب .. محدد مدي المسح ..؟؟؟

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

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

السلام عليكم تفضل اخي الكريم عله المطلوب كما يفضل ان تلغي تنسيق format as table في صفحه كارت الصنف لانه الان مجرد نطاق لنسخ نتائج البحث من خلال الكود... حركة يومية.rar

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

وجزاك خيرا اخي الكريم علي هذا الدعاء الطيب كل عام وحضرتك بخير

السلام عليكم تفضل عله المطلوب - كان من الممكن ان يكون الكود ابسطمن ذلك بكثير - ولكن تحسباً لكون عدد التكست بوكس يكون كبير او ما الى ذلك - اليك الكود التالى Dim r As Long Private Sub CommandButton1_Click() Dim i As Integer Me.TextBox5.Value = "" For i = 1 To 4 Me.TextBox5.Value = Val(Me.TextBox5.Value) + Val(Replace(Me.Controls("TextBox" & i).Value, ",", "")) Next r = r + Val(Me.TextBox5.Value) Me.TextBox6.Value = r For i = 1 To 4 Me.Controls("Textbox" & i).Value = "" Next End Sub ان لم يكن المطلوب - يرجي مزيد من التوضيح التفصيلى

السلام عليكم تفضل اخي الكريم عله المطلوب حسب ما فهمت Sub Test() m = 20 Range("A" & m & ":G" & m).Interior.ColorIndex = 6 End Sub

السلام عليكم العفو استاذي الحبيب / محمد حسن المحمد - نحن فقط نسير على دربكم - جزاك الله خيراً كل عام وحضرتك بخير

السلام عليكم اخى الكريم ادرج ملف - ليس شرطاً ملفك الاساسي - ملف مبسط مشروح به طلبك بشكل مفصل وواضح وان شاء الله تجد المساعده كما يرجي فضلاً وليس امراً الاطلاع على رابط التوجيهات الخاصه بالمنتدي تقبل مرورى وتحياتى

السلام عليكم اخي الكريم khaled elsayed اهلاً بك بين إخوانك بالمنتدي قم بفتح موضوع جديد بطلبك - وارفق معه نموزج مبسط مشروح به المطلوب تقبل مرورى وتحياتى

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