احمدزمان

السلام عليكم هذه فكرة بسيطة لما فهمت من طلبك اكسل مبيعات ومشتريات مشروع العسل.rar

السلام عليكم اخي مؤمن فضلا اضف خانة للرقم التسلسلي في النموذج و اضف عمود للرقم التسلسلي في الجدول وارسل الملف لنبدأ العمل

اخي قصي شكرا لك على كريم مرورك

السلام عليكم و رحمة الله وبركاته اخي الفاضل يمكنك عمل النموذج على فورم ولكن انا شخصيا افضل هذه الطريقة مايمكن اضافته للوضع الحالي - عدم تكرار البيانات المسجلة سابقا كما ذكر ابو حنين - مسح البيانات بالنموذج بعد المسح - اضافة القوائم المنسدلة مثل رقم السيارة و اسم السائق - اضافة البيانات الجديدة للقائمة المنسدلة بعد معالجتها - امكانية جلب البيانات وتعديلها و اعادتها الى نفس مكانها = كما طلبت - اضافة التنسيقات الشرطية للإدخال - وضع حد ادنى للمعلومات المطلوب ادخالها لن يتم الترحيل الا بادخالها وغير ذلك من حسابات ومعادلات - اضافة التنسيقات الشرطية

السلام عليكم و رحمة الله وبركاته اخي الكريم ابو حنين اشكرك على كريم مرورك وملاحظتك

السلام عليكم ادخل البيانات في النموذج واضغط ترحيل طلب ترحيل بيانات السيارات.rar

السلام عليكم و رحمة الله وبركاته النموذج الي انته عامله رائع و مرتب وممكن ان يفي بالغرض

السلام عليكم هذا يتم باستخدام التحقق من صحة ثم مخصصة ثم تضع الدالة len اسم الخلية = 20

اخي عباد جزاك الله كل خير شرف كبير لي مروركم الكريم بارك الله فيك

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

السلام عليكم و رحمة الله وبركاته اخونا الحبيب المبدع ابونصار جزاك الله كل خير دائما تاعبينك معانا جربت الملف على 2003 لم يعمل ولكن لاحقا سوف اجربة على 2007 اشكرك جزيل الشكر على اهتمامك كل عام وانته بخير

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

السلام عليكم و رحمة الله وبركاته اخي حافظ شكرا لك على كريم مرورك

السلام عليكم و رحمة الله وبركاته مرفق الملف بعد التجربة تم تغيير تنسيق خلية التاريخ فقط el-destor cash.rar

السلام عليكم و رحمة الله اخي الكريم لم اجد اي مشكلة في الكود في ورقة SEARCH

السلام عليكم و رحمة الله وبركاته في المرفق عند فتح الملف يتم تحويله الى القرائة فقط - حيث يستطيع المستخدم استخدام كامل الملف ولكن لا يستطيع حفظها في اول ورقة وفي الخلية الصفراء اكتب كلمة السر "123" وثم انتر يتم اعادة تعيين الملف الى للكتابة ويمكنك حفظ التغييرات Private Sub Workbook_Open() ThisWorkbook.Saved = True ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Range("H1") <> "" Then Q1 = Range("H1").Text If Q1 = "123" Then ThisWorkbook.ChangeFileAccess Mode:=xlReadWrite, Notify:=True Range("H1") = "" End If End Sub حسابات.rar

السلام عليكم و رحمة الله وبركاته كلام جميل وزي العسل بس سؤال اذاكان يوجد ورقة باسم العامل من السابق ماهو المطلوب عمله

وعليكم السلام و رحمة الله وبركاته الحماية ممكن ان شاء الله

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

هذه مش عارف اعملها ليأخذ كل ذي حق حقه - فانه لايكلف الله نفسا الا وسعها

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

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

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

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

اخي الحبيب الفاضل ضاحي جزاك الله كل خير على كريم مرورك