بن علية حاجي

السلام عليكم ورحمة الله تفضل الملف المرفق بعد التعديل على المعادلات حسب المطلوب الجديد... بن علية حاجي from 01.12 till 15.12.2017.rar

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

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

السلام عليكم هذا الخلل يظهر عندما لا تكون هناك قيم ثابتة أو نصية في النطاق المحدد... ولأجل هذا قمت بتعديل الكود إلى الكود التالي: Sub one() Dim lr As Integer Sheets(3).Activate lr = [A1000].End(xlUp).Row If lr < 3 Then MsgBox ("!!!لا توجد بيانات للترحيل"): Exit Sub Range("A3:I" & lr).Copy Sheets(2).Activate Range("A" & [A1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Range("A3").Select Sheets(3).Activate Range("A3:I1000").SpecialCells(xlCellTypeConstants, 23).ClearContents Range("A3").Select x = MsgBox("تم الترحيل") End Sub بن علية حاجي

السلام عليكم تقصد الكلمة الموجودة في الأمر: Range("a3:i1000").SpecialCells(xlCellTypeConstants, 23).ClearContents هذا الأمر في الكود يمسح كل القيم الثابتة فقط (ِConstants) في النطاق A3:I1000 دون المعادلات والتنسيقات والتأطيرات وغيرها... والكلمة xlCellTypeConstants تعني "كل الخلايا التي مضمونها قيم ثابتة"... والله أعلم بن علية حاجي

السلام عليكم تقصد شرح معادلة التسمية MinV والتي هي: =SMALL(شيت!$A:$A;1+COUNTIF(شيت!$A:$A;0)) هذه المعادلة تحدد أصغر قيمة في العمود A من شيت "شيت" غير المعدومة (بمعنى آخر القيمة الأكبر مباشرة من قيمة الصفر المتكررة في هذا العمود)... بن علية حاجي

السلام عليكم اطرح سؤالك وإن لم أوفّق في الإجابة عليه، ستجد إن شاء الله المساعدة من أحد الإخوة في المنتدى... بن علية حاجي

السلام عليكم قلت لك إنك تعمل بالكود القديم... عليك تبديله بالكود التالي: Sub one() Dim lr As Integer Sheets(3).Activate lr = [a1000].End(xlUp).Row Range("a3:i1" & lr).Copy Sheets(2).Activate Range("a" & [a1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues Range("a3").Select Sheets(3).Activate Range("a3:i1000").SpecialCells(xlCellTypeConstants, 23).ClearContents Range("a3").Select x = MsgBox("تم الترحيل") End Sub بن علية حاجي

السلام عليكم هل يمكن أن أرى مضمون الكود الذي تم تنفيذه؟ بن علية حاجي

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

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

السلام عليكم أرفق إليك ملفا تنفيذيا تم تحضيره من الملف الذي أرفقته بالأعلى بعد تطبيق الكود عليه... لاحظ النتائج المتحصل عليها... عندك ربما ما زلت تعمل بالكود القديم... بالنسبة للكود الجديد فقد أضفت له الأمر Range("A3").Select الذي يقوم بتحديد (الانتقال إلى) الخلية A3 من شيت "السجل العام" بعد عملية الترحيل مباشرة وقبل العودة إلى شيت "ورقة حساب يومي"... بن علية حاجي سجل المحل.rar

وأين الملف المرفق على هذه النتائج مع توضيح الخلل عليها؟

السلام عليكم كيف لم تتم أي تغييرات على الملف؟ ما هو المشكل بالضبط؟ ضع بعض البيانات في الملف وطبق الكود عليه وارفق النتيجة المتحصل عليها في المرفقات مع تحديد المطلوب عليها... بن علية حاجي

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

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

السلام عليكم عليك تغيير "تنسيق الرقم" في الخلية إلى التنسيق "Standart" وظهرت النتيجة بهذا الشكل لأن التنسيق في الخلية هو "رقم عشري" بـ 16 منزلة (رقم عشري) بعد الفاصلة... والله أعلم

السلام عليكم ورحمة الله إذا كنت تريد الحفاظ على المسافات عند حفظ ملف الإكسيل على شكل ملف txt. فيجب عليك حفظه باستعمال خاصية "حفظ باسم" "Enregistrer Sous" ثم تختـــــار ميزة (Texte Unicode (*.txt... تنبيه: يفضل أن يكون في ملف الإكسيل ورقة واحدة (شيت واحد) حتى يتم حفظ الملف بصيغة txt. بسهولة... والله أعلم

السلام عليكم ورحمة الله ألق نظرة على الملف المرفق لعل فيه ما تريد... بن علية حاجي from 01.12 till 15.12.2017.rar

السلام عليكم ورحمة الله هذا حل آخر مع حل أخي الكريم سليم في المرفقات بن علية حاجي Common_Days.rar

السلام عليكم ورحمة الله في هذه الحالة يجب تغيير هذا الكود بالكود التالي: Sub Printing() Dim I As Integer For I = 1 To [I1] If I <= [I1] Then [I2] = I ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & I, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End If Next End Sub سيقوم هذا الكود بحفظ الملفات بصيغة pdf بالتسمية حسب قيم المتغير I في الكود أي: pdf.1 و 2.pdf و 3.pdf و 4.pdf وهكذا إلى آخر قيمة قيمة للمتغير I ويكون الحفظ في مسار الملف الذي تم تنفيذ الكود منه... بالنسبة للملف excpancepc.xlsb (الملف المرفق بالأعلى -الأخير-) نقوم بتبديل كود aaaa بالكود التالي: Sub aaaa() Dim Rng As Range Dim x As Long, y Set Rng = Sheets("Sheet2").Range("A2:A" & Sheets("Sheet2").Range("A60000").End(xlUp).Row) y = Sheets("Sheet1").Cells(1, 15).Value For x = 1 To y Sheets("Sheet1").Cells(7, 7).Value = Application.Index(Rng, x) ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & Sheets("Sheet1").Cells(7, 7).Value, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next Sheets("Sheet1").Cells(7, 7).Value = Application.Index(Rng, 1) End Sub والله أعلم

السلام عليكم ورحمة الله جرب الكود التالي: Sub all() Range("A1").Select ActiveCell = 1 Do ActiveWindow.SelectedSheets.PrintOut ActiveCell = ActiveCell + 14 Loop Until ActiveCell.Value > Range("E2").Value Range("A1").Select End Sub بن علية حاجي

السلام عليكم ورحمة الله من المفروض أن ترفق ملفا نعمل عليه حتى تكون النتيجة مطابقة لعملك... المهم قمت بتحضير ملف حسب فهمي للمسألة (في غياب ملف مرفق) وضعت فيه معادلة ربما تكون حلا لمسألتك... بن علية حاجي تغيير التنسيق H 1149 إلى التنسيق ساعات ودقائق.rar

السلام عليكم ورحمة الله لم أفهم ما تريده بالضبط؟ ثم ما هي قائمة الملفات الموجودة في desktop تبعك؟ وما هو نوعها؟ في ملفك وضعت في الخلية C3 المعادلة التالية : =HYPERLINK("C:\Users\Mahmoud Ahmed\Desktop\المؤسسة="&B7&"";"فتح المعاملة") فماذا تعني بـ "المؤسسة=" في هذه المعادلة ؟ ثم إن هذه المعادلة مرتبطة بالخلية B7 وهي خلية من المفروض أن ترتبط بالخلية A3 التي بها رقم المعاملة... بن علية حاجي

السلام عليكم ورحمة الله نعم هذا ممكن جدا، يكفي عند تحضير كود طباعة الإيصالات في ملف pdf أن نعطيه اسمه من الخلية التي تحوي رقم الإيصال (وفي ملفك هي الخلية G6)... بن علية حاجي