الصـقر

اخى الكريم اضف هاتين السطرين فى نهاية الكود Cells(7, 3) = Cells(lr + 1, 8).Value Cells(7, 4) = Cells(lr + 1, 7).Value تقبل تحياتى

تفضل اخى الكريم جرب المرفق تقبل تحياتى ترحيل الاسماء بدون تكرار من شيت الى شيت اخر.zip

تفضل اخى الكريم المرفق به التطبيق تقبل تحياتى الاستعلام عن اسم وظهور مجموع المبالغ.zip

تفضل اخى الكريم اضف هذه الاسطر قبل نهاية الكود lr = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row Cells(lr + 1, 7).FormulaR1C1 = "=SUM(R11C7:R[-1]C)" Cells(lr + 1, 8).FormulaR1C1 = "=SUM(R11C8:R[-1]C)" Cells(lr + 1, 9).FormulaR1C1 = "=SUM(R11C9:R[-1]C)" تقبل تحياتى

اخواتى الكرام هذا شرح اخر اكثر تفصيلا ومطابقه للحاله التى تفضل بها الاستاذ محمد الريفى تقبلوا جميعا تحياتى

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

تفضل اخى الكريم جرب هذا الكود Sub Al_saqer() a = Application.WorksheetFunction.CountIf(Sheet1.Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row), Range("G1")) If a < 1 Then: MsgBox "عفوا: الرقم غير موجود", , "توكل": Exit Sub b = Application.WorksheetFunction.Match(Range("G1"), Sheet1.Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row), 0) lr = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1 Rows(b).Copy Destination:=Sheet2.Cells(lr, 1) Rows(b).Delete Shift:=xlUp MsgBox " تمت عملية الترحيل بنجاح", , "توكل" End Sub وضوح المطلوب من البدايه يوفر علينا الوقت تقبل تحياتى

اخى الكريم استبدل الكود بالكود التالى Sub Al_saqer() a = Application.WorksheetFunction.CountIf(Sheet1.Range("b2:b" & Cells(Rows.Count, 2).End(xlUp).Row), Range("G1")) If a < 1 Then: MsgBox "عفوا: الرقم غير موجود", , "توكل": Exit Sub b = Application.WorksheetFunction.Match(Range("G1"), Sheet1.Range("b1:b" & Cells(Rows.Count, 2).End(xlUp).Row), 0) Rows(b).Copy Destination:=Sheet2.Range("a2") Rows(b).Delete Shift:=xlUp MsgBox " تمت عملية الترحيل بنجاح", , "توكل" End Sub شاهد المرفق تقبل تحياتى فيدكس-09.zip

تفضل اخى الكريم هل هذا ما تقصده تقبل تحياتى فيدكس-09.zip

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

اخى الكريم تفضل الحل على حسب ما فهمت من طلبك شاهد المرفق واى تعديل انا تحت امرك وانصحك لو عايز تتعلم راجع الرابط التالى تقبل تحياتى Book1.zip

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

عودا حميد استاذى الفاضل عبدالله المجرب تقبل تحياتى

اخى الكريم الزبارى جزاكم الله خيرا دائما تاتى بما هو جديد تقبل تحياتى

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

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

تفضل اخى الكريم هذه المعادله ضعها فى الخليه I6 =IF(COUNTA(E6:G6)=0;H6;MAX(E6:G6)) تقبل تحياتى

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

تفضل اخى الكريم ضع المعادله التاليه فى الخليه E3 =IF(B3=C3;1;DATEDIF(B3;C3;"d")) ملحوظه يجب ان يكون الخلية B3 هى التاريخ الاقدم والخليه C3 هى التاريخ الاكبر ( الاحدث) تقبل تحياتى

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

جزاكم الله خيرا يا ابوالبراء تقبل تحياتى

اخى الكريم على حسب ما فهمت من طلبك اضغط على زر الكود يتجد الفيجوال بيسك بيفتح على هذا السطر وهيكون مظلل باللون الاصفر Range("B" & R).Insert Shift:=xlDown استبدل B بــ n Range("n" & R).Insert Shift:=xlDown تقبل تحياتى

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

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