عادل حنفي

السلام عليكم اخي megonil اعذرني فليس محمل علي جهازي اكسل 2007 لذا قمت بعمل المطلوب علي 2003 ارجو التجربة و اخباري بالنتيجة تحياتي flash.rar

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

السلام عليكم اخي يوسف عطا بارك الله في عملك و بعد اذنك بالنسبة للمطلوب فتم تغيير اللست و عمل غيرها و عمل معادلة في الخلية D3 مما ادي الي الغاء البحث برقم الجلوس طبعا يمكن عمل ذلك لكن ان كان له اهمية تحياتي شهادات يوسف2.rar

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

السلام عليكم بارك الله فيك اخي كيماس و بالنسبه للكاليندر لو وجدت اداة مطورة اكثر ساخبرك بها اخي habibsss لا اعلم اخي المشكلة التي تعاني منها و ياريت لو توجد هناك رسالة خطا ارفع صورة لها تحياتي

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

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

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

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

السلام عليكم بارك الله فيك

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

السلام عليكم قد يكون الجهاز الذي تم نقل الملف اليه لا تعمل به خاصية الماكرو و لتفعيلها من tools اختار Macro ومنها اختار security و حدد اختيار Medium ثم ok و اغلق الملف و افتحه مرة اخري و ان شاء الله يعمل تحياتي

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

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

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

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

السلام عليكم اخي Kemas كلامك صحيح مائة بالمائة تبعا للمطلوب الاول و لكن اخي pinkpanther بناء علي طلبك اريد ان استفسر فقط لماذا بعد الحفظ والقفل يعاد الفتح مرة اخري مادام انه بالفعل مفتوح فمن باب اولي ان يتم الحفظ و عدم الاغلاق نرجوا شرح ما الهدف للمعلوميه فقط تحياتي

السلام عليكم اخي abo_alaa مرفق ملف ارجو تجربته و اخباري بالنتيجة يتم حفظ الملف من خانة التاريخ فيتم حفظه برقم الشهر اخي hyasser بارك الله فيك و مشكور علي المرور تحياتي المركز المالى للمدرسة .rar

السلام عليكم اخي ahmady2340 لا شكر علي واجب اخي HaNcOcK بارك الله فيك خالص تحياتي و تقديري

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

السلام عليكم اخي ahmady2340 Range("c20:h41") = "" Range("e10,e11,i10,g13,g15") = "" Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True السطر الاول و الثاني لجعل لتفريغ محتويات المدي المحدد السطر الرابع و هو امر حفظ الملف و تم وضعه بين السطر الثالث و الذي يوقف اظهار رسالة هل تريد حفظ الملف ام لا و السطر الاخير يفعلها مرة اخري بعد الحفظ تم ارفاق ملف لطباعة الفاتورة التي تحفظها و لكن بشرط ان تضع صح في ال CheckBox الموجود لاني وضعت في الاعتبار انه قد ترغب في عدم الطباعة جرب الملف و اخبرني النتيجة تحياتي Save invoice with print.rar

السلام عليكم اخي magodey بالفعل ملف رائع مشكور علي المجهود تحياتي

السلام عليكم اخي الحبيب خبور بارك الله فيك و في اعمالك تحياتي

بارك الله فيك اخي abo zohir و الي الامام دائما تحياتي

السلام عليكم اخي galo2020 اشكرك علي كلماتك الطيبة اخي ahmady2340 اولا اشكرك و ثانيا الكود المستخدم هو Sub save_file() If Range("I6") = "" Then 'لتحديد اذاكان خلية رقم الفاتورة فرغ يتم اعطاء هذه الرسالة MsgBox ("ادخل رقم الفاتوره") Exit Sub Else Dim full_path As String Dim aah As String m = ActiveWorkbook.Name 'نعرف ان m هي اسم ملف الاكسل المفتوج full_path = ThisWorkbook.Path & "\" & [i6].Value & ".xls" 'ماسبق يجعل الكلمة التي قبل ال = هي المكان الذي سيحفظ فيه الملف aah = Dir$(full_path) 'يتم تعريف ال aah بانها كامل الاسم الذي سيحفظ به الملف Workbooks.Add 'ادراج ملف اكسل جديد N = ActiveWorkbook.Name 'نعرف ان N هي اسم ملف الاكسل النشط او اما تم ادراجه Windows(m).Activate ActiveSheet.Range("B2:j44").Copy 'ننشط اسم الملف المفتوح و الذي عرفناه في البداية باسم m و ننسخ منه المدي المطلوب Windows(N).Activate ActiveSheet.Range("B2:j44").Select ActiveSheet.Paste 'ننشط اسم الملف الجديد و الذي عرفناه باسم N و نحدد المدي المطلوب و نلصق به ما تم نسخه Columns("B:J").EntireColumn.AutoFit Range("B2").Select Application.CutCopyMode = False Application.DisplayAlerts = False If aah = [i6] & ".xls" Then 'اذا كان المكان الذي سيتم به حفظ الملف و الذي سيكون اسمه ما بالخلية i6 ,ونهايته .xls موجود به نفس الاسم MsgBox "الملف موجود بالفعل...." 'تاتينا رساله بان الملف موجود بالفعل ActiveWorkbook.Close 'نقفل الملف الجديد المفتوح Application.DisplayAlerts = True Exit Sub Else 'اذا لم يكن اسم الملف موجود ActiveWorkbook.SaveAs Filename:=full_path 'يتم حفظ الملف الجديد Application.DisplayAlerts = True ActiveWorkbook.Close 'اقفال الملف الجديد Range("I6") = Range("I6") + 1 'في الملف الاخر محتوي الخلية i6 نزيده 1 Range("c20:h41") = "" Range("e10,e11,i10,g13,g15") = "" Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True End If End If End Sub وان اردت تغيير مكان حفظ الملف سيكون التغيير في هذا السطر full_path = ThisWorkbook.Path & "\" & [i6].Value & ".xls" فمثلا لو اردت الحفظ في ال c في فولدر اسمه My work سيصبح هذا السطر كالتالي full_path = "C:\My work\" & [i6].Value & ".xls" اخي هذا شرح بسيط للكود و اي استفسار انا منتظر تحياتي