سالم شباني

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

السلام عليكم طالع الموضوع من الرابط التالي تفضل من هنا

السلام عليكم إليك هذا المثال لعله يكون المطلوب وياريت ترفق ملفك حتى تكون الفكرة أوضح تنسيق.rar

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

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

السلام عليكم هذه محاولة أخرى لعلها تفي بالغرض أغتنم الفرصة لأقدم تحية تقدير إلى أستاذي الفاضل أحمد يعقوب ترحيل.rar

السلام عليكم هذه محاولة بسيطة مني لعلها تفي بالغرض جعلت القائمة في sheet2 مرتبطة بـ sheet1 عند فتح الملف يتم الفرز آليا في القائمة Book1.rar

السلام عليكم تحية تقدير إلى أخي وأستاذي خبور خير ، جعل الله كل أيامك خيرا وبركة لقد أضفت الكود إلى الملف وأصبحت عملية الغلق من الإكس غير ممكنة الشاشة الافتتاحية.rar

السلام عليكم طبعا يمكن نسخ اليوزرفورم مع الكود كذلك أما تغيير اسم المستخدم والباسورد فيكون في الكود التالي Private Sub CommandButton1_Click() If TextBox1.Value = "hosami" And TextBox2.Value = 123 Then Unload Me Exit Sub End If TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus End Sub

السلام عليكم إبداع من أناس مبدعين وطيبين ، نحن نستأنس بوجودكم حفظكم الله من كل سوء وأدام نعمه عليكم

السلام عليكم جزاك الله خيرا أستاذ محمد صالح

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

السلام عليكم استخدم المتصفح ( موزيلا ) وسينتهي المشكل

السلام عليكم أخي بن علية ، جمعة مباركة معذرة لم أشاهد ردك وما قدمته أنا مجرد محاولة أشكرك على الملاحظة

السلام عليكم إليك أخي هذه المحاولة البسيطة لعلها تفي بالغرض علامة عشرية.rar

السلام عليكم أكواد رائعة من أناس هم أكثر روعة أخي هشام ، أخي عماد جزاكما الله خيرا وزادكما رفعة

السلام عليكم تفضل أخي هذا الحل ، قد يفي بالغرض Test.zip

السلام عليكم أخي باشا ، حياك الله حسب ما فهمت من طلبك أنك تجد صعوبة في جلب الصور أولا : الكود الذي يتحكم في ظهور الصور هو Private Sub Worksheet_Calculate() Dim oPic As Picture Me.Pictures.Visible = False With Range("p8") For Each oPic In Me.Pictures If oPic.Name = .Text Then oPic.Visible = True oPic.Top = .Top oPic.Left = .Left Exit For End If Next oPic End With End Sub ثانيا : كما ذكرت لك في ردي السابق ، حين تختار اسم الموظف ويكون مكان الصورة فارغا ( مكتوب فيه PICTURE_8 مثلا) في هذه الحالة قم بإدراج صورة ثم صغر حجمها حسب الخلية المكتوب فيها PICTURE_8 ثم سم الصورة PICTURE_8

السلام عليكم الشكر لك أخي عماد على حسن التوضيح وهو الأهم

السلام عليكم أخي مصطفى حياك الله بعد عدة محاولات تم التوصل إلى الحل وهو تعطيل السطر التالي من الكود والذي أعتقد أنه زائد ( والله أعلم ) Me.TextBox2.Text = .Cells(LastRow + 1, "C").Value2 يبقى أن نوجه الشكر إلى الأستاذ هشام الذي أنجز الكود وقد أفادني كثيرا Book1.rar

السلام عليكم الشكر الجزيل للأخ هشام على التجاوب أخي مصطفى ، أشكرك على تواصلك معي وثقتك بي ، واعذرني على عدم الإجابة نظرا لانقطاع النت منذ يومين وكما ذكر الأخ هشام ملفك الأول فيه الكثير من المشاكل مما جعلني أعمل ملفا جديدا ، وما قمت بالتوصل إلى إنجازه هو استخراج قوائم الفصول أما الفورم فليس لي بعد خبرة فيه وأعتقد ما قدمه الأخ هشام شيء ممتاز قوائم.rar

السلام عليكم أخي يوسف عطا ، بارك الله فيك

السلام عليكم تفضل أخي mathhero هذه الدالة بعد تنسيقها مع الدرهم الإماراتي الدالة حصلت عليها من الأستاذ بن علية جزاه الله خيرا حيث اعتمدت على المجموع الوارد في الخلية التي سميتها total أرجو أنني أفدتك حساب المالية لتعليم الكبار.rar

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