الـعيدروس

يرجاء ارفاق مثال يرجاء مشاهدة قواعد المشاركة والإلتزام بها ارى لك اكثر من موضوع لنفس الطلب ؟ قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

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

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

تفضل المرفقات Profser_3_e2.rar

السلام عليكم فرضا الجدول في "ورقة1" و" ورقة2" تريد بها النتائج الصق المعادلة التاليه في " ورقة2" واسحب لليسار بقدر اعمدة الجدول =LOOKUP(REPT("a";255);ورقة1!A:A)

السلام عليكم كود المسح كود حذف الدليل بالكامل.rar

السلام عليكم جرب المرفق 9-2013_A.rar

السلام عليكم حمل المرفق مره اخرى

السلام عليكم المرفق به التعديلات Profser_3_e1.rar

يوجد لديك موضوع قديم مماثل لهذا الطلب تم دمج الموضوعين

مااسم الداله بالانجليزي ؟

السلام عليكم جرب الكود التالي Public Sub A_Sum() Dim Rng As Range r = Cells(Rows.Count, "F").End(xlUp).Offset(2, 0).Row Range("F4:H4") = Array("Compt", "Debit", "Credit") Set Rn = Range("A2:A5,C2:C5") For Each Rng In Rn If Rng = [G3] Then i = r If Cells(1, Rng.Column + 1) = [H4] Then Cells(i - 2, "H") = Val(Rng.Offset(0, 1)) Else Cells(r, "G") = Val(Rng.Offset(0, 1)) End If Cells(r, "F") = Rng.Text r = r + 1 End If Next End Sub

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

الاخ الحبيب حماده عمر احييك على هذه المبادره الطيبه أستاذنا الحبيب الحسامي غايب من ذو فتره وقد أشتقنا له كثيرا يامرحبا ترحيب يكتب بالانـوار والنور عم المنتدى مع حظـوره اسمك مثل برق يبشر بالامطـار والقلب بوجودك تزايد سـروره الطيب بين الناس ماهو بمنكور واللي يزور الناس لازم تـزوره هذا محلك وابتدى معك مشـوار على الوفا والطيب تكتب سطوره

السلام عليكم اكيد لا كلام بعد ردود الاساتذه والحل متشابه قد كنا عملنا عليه Sub ali_Insrt() Dim i&, Str&, En& Dim Lng% With ActiveSheet Application.ScreenUpdating = False Str = 7: En = .Cells(.Rows.Count, 2).End(xlUp).Row On Error Resume Next Lng = InputBox("إدخل عدد الأسطر المراد إدراجها ", "") If Lng = 0 Or Lng = cancel Or Lng = vbString Then Exit Sub For i = En To Str Step -1 .Rows(i + 1).Resize(Lng).Insert Next i On Error GoTo 0 Application.ScreenUpdating = True End With End Sub

السلام عليكم حالياً اتصفح من الجوال الى المساء اعدلك عليه ان شاء الله

السلام عليكم الاخ والاستاذ ضاحي الغريب عمل جبار ومتنوع الافكار جزاك الله خيراً والشكر موصول لصاحب الدرر عبدالله باقشير جزاه الله كل خير تقبل مروي

السلام عليكم يامرحبا الف بالاستاذ الكبير الحسامي وين ايامك يااستاذنا لك وحشه اسأل الله أن تكون بأحسن حال محبكم أبو نصار

السلام عليكم حط هذه المعادله في "D7" وإسحب للأسفل =IF(WEEKDAY(C7)=7;C7+1;IF(WEEKDAY(C7)=6;C7+2;""))

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

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

شاهد المرفق تطبيق للكود السابق جرب انقر على الزر وشاهد النتائج امل ان يكون ماتريد علامه.rar

اخي ابو ندى العلامه المائة تريدها تظهر عند الطباعه ؟

السلام عليكم هذا كود الترحيل البيانات من الـ Sheet1 الى الغرف Public Sub Trnc() Dim Sh As Worksheet Dim R, Nm, Lr Set Sh = Sheet2 With Sh Rw = Split(.UsedRange.Address, "$")(4) For R = 8 To Rw If Not IsError(Evaluate("'" & CStr(.Cells(R, 9)) & "'!A1")) Then .Range(.Cells(R, 1), .Cells(R, 18)).Copy Nm = CStr(.Cells(R, 9)) With Sheets(Nm) Lr = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row .Range("A" & Lr).PasteSpecial xlPasteValues End With End If Next Set Sh = Nothing .Application.CutCopyMode = False End With End Sub تحياتي

السلام عليكم شاهد هذا المرفق ربما تناسبك فكرته عند البحث تكتب الاسم المراد البحث عنه بعد الاختيار بيظهر لك النتائج واذا اردت تفتح القائمة الصفراء مره اخر انقر عليها اواضغط "F12" تحياتي Profser_4.rar