عادل حنفي

السلام عليكم اخواني تم حماية الخلايا التي بها معادلات مع عمل زران زر لكل صفحة لمسح البيانات حتي لا يتم المسح يدويا و بالنسبة للاخ احمد حافظ فك ضغظ كامل الملف في السي و افتح ملف الاكسل من هناك فقد تم وضع الملف بالمسارات التي اشرت اليها ارجو ان يعمل معك علي السيرفر يجب عليك وضع اسم ملف ال pdf في صفحة Data فلم اسجله انا و الاسم هو Baher لكم مني خالص الشكر و التقدير jahmail.rar

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

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

السلام عليكم اخي حسب مافهمت منك انك تريد التثبيتث لهذا الجزء ولكن التحريك سيكون بثبيت الجدول الذي علي اليمين ايضا ومساحته مارايك بان تنقل هذا الجدول يميمنا كالملف المرفق تحياتي size13.rar

السلام عليكم اخي YasserKhalil بارك الله فيك عملك تمام و النتيجة مضبوطه تحياتي

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

السلام عليكم تفضل اخي تحياتي TJAREB1.rar

السلام عليكم اخي احمد حافظ بالتجربة حتي الان لا اجد مشاكل و عموما تحت التجريب مرفق ملف تم تحديث الكود فيه لفتح ملفات ال pdf من فولدر بجوار ملف الاكسل و الذي بجواره ملف ال exe كامل الفولدر و الذي اسمه 22 يمكن تغيير اسمه الي ما تريده و كذلك وضعه في اي درايف تحياتي اخي mersaal رايت رسالتك اثناء ردي هذا و تم عمل المطلوب علي الملفين العربي و الانجليزي و سيلاحظ هذا ايضا الاخ احمد حافظ خالص تحياتي 22.rar DATE23.rar

السلام عليكم اخي احمد حافظ بارك الله فيك سيتم التجربه ان شاء الله سمي الملف باسم Ali و اكتب Ali في خليه من خلايا العمود الاول و اضغط علي الاسم مرتان سيفتح ان شاء تحياتي

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

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

السلام عليكم اخي احمد حافظ كما وعدتك لفتح ملف ال pdf حمل الملف المرفق و فك ضغطه وضع ملف ال exe في ال C و هو عباره عن ملف انفيذي تفتح عن كريقه ملفات ال pdf كما هو دون تغيير اسمه ثم افتح ملف الاكسل و اقرأ الارشادات تحياتي open_pdf.rar

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

السلام عليكم اخي الرساله معناها ان مستوي الامان لديك علي الوضع العالي لتعديله اذهب الي Tools و منها اختر Macro و منها اختر Security ستظهر فورم بها اربعة خيارات اختر الخيار القبل الاخير و هو وضع الامان المتوسط ثم اضغط علي OK و اغلق الملف و افتحه مرة اخري و عند فتحه ستاتيك رساله تسالك هل تريد تمكين عمل الماكرو ام لا اضغط علي زر Enable Macro ستجد الازرار تعمل ان شاء الله و لا تقلق من الرساله الاخيره فستظهر لك عند فتح اي ملف به ماكرو تحياتي

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

السلام عليكم صباح الفل يا ابو حميد تحياتي

السلام عليكم اخي kholio.1 و يبارك لنا فيك اخا عزيزا تحياتي

السلام عليكم اخي New4a اولا لا اسف و لا اعتذار ولا شئ فالمقصود عدم التشتيت و المتابعه الي ان نصل الي نهاية الموضوع بشئ نافع لا اخي انا اقصد الملف الموجود بالمشاركة 15 و هو رقم 17 rar وقد يكون انت حملت نفس الملف و لكن قبل التعديل ارجع و حمله مرة اخري و جربه و اخبرني النتيجة فرايك يهمني و بخصوص عامود الملاحظات فقد تم نقله عن عمد لتسهيل كتابة الكود لنسخ المدي و ما عليك ان تقوم به فقط كتابة الملاحظات قبل كتايبة التاريخ و للتاكد من ان الملف يعمل بشكل سليم خالص تحياتي

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

السلام عليكم طلب مني احد الاخوه طلبا هذا هو رابطه إضغط هنا و لاهمية الموضوع اعرضه عليكم قم بعمل جدول به البيانات التي تريدها قم بتحديد الجدول بالكامل و اذهب الي Insert في شريط الادوات ومنها اختر Name ثم Define... ستظهر لك فورم حواري اسفله سيكون محدد المدي الذي قمت انت بتحديده بالماوس واعلاه ستجد هذه الجمله Names in workbook تحتها مباشرة اكتب Database ثم اضغظ علي OK ادرج زر و اربط الزر بهذا الكود ActiveSheet.ShowDataForm و اضغط علي الزر و اخبرني عن النتيجة مرفق ملف ارجو التجربة و اخباري النتيجة datashow.rar

السلام عليكم اخي الفاضل لابد من ان يكون هناك مدي مسمي و معرف باسم Database و لعمل ذلك قم بتحديد الجدول بالكامل و اذهب الي Insert في شريط الادوات ومنها اختر Name ثم Define... ستظهر لك فورم حواري اسفله سيكون محدد المدي الذي قمت انت بتحديده بالماوس واعلاه ستجد هذه الجمله Names in workbook تحتها مباشرة اكتب Database ثم اضغظ علي OK هكذا عرفت القاعدة التي ستفتح علي اساسها الفورم ارجو ان اكون استطعت بتوصيل المعلومه و اسمح لي ساضيفها لمجموعة اعمالي لاهميتها مرفق الملف بعد التعديل تحياتي Datashowlaste.rar

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

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

السلام عليكم اخي khhanna عذرا اخي كلها اسماء الله انا كنت بضحك بس انت ايضا تضعني في موقف الذي يجاوب حسب تخيله فقط فاولا جعلتني افترض ان ما تريد حفظه هو صفحة و احده و الان سافترض ان هناك مجموعة صفحات محفوظه و تريد استرجاعها و اجعلني هنا ان اطيل شويه لكي تكون الفكرتان معا اولا نعمل فولدر في ال C و سميه My Backup انشئ ملف اكسل فارغ بداخله و اجعل اسم هذا الملف Recover و اجعل ملف Recover هذا به صفحة واحد و ليكن اسمها sheet1 في هذه الصفحة ادرج زر و سميه مثلا Recover و اربط بهذا الزر الكود التالي For i = 1 To Sheets.Count - 1 Sheets(i).Select Dim my_sheet As String Dim file_name As String Dim full_path As String Sheets(i).Cells(1, 1).Select file_name = Sheets(i).Name Debug.Print file_name full_path = ActiveWorkbook.Path & "\" & file_name & ".xls" Debug.Print full_path ThisWorkbook.ActiveSheet.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=full_path Application.DisplayAlerts = True ActiveWorkbook.Close Next و احفظ الملف و اغلقه فسنحتاج هذا لاحقا افتح الملف الذي تريد ان تحفظ منه صفحة و داخل هذه الصفحة ادرج زر و سميه Backup و اربط هذا الزر بالكود التالي On Error GoTo 1 s = ActiveSheet.Name Cells.Select Selection.Copy Dim vFile As Variant vFile = "c:\My Backup\Recover.xls" Workbooks.Open vFile Sheets.Add ActiveSheet.Paste ActiveSheet.Name = s 2: ActiveWorkbook.Close Savechanges:=True Application.CutCopyMode = False MsgBox ("تـــم") Exit Sub 1: On Error Resume Next m = Sheets.Count - 2 ActiveSheet.Name = s & m GoTo 2 و احفظ الملف اضغط علي زر Backup الذي امامك سيتم عمل نسخة من الصفحة المفعله امامك في ملف Recover السبق ذكره في ال C و للتجربه فقط يمكنك ضغط زر Backup اكثر من مره فسيتم انشاء الصفحة المفعله مرة اخري باضافة رقم الي اسمها فقد عولج الكود علي هذا و لتفعل هذا مثلا اربع مرات و اغلق ملف Backup و احفظه بالكود الذي تم عمله الان اذهب الي ال C و افتح الفولدر الذي اسمه My Bacup وافتح الملف الذي انشأناه سابقا و هو Recover ستجد بداخله الصفحات التي قمنا بحفظها من ملف Backup افتح الصفحة Sheet1 و اضغط علي زر Recover سيتم فك كل صفحة من الملف كل واحدة تلو الاخري و باسمها و في الفولدر الذي اسمه My Backup ارجو ان اكون قد تمكنت من شرح العمل و سارفق ملف لما يكون عليه ملف Backup و كذلك الفولدر الذي سيوضع في ال C و بداخله ملف الاكسل Recover ارجو التجربة و اخبار عند وجود اي عقبات خالص تحياتي My_Backup.rar

السلام عليكم سلمت يداك يا ابو خالد تحياتي