بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
1,836 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
21
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه الصـقر
-
-
- 1
-
- 1
-
تفضل اخى الكريم
اضف هذه الاسطر قبل نهاية الكود
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)"
تقبل تحياتى
- 2
-
اخواتى الكرام
هذا شرح اخر اكثر تفصيلا ومطابقه للحاله التى تفضل بها الاستاذ محمد الريفى
تقبلوا جميعا تحياتى
-
جزاكم الله خيرا يا ابوالبراء
اسال الله تعالى ان يزيدكم علما وينفع بكم
تقبل تحياتى
- 2
-
تفضل اخى الكريم
جرب هذا الكود
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
وضوح المطلوب من البدايه يوفر علينا الوقت
تقبل تحياتى
- 1
-
اخى الكريم
استبدل الكود بالكود التالى
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
شاهد المرفق
تقبل تحياتى
-
- 1
-
اخى الحبيب محمد الريفى
يسعدنى اكون اول المهنئين على هذا الانجاز الرائع
جزاكم الله خيرا على كل ما تقدمه
تقبل تحياتى
- 1
-
اخى الكريم
تفضل الحل على حسب ما فهمت من طلبك
شاهد المرفق
واى تعديل انا تحت امرك
وانصحك لو عايز تتعلم راجع الرابط التالى
تقبل تحياتى
- 2
-
-
اخى الكريم ابوعيد
جزاكم الله خيرا
اسال الله تعالى ان يزيدكم من علمه وفضله وحلمه
تقبل تحياتى
-
عودا حميد استاذى الفاضل عبدالله المجرب
تقبل تحياتى
-
اخى الكريم الزبارى
جزاكم الله خيرا
دائما تاتى بما هو جديد
تقبل تحياتى
- 2
-
اخى الكريم انا لم اقصد بكلامى انك لا تسال عن شئ
ولكن من حقك ان تسال وواجب علينا ان نجيبك فالمؤمن للمؤمن كالبنيان يشد بعضه بعضا
ولكن اخى الكريم الم ترا موضوع مثل هذا
لتدخل وتشارك وتتفاعل مع اخوانك على الاقل بكلمة جزاكم الله خيرا
او استفسار وسؤال لابوالبراء كيف تم ذالك وغيره من طرق التفاعل مع اى موضوع
الم ترى موضوع مثل هذا فتدخل على الاقل تقول جزاكم الله خيرا او تقول ان فى شئ غامض لم افهمه يرجى التوضيح اكثر بالشرح
الخلاصه اخى الكريم انك تشارك اخوانك فى كل الموضوعات حتى على الاقل بضغط زر اعجاب لن تستغرق منك ثانيه
واخيرا تقبل تحياتى
-
جزاكم الله خيرا يا ابوالبراء
روعه بجد
اسال الله تعالى ان يزيدك من علمه وفضله وحلمه
تقبل تحياتى
- 1
-
تفضل اخى الكريم
هذه المعادله ضعها فى الخليه I6
=IF(COUNTA(E6:G6)=0;H6;MAX(E6:G6))
تقبل تحياتى
- 2
-
اخى الكريم
انت من اكثر الناس طلبات !!!!!!!!!!!!!!
فى حين لم ارى لك مشاركة فعاله فى اى موضوعات اخرى
فضلا لا امرا فيد واستفيد
شارك وتعاون اسال مره وجاوب مره على غيرك
طبعا انا عارف ان الكلام هيزعلك لكن انا غرضى الصالح العام
والنفع للجميع
ارجوا من حضرتك تكلف نفسك شوى فى عناء البحث
يوجد الكثير والكثير بالمنتدى عن شروحات الكمبوبوكس او موضوعات واسئله سابقه للكمببوكس
لو بتفكر تعمل برنامج يبقى لازم يكون من مجهودك يعنى تبحث بنفسك وتتعلم ثم تطبق ما تريد بملفك
واخيرا اتمنى ان اجد لك مشاركات وتفاعل فى موضوعات اخرى غير اللى حضرتك بتنزلها
تقبل تحياتى
- 6
-
تفضل اخى الكريم
ضع المعادله التاليه فى الخليه E3
=IF(B3=C3;1;DATEDIF(B3;C3;"d"))
ملحوظه يجب ان يكون الخلية B3 هى التاريخ الاقدم والخليه C3 هى التاريخ الاكبر ( الاحدث)
تقبل تحياتى
- 2
-
اخى الكريم
المنتدى منتدى تعليمى بالمقام الاول
فضلا منك راجع سلسلة علمنى كيف اصطاد الفورم
ستجد المطلوب الاول والثانى تم شرحهم باستفاضه
وبعد ما تخلص المطلوب الاول والثانى وقتها نساعدك فى الثالث والرابع
فهل من مشمر ؟؟؟
يالا وانا معاك
تقبل تحياتى
-
جزاكم الله خيرا يا ابوالبراء
تقبل تحياتى
- 1
-
اخى الكريم
على حسب ما فهمت من طلبك
اضغط على زر الكود
يتجد الفيجوال بيسك بيفتح على هذا السطر وهيكون مظلل باللون الاصفر
Range("B" & R).Insert Shift:=xlDown
استبدل B بــ n
Range("n" & R).Insert Shift:=xlDown
تقبل تحياتى
- 1
-
اخى بوعلام بلقاسم جزاكم الله خيرا على مروركم العطر
اخى حماده سعد كل ما عليك فعله نسخ الكود بتاع المؤثر اللى يعجبك والصقه فى الفورم الخاص فيك
تقبلوا تحياتى
-
اخى الكريم
الملف يعمل معى بشكل طبيعى
هل انت متاكد من ضبط اعدادات الماكرو مستوى الامان منخفض ؟
راجع ايضا المشاركة التاليه واتبع تعليمات الاستاذ ياسر فى ضبط الله للماكرو
وان شاء الله يظبط معك
تقبل تحياتى
نقل المجاميع تلقائيا الى الخانات المحددة
في منتدى الاكسيل Excel
قام بنشر
اخى الكريم
اضف هاتين السطرين فى نهاية الكود
Cells(7, 3) = Cells(lr + 1, 8).Value Cells(7, 4) = Cells(lr + 1, 7).Value
تقبل تحياتى