نزار سليمان عيد

اخي الكريم السلام عليكم انظر للرابط ادناه وان شاء الله تستفيد واي استفسار اعلمني من فضلك http://www.contextures.com/tiptech.html

اخي الكريم السلام عليكم Private Sub Worksheet_Calculate() Worksheet_Change Range("A4") End Sub Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim My_Value If Target.Address = "$A$4" And Range("A4") > 10 Then Range("A4").Select My_Value = ActiveCell.Value Range("A5").Select ActiveCell.FormulaR1C1 = ActiveCell.Value + My_Value End If End Sub اخي الكريم في الفقرة الاولى يتم تحديد الخلية التي سيتم تغيير المدخلات عليها في الفقرة الثانية يتم تحديد الشرط وهو حسب ما طلب الاخ pinkpanther ان يكون اكبر من 10 نقوم بعدها بادخال المتغير فاذا وافق الشرط ستم اضافة الرقم للخلية A5 وهكذا في السطر الاخير يقوم الكود بجمع ما في الخلية A5 مع المدخل الجديد من A4 واي استفسار اعلمني من فضلك

اخي خالد السلام عليكم انظر المرفق kfb_0013.rar

جزاكم الله خيرا وجعله في موازين حسناتكم

اخي الكريم السلام عليكم لايمكن اخذ اي عنصر من قائمة الفئات الى شريط الادوات فقط يمكنك اختيار العنصر ومن ثم ما امامه من القائمة المقابلة يمكن ان تاخذه الى شريط الادوات ولاادري اذا الرابط ادناه يفيدك ام لا وهو استرجاع اعدادات الاكسيل للاخ ابو تامر وان شاء الله يفيدك الرابط http://www.officena.net/ib/index.php?showtopic=20308

اخي الكريم السلام عليكم =B2&"-"&C2&"-"&D2 انظر للمرفق واي استفسار اعلمني من فضلك ___________.rar

اخي الكريم السلام عليكم انظر للمرفق واي استفسار او تعديل اعلمني من فضلك ____________.rar

اخي الكريم السلام عليكم هذه الطريقة بدون اكواد هل تصلح معاك لكي يتم شرحها لك allowsh_cash_system.rar

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

اخي الكريم السلام عليكم انظر المرفق واي استفسار اعلمني من فضلك ______________.rar

اخي الكريم السلام عليكم انظر للمرفق allowsh_cash_system1.rar

اخي ابو عبدالله السلام عليكم مبدع ورائع كالعادة

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

اخي الكريم السلام عليكم انظر المرفق واي استفسار اعلمني من فضلك Transfer1.rar

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

اخي الكريم السلام عليكم انظر للمرفق وهو من عمل احد الاخوة هل هو ما تريد _______________.rar

اخي الكريم السلام عليكم بالنسبة لطلبك الاول سنعرض الكود ثم يتم الشرح 2.[A5:R30].ClearContents هنا يتم مسح بيانات الصفحة التي ستنقل لها المعلومات من سطر 5 الى سطر 30 For R = 5 To [A30].End(xlUp).Row هنا من سطر 5 الى سطر 30 يقوم بتنفيذ ما يلي If Cells(R, 9) = "" Then اذا العمود رقم 9 لايوجد به تاريخ قم بعمل With ورقة2.[A30].End(xlUp) .Offset(1, 0) = ورقة3.Cells(R, 1) نقل محتوى كل عمود من 1 الى 17 .Offset(1, 1) = ورقة3.Cells(R, 2) .Offset(1, 2) = ورقة3.Cells(R, 3) .Offset(1, 3) = ورقة3.Cells(R, 4) .Offset(1, 4) = ورقة3.Cells(R, 5) .Offset(1, 5) = ورقة3.Cells(R, 6) .Offset(1, 6) = ورقة3.Cells(R, 7) .Offset(1, 7) = ورقة3.Cells(R, 8) .Offset(1, 8) = ورقة3.Cells(R, 9) .Offset(1, 9) = ورقة3.Cells(R, 10) .Offset(1, 10) = ورقة3.Cells(R, 11) .Offset(1, 11) = ورقة3.Cells(R, 12) .Offset(1, 12) = ورقة3.Cells(R, 13) .Offset(1, 13) = ورقة3.Cells(R, 14) .Offset(1, 14) = ورقة3.Cells(R, 15) .Offset(1, 15) = ورقة3.Cells(R, 16) .Offset(1, 16) = ورقة3.Cells(R, 17) .Offset(1, 17) = ورقة3.Cells(R, 18) End With End If نهاية الشرط Next MsgBox "!تم ترحيل الصفوف المطلوبة بنجاح", vbInformation, "تم الترحيل" ظهور رسالة توضيحية ان الترحيل تم End Sub الطلب الثاني تم الرد عليه على نفس المشاركة

شكر اخي ابو تامر على مرورك وعلى المرفق

اخي الكريم السلام عليكم الملف لايعمل عندي يبدو ان به ارتباط انظر للرسالة التي بالمرفق Book1.rar

اخي الكريم السلام عليكم انظر للمرفق وهو من احد مشاركاتي السابقة على الرابط ادناه وهو بصيغة الكود في VBA http://www.officena.net/ib/index.php?showt...mp;#entry103395 وهناك على نفس الرابط مشاركة لاخي ابو اسامة رقم 8 بالمعادلات http://www.officena.net/ib/index.php?showt...mp;#entry103395 واي استفسار اعلمني من فضلك ______.rar

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

اخي الكريم السلام عليكم انظر المرفق واي استفسار او تعديل اعلمني من فضلك وللمعلومية سأدخل على الموقع يوم السبت ان شاء الله _________________.rar

اخي الكريم السلام عليكم مرفق لك الملفين واذا لم تستطيع فتح الملفين ارسل ايميلك الخاص IF_yes.rar VLOOKON_With_No_Limitation.rar

بارك الله فيك وجزاك الله خيرا

اخي الحبيب ابو اسامة صباح الخير واهلا بعودتك