نجوم المشاركات

جرب الكود بهذا الشكل .. يوضع الكود في حدث ورقة العمل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Selection, Range("J2:AN200")) Is Nothing Then If Target.Cells.Count > 1 Or IsEmpty(Cells(Target.Row, 2)) Then Exit Sub Else Target.Value = Cells(1, Target.Column).Value End If End If End Sub يرجى عدم تخصيص شخص بعينه عند طرح مسألة ما فالكل هنا شخص واحد على قلب رجل واحد يجمعهم منتدى واحد .. وأريد أن أسمع منك توحيد الواحد

برنامج لحساب القيمة الحالية لعدد من الاقساط _ the present value للتعامل مع البرنامج_هام يوجد جدول على الشمال و هو للاقساط النمطية التى وضعتها المنشأة 15% دفعه مقدمة من اجمالى الاقساط 10% عند الاستلام تسدد بعد 3 سنوات من الدفعه المقدمة باقى الاقساط تسدد على 4 سنوات/3شهور/بفائدة 10% تم حساب القيمة الحالية بعدد الايام تاريخ وقت قطع القسط او الشراء او السداد و عليه يتم ادخال التاريخ تحت خانة date of offer فى الجدول على اليمين تم استخدام goal seek عند رغبة العميل بطريقة سداد غير نمطية كالاتى قف على الخانة i16 و من data_اضغط على _what if analysis ثم اختار goal seek تظهر لك شاشة بها 3 خانات الاولى I16 الثانية اكتب فيها قيمة مبلغ القيمة الحالية فى خانة E16 الثالثه ارجعها الى الخانة H21 تم تقريب المبلغ الاجمالى لاقرب الف ارجو قراءة التعليمات فى ورقة _data _فك حماية للاوراق 123 تم بحمد الله رب العالمين pv_offers_no.1.rar

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

جزاك الله كل خير أخي الكريم خالد الرشيدي

الأخ الفاضل أبو إلياس إليك الكود بعد التصحيح .. من الأخطاء الظاهرة الخفية في الكود الذي قمت بكتابته كتابة رقم 1 بدلاً من حرف L في جملة xlup ويرجع ذلك إلى أنه عند كتابة حرف الـ L صغير بهذا الشكل l فإنه يشبه إلى حد كبير رقم 1 في محرر الأكواد .. وكذلك رقم 1 بدلاً من المتغير i يراعى عند كتابة الأكواد الدقة التااااااااامة ثم الدقة التامة .. التصحيح أصعب عندي من بناء الكود !! استغرق الأمر مني حوالي نصف ساعة لمعرفة الخطأ .. ظللت أنظر للكود ثم أنظر مرة أخرى ثم أنظر ولم ألاحظ أن حرف الـ L قد كتب بدلاً منه رقم 1 عموماً الحمد لله تم تدارك الخطأ .. ومعرفة مكمن المشكلة إليك الكود بعد التعديل Private Sub CommandButton1_Click() Dim MySH As Worksheet Dim I As Long, K As Long, R As Long, LR As Long Set MySH = Sheets("البيانات") K = 1 Columns("A:J").ClearContents For I = 3 To MySH.Cells(Rows.Count, 1).End(xlUp).Row LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 For R = 1 To 10 If Me.Controls("CheckBox" & R) Then Cells(LR, K) = MySH.Cells(I, Me.Controls("CheckBox" & R).Caption) K = K + 1 End If Next R K = 1 Next I Unload Me End Sub لا تنسى أن تحدد أفضل إجابة .. كما لا تنسى أن تضغط على كلمة "أعجبني هذا" تقبل تحياتي :fff: Transfer Specific Columns By CheckBoxes On UserForm.rar

الحمد لله ،،، ولك بالمثل ...

تفضل تم التعديل New_Db_Up4.rar

جرب هذا الشيء ‫تجريب - نسخة salim.rar

جــزاك الله خيراً أ.سعد عابد

خالد الرشيدى الله الله تسلم اخى ملف ممتاز جزاك الله خيرا

أخي الغالي خالد الرشيدي بارك الله فيك على المجهود الجبار والمتميز قمت برفع ملفك على سيرفر المنتدى بدلاً من الروابط الخارجية VLOOKUP Rasheedy.rar

جزاك الله كل خير

انظر الى الملف المرفق حيث المعادلة التي وضعتها لك ALAA 1.rar

المطلوب بالمرفق / ALAA.rar

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

تفضل اخى الكريم / ان كان هذا ما تريد حدد الموضوع كمجاب =IF(AND(A1<=13000;A1>9000);((A1-9001)*0.1)+5;IF(AND(A1<=9000;A1>4000);((A1-4001)*0.09);IF(A1<=4000;0)))

تفضل اخي الكريم اذا كنت احسنت الفهم عنك هذا التعديل آمل ان يحقق مطلوبك New_Db.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله كل عام وأنتم بخير والأمة الإسلامية بخير ************** أقدم لكم موضوع خفيف .. الموضوع ببساطة كالتالي نفترض أن لديك بيانات في الصف الأول وتريد تقسيم البيانات بشكلٍ ما إلى عدة أعمدة ، وفي كل عمود عدد معين من البيانات بالمثال يتضح المقال في الصف الأول ضع أرقام من 1 إلى 40 في الأعمدة من A إلى AN (ركز في الصف الأول وليس في العمود الأول) في الخلية A3 سنقوم بوضع معادلة تؤدي مهمة التقسيم .. المعادلة بهذا الشكل =INDEX($1:$1,,1+MOD(ROWS($A$3:A3)-1,8)+8*(COLUMNS($A$3:A$3)-1)) كيفية استخدام المعادلة : المعادلة وضعت في الخلية A3 ومن ثم عندما تريد التعديل في المعادلة بما يتناسب مع ملفك قم بالتغيير في المعادلة في الأجزاء التالية ROWS($A$3:A3) COLUMNS($A$3:A$3) أي أن خلية البداية سيتم الإشارة إليها في المعادلة أما الجزء الأول خاص برقم الصف الذي يحوي البيانات المراد تقسيمها $1:$1 آخر جزئية في المعادلة هو الرقم 8 (لما الرقم 8 مكتوب مرتين في المعادلة) ... بما أننا نريد تقسيم الـ 40 بيان إلى أعمدة وفي كل عمود 8 بيانات على سبيل المثال إذاً سيتم التعامل مع ( 40 / 8 = 5 ) أي 5 أعمدة بعد وضع المعادلة في الخلية A3 يتم سحب المعادلة بمقدار 8 صفوف إلى أسفل و 5 أعمدة باتجاه السحب إليكم الملف المرفق فيه تطبيق للفكرة علها تفيدكم وتنال إعجابكم بالنسبة لشرح المعادلة أتركها للأخ الحبيب المتمكن خالد الرشيدي (بما لديه من ملكة - بفتح اللام يا أخ علاء رسلان وليس بكسرها - وموهبة فذة في شرح المعادلات) حمل الملف من هنا تقبل الله منا ومنكم صالح الأعمال