حمادة عمر

السلام عليكم الاخ الكريم / hussam alhamadani بارك الله فيك بالطبع يمكن عمل ذلك واليك بعض الامثله التي تصلح لكل الملفات .. وهي للقدير الكبير / عبد الله باقشير وايضا يمكنك متابعة الرابط التالي http://www.officena.net/ib/index.php?showtopic=42346 جزاك الله خيرا 2003.rar ملف بحث بفورم ممتاز.rar

اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

شاهد الرابط التالي ( ان شاء الله سيفيدك في حل المشكلة ) http://office.micros...A001034656.aspx واليك روابط موضوعات مشابهه ... ارجو ان تفيدك http://www.officena.net/ib/index.php?showtopic=46278&hl= http://www.officena.net/ib/index.php?showtopic=46401&hl=%D8%A7%D8%B5%D9%84%D8%A7%D8%AD

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

راجع الرابط التالي عله يفيدك http://www.officena.net/ib/index.php?showtopic=39743&hl=%D8%B9%D8%AF%D8%A7%D8%AF#entry222074

السلام عليكم الاستاذ القدير / أبـوخليل بارك الله فيك رااائع دائما اينما كنت جزاك الله خيرا

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

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

السلام عليكم الاخ الكريم / sarab1618 بارك الله فيك السبب في ذلك هو انه تم وضع فورمات لليبل الموجود به التاريخ والوقت ليأخذ قيمة تاريخ ووقت الدخول علي الشاشة ولكن .... الملف الموجود في المشاركة رقم 2# به الوقت والتاريخ علي شاشة الدخول والوقت ان كنت تريد ذلك فالوقت به يتغير ثانية بثانيه جزاك الله خيرا

السلام عليكم الاخ الكريم / الشيباني بارك الله فيك وحرصك علي افادة الجميع اليك الملف التالي كنت قد وضعته لاحد اعضاء المنتدي الاخ / اكرم جلال واليك الملف به تقريبا مكان لتسجيل 20 صنف ارجو ان يعجبك الملف فهو بنفس الفكرة جزاك الله خيرا -SAMA-إستدعاء فاتورة بيع-.rar

السلام عليكم الاخ الكريم / mazen323 بارك الله فيك بالنسبة لكود حذف الخصم من الفاتورة بعد التسجيل او عند عمل فاتورة جديدة ... اتبع ما يلي لديك في الاكواد كود باسم Private Sub KH_ClearControl() وهذا الكود خاص بمسح بيانات الفاتورة سيكون الكود علي الشكل التالي مع توضيح السطر الذي مع اضافته للكود اليك الكود بعد الاضافة Private Sub KH_ClearControl() Dim r As Integer Dim c As Integer For r = 1 To 5 For c = 1 To 5 Adr = Cells(r, c).Address(0, 0) Me.Controls(Adr) = "" Next Next For r = 1 To 5 Me.Controls("TextBox" & r) = "" Next Me.ComboBox1 = "" '================== 'هذا هو السطر الذي تم اضافته لمسح تكست بوكس الخصم Me.TextBox32 = "" '================== End Sub وعذرا علي التأخر في الرد جزاك الله خيرا

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

السلام عليكم الاخ الكريم / ibra بارك الله فيك علي حسب فهمي لطلبك ... سيكون الكود المستخدم والمسمي بـ all بالشكل التالي باضافة الاسطر التاليه اليه لتنفيذ عمل الكود وفي نفس الوقت اخفاء ورقة الفرز المطلوب اخفاؤها ارجو ان يفي ذلك بطلبك جزاك الله خيرا Sub all() '================================= ' يتم اضافة هذا السطر لاظهار صفحة الفرز ليعمل عليها الكود كما تريد Sheets("صفحة الفرز").Visible = True '================================= Application.Run "sort" Application.Run "micro" '================================== 'ثم يتم وضع هذين السطرين لاعادة اخفاء ورقة الفرز كما تريد بعد انتهاء عمل الكود Sheets("صفحة الفرز").Select ActiveWindow.SelectedSheets.Visible = False '================================== End Sub

السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك دائما صاحب اسلوب اسهل الممتنع ولكن دائما تطول غيبتك عنا !!!!!!!!!!!!!!!!!1 جزاك الله خيرا

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

السلام عليكم الاخ الكريم / صابر حمزه بارك الله فيك قم بوضع صورة لشكل الفورم بعد البحث حتي اشاهد ما تقصده هل تقصد ان رقم الموظغ يكون في اقصي اليسار ( مثلا ) جزاك الله خيرا

الاخ الكريم / وليد زقزوق بارك الله فيك قم بعمل ليبل علي الفورم خاصتك وليكن مثلا ليبل 4 --- Label4 ثم قم بوضع الكود التالي في حدث الفورم بالشكل التالي Private Sub UserForm_Initialize() Label4.Caption = Format(Now, "dddd d mmmm yyyy hh:mm:ss") End Sub جزاك الله خيرا

بجد وحشتنا قوي ووحشتنا اعمالك الجميلة استاذنا العزيز / ابو عبد الله

السلام عليكم الاخ الكريم / على عبدالراضى بارك الله فيك بالنسبة لطلبك هذا شاهد المرفق التالي ... ان شاء الله به المطلوب جزاك الله خيرا قاعدة بيانات العاملين2.rar

السلام عليكم الاخ الكريم / mazen323 بارك الله فيك بالنسبة للملف شاهد المرفق تم عمل اللازم ... في انتظار ردك ... جزاك الله خيرا محاسبة-منتدى+3+.rar

اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

الاخ الكريم / حسام مصطفي بارك الله فيك جزاك الله خيرا

اخي الحبيب / هاني 13 معلومة وخطأ وتوضيح اروع جعله الله في ميزان حسناتك تقبل خالص تحياتي رمضان كريم

جزاك الله خير جاى فى ميعاده قبل رمضان وكل عام والجميع بخير جاري التحميل ... مع العلم بانه رووعه قبل ان اراه

الاخ الكريم / الطلحي بارك الله فيك بالفعل عضو مميز