علي الشيخ

أتفضل أخي ان شاء الله يكون المطلوب زيادة المدى الى 25000 سف.rar

أتفضل أخوي شوف المرفق كده عسى يكون هو المطلوب ان شاء الله كل يوم هيتم تغيير عدد الأيام المتبقية ليقل بمقدار 1 Vacations.rar

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

مرحبا أخي ماذا تقصد بمتغير تلقائيا؟

اجازات.rar

السلام عليكم أتفضل أخوي أضفت على ملف الأستاذ أيمن فقط عدد أيام الأجازة المتبقية وأيضا طريقة حساب طريقة موقف الموظف من الأجازة سواء كان نظامي أو متجاوز بطريقة أخرى وهي طرح تاريخ نهاية الإجازة من البداية لو كانت 0 أو أكبر يكون نظامي أقل يكون متجاوز

أعتقد أخي انك تقصد الخطأ في انك لما تختار تاريخ اليوم 3 مثلا يظهرلك في المسج 2 دايما الرسالة تنقص بمقدار 1 عن تاريخ اليوم الذي تم إختياره جرب تحذف كود msgbox اللي عندك وتجرب مكانه هذا الكود MsgBox Format(Me.ComboBox1.Value, "dd")

اتفضل اخي شوف المرفق ان شاء الله يكون هو المطلوب مثال.rar

شوف كده أخي الكريم ان شاء الله يكون ضبط BOOK.rar

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

عدد المشتريات - عدد المبيعات لإجمالي الأصناف ولا تقصد للأصناف الظاهرة في عملية البحث فقط؟

اتفضل اخي في المرفق ان شاء الله يكون هو المطلوب ولكن ما عرفت ايه المقصود بالرصيد النهائي أين توجد هذه القيمة؟ BOOK.rar

السلام عليكم أتفضل أخي ان شاء الله يكون المطلوب new.rar

الله يفتح عليك ويجعله في ميزان حسناتك

السلام عليكم عذرا نسيت اكتب كلمة " تكرار " في عنوان الموضوع طلب التعديل على كود خاص بمنع تكرار القيم المرحلة في عمود معين فضلا في الملف المرفق يوجد كود يقوم بترحيل قيم الخلايا من A2:C2 إلى أول صف فارغ بالجدول المبين في الشيت وأيضا الكود يعمل على منع التكرار في العمود B أي عند كتابة اصنف الجديد والضغط على زر الترحيل لا يقوم بالترحيل طالما ان الصنف موجود بالفعل ولكن المشكلة ان الكود ياخذ في الاعتبار حالة الحروف بمعنى لو في صنف موجود اسمه Acetic Acid وانا حبيت اضيف بعد فترة نفس المادة ولكن كتببها acetic Acid فقط التغيير في كتاب الحرف الأول a بدلا من A فان الكود يقوم بالترحيل وهذا يسبب تكرار في البيانات فهل من حل لهذه المشكلة؟ وجزاكم الله خيرا items.rar

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

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

السلام عليكم فضلا شرح الكود المرفق وتوضيح النقاط التي علينا تغيرها ليتناسب الكود مع احتياجنا وكل نطاق يعبر عن ايه وجزاكم الله خيرا texte prédictive 2007.rar

تم الحل بفضل الله والكود موجود أدناه للاستفادة لمن يحتاجه والكود يقوم بحفظ نطاق الطباعة في الشيت النشط يحفظه بيصغة PDF إلى سطح المكتب بنفس اسم ملف الإكسل ككل ومن ثم يقوم بفتح برنامج الأوت لوك واخذ ملف البي دي إف الناتج كمرفق ويكون موضوع الرسالة هو نفس اسم ملف البي دي اف المرفق يمكن التعديل على الكود لما يتناسب مع حاجاتكم والله يجزاكم خير Sub Send_To_Pdf() Dim PdfPath As String Dim BoDy As String BoDy = "Hellom Officena.net" PdfPath = Save_as_pdf EnvoiMail Right(PdfPath, InStr(1, StrReverse(PdfPath), "\") - 1), " ", , , BoDy, 1, PdfPath End Sub Public Function Save_as_pdf() As String Dim FSO As Object Dim s(1) As String Dim sNewFilePath As String Set FSO = CreateObject("Scripting.FileSystemObject") s(0) = "C:\Users\" & Environ("UserName") & "\Desktop\" & ActiveWorkbook.Name If FSO.FileExists(ActiveWorkbook.FullName) Then '//Change Excel Extension to PDF extension in FilePath s(1) = FSO.GetExtensionName(s(0)) If s(1) <> "" Then s(1) = "." & s(1) sNewFilePath = Replace(s(0), s(1), ".pdf") '//Export to PDF with new File Path ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=sNewFilePath, _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False End If Else '//Error: file path not found MsgBox "Error: this workbook may be unsaved. Please save and try again." End If Set FSO = Nothing Save_as_pdf = sNewFilePath End Function Sub EnvoiMail(Subject As String, Destina As String, Optional CCdest As String, Optional CCIdest As String, Optional BoDyTxt As String, Optional NbPJ As Integer, Optional PjPaths As String) Dim MonOutlook As Object Dim MonMessage As Object Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) Dim PJ() As String PJ() = Split(PjPaths, ";") With MonMessage .Subject = "P.O #" & Subject '"Je suis content" .To = Destina ' .cc = " " '"chef@machin.com;directeur@chose.com" .bcc = CCIdest '"un.copain@supermail.com;une-amie@hotmail.com" .BoDy = "Hello , Officena.net" If PjPaths <> "" And NbPJ <> 0 Then For i = 0 To NbPJ - 1 'MsgBox PJ(I) .Attachments.Add PJ(i) '"C:\Mes Documents\Zoulie Image.gif" Next i End If .display '.send '.Attachments.Add ActiveWorkbook.FullName End With '?plusieurs?MonMessage.Attachments.Add "D:\Prof\Janvier\Base clients.mdb" Set MonOutlook = Nothing End Sub

السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا في الشيت المرفق يوجد كودين الكود الأول Module 1 وهو يعمل على حفظ الصفحة " النطاق المخصص للطباعة فقط " كـ PDF إلى سطح المكتب بنفس اسم ملف الإكسل الكود الثاني Module 2 وهو يعمل على بدء رسالة جديدة في الاوت لوك واخذ بعض المعطيات من نفس الشيت التي تم حفظها سابقا كموضوع رسالة وبعض السطور لجسم الرسالة المشكلة هنا ان المفروض الكود الثاني يأخذ في المرفق ملف البي دي إف الذي نتج من الكود الأول ولكن الرسالة تكون بدون مرفق وأيضا يكون موضوع الرسالة Subject يكون نفس اسم المرفق " ملف البي دي إف" فأي أفكار أو مساعد يجزاكم الله خيرا pdftest.rar

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

شكرا أستاذ ياسر الله يجزاك الخير ضبطت تمام

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

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

السلام عليكم ورحمة الله يوجد في المرفق ملف بيه شيت مكون من 3 أعمدة يتم إدخال البيانات في الجدول الموجود بهذه الأعمدة عن طريق الترحيل المطلوب جزاكم الله خيرا أنه لو الشخص أدخل قيمة في العمود رقم 2 " B " وهو عمود اسم الصنف لما يضغط ترحيل Save item لا يقبل الإضافة ويظهر تنبيه يفيد ان الصنف موجود بالفعل أي ان اسم الصنف هو المطلوب عدم تكراره وجزاكم الله خيرا مقدما items.rar