الصـقر

اخى الكريم

اضف هاتين السطرين فى نهاية الكود

        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

تقبل تحياتى

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

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

تقبلوا تحياتى

اخى الكريم

الملف يعمل معى بشكل طبيعى

هل انت متاكد من ضبط اعدادات الماكرو مستوى الامان منخفض ؟

راجع ايضا المشاركة التاليه واتبع تعليمات الاستاذ ياسر فى ضبط الله للماكرو

وان شاء الله يظبط معك

تقبل تحياتى