الحسامي

السلام عليكم اخي الكريم ومن بعد إذن أخي وحبيبي خبور لنفرض أن تريد إدخال الرقم القومي في TextBox1 وتريد أضهار تاريخ الميلاد في TextBox2 باستخدام الدالة المقترحة فيكون الكود كالتالي Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2.Text = Kh_Date_Sex_Province(TextBox1.Text, 1) End Sub طبعا الرقم 1 يمثل مرجعية تاريخ الميلاد واذا اردت اظهار النوع يجب ان تبدل الرقم 1 بالرقم 2 ولاستخراج المحافظة استخدم الرقم 3 --------------------------- اخي خبور دالة ذهبية فعلا والله انك مبدع وفنان

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

السلام عليكم تحياتي للجميع اخي كريم مرفق الحل وارجو ان يكون المطلوب ويمكنك كتابة الرقم في text box ومن ثم ستجلب البيانات ووضعت لك حل اخر باستخدام combobox فقد تستفيد منه ________.rar

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

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

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

السلام عليكم اخي سعد واخي ياسر بارك الله فيكم ولا اعلم ماذا ارد عليكم نحن ما زلنا في بدايات الاكسل ووفقنا الله في تقديم العون للجميع ----------------------------- اخي فراس مرفق ملف بالتعديل المطلوب الترحيل fras.rar

اخي فراس على حسب ما استطعت ان افهم مرفق ملف ... اذا كنت تقصد الترحيل وطباعة التاريخ في اخر خانات الجدول لم تحدد التاريخ في الجدول بدون زعل ( حاسس حالي ببرنامج الكاميرا الخفية ) الترحيل fras.rar

السلام عليكم لا اعلم اخي فراس هل هذا المطلوب مرفق ملف ارزاق اخر تعديل1.rar

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

يا اخي فراس ترويسات الصفحات غير متشابهة ليتم عملية النقل فبعض المواد لها خانتان وبعضها خانه واحدة وفي الصفخة الاولى 22 مادة وفي الثانية 24 مادة والاسعار 15 مادة فقط.. لو يتم مراجعة الملف وتنظيمه بشكل افضل حتى نتمكن من المساعدة والله الصورة لم تكتمل بعد ((( لا تفترض ان الجميع سيفهم الملف كما يفهمه صاحبه فالمعلم يفترض ان الجميع معلمين والمهندس يفترض ان الجميع مهندسون )))

السلام عليكم فقط لو يتم وضع اسماء المواد في صفحة ال data حتى يتم معرفة الي اين تريد التقل

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

السلام عليكم اخي طاهر حسب فهمي للموضوع مرفق ملف وعمله كالتالي ستظهر لديك في العمود P (لكل الصفحات)اسماء الصفحات في الملف وعند الضغط دبل كليك على اسم اي صفحة يتم الذهاب الى الصفحة التي تم اختيارها اما صفحات التقارير التي تم استدعائها فتجد في الخلية o1 عبارة "حذف الصفحة" وعند الضغط مرة واحدة على هذه الخلية يتم مسح والغاء الصفحة والعودة الى الصفحة الرئيسية اتمنى ان يكون هذا طلبك تنقل بين الصفحات.rar

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

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

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

مبدع وفنان ومتميز يا ابو احمد... وهنا دالة اخرى للاثراء =SUMIF(B9:B18,">="&B4,E9:E18)-SUMIF(C9:C18,">"&C4,E9:E18)

ما شاء الله عليك اخي جمال والله انك مبدع وهنا حل اضافي بمعادلات الصفيف مع انها ليست من اهتماماتي =MAX((H5:H13=A2)*(K5:K13)) =INDEX(L5:L13,MATCH(1,(C2=K5:K13)*(A2=H5:H13),0)) ê£ںé .rar

بمشيئة الله وعونه ستشاهده قريبا

السلام عليكم اخي الكريم جرب الكود التالي مرفق ملف Dim c As Range For Each c In Range(Cells(1, 2), Cells(Cells(Rows.Count, _ [b2:b15000].Column).End(xlUp).Row, "b")) If c.Interior.ColorIndex = 6 Then Cells(Cells(Rows.Count, _ [d2:d15000].Column).End(xlUp).Row + 1, "d") = c Next فرز خلايا ملونة.rar

ما شاء الله عليك اخي دغيدي والله انك بترفع الراس جزاك الله خيرا في الدنيا والاخرة

السلام عليكم بارك الله فيك اخي حسين على هذا المجهود

السلام عليكم بعد اذن اخي وحبيبي دغيدي هنا محاولة ارجو ان تلبي الطلب لكني لم افهم بالمقصود ب"اخر فاتورة منذ "في الخلية e5 تمرين_هام.rar

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