ابوعلي الحبيب

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

الله يجزاك الجنة ووالديك والمسلمين اجمعيا

الاخوه الأحباب السلام عليكم ورحمة الله كل عام والجميع بخير بمناسبة شهر رمضان المبارك أعاده الله علينا وعليكم والأمة الإسلامية بالخير والبركات عند ادخال اوستعراض النسبة المئوية 1% او 2.5% او 3.5% او5% لا تظهر بالشكل الصحيح عن طريق الفورم تكون اكبر من المطلوب وشكرا لكم جميعًا مقدما مشكلة النسبة المئوية في الخلية والتكست.rar

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

برجــــاء المساعدة برجــــاء المساعدة برجــــاء المساعدة برجــــاء المساعدة برجــــاء المساعدة برجــــاء المساعدة برجــــاء المساعدة برجــــاء المساعدة

اللهم صلِّ وسلم وبارك على سيدنا محمد عليه أفضل الصلاة والسلام

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

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

سبحان الله العظيم وبحمده

اللهم صلِّ وسلم وبارك على سيدنا محمد عليه أفضل الصلاة والسلام

للرفع

للرفع

للرفع

اهلا استاذ ياسر اشكرك على تفاعلك هذا رابط الموضوع الاصلي http://www.officena.net/ib/topic/46702-الماسح-الضوئي-من-اكسل-excel-scaner/#comment-279973

اهلا استاذ جلال اشكرك على تفاعلك ولكني لم اجد المطلوب

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

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

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

جزاكم الله خيرا وبارك الله فيك استاذنا الكريم

جزاك الله خير ولكن مازل يحفظ في السي مكان الملف الاصل وانا اريده ان يحفظ بالدي اريده ان احدد مكان الحفظ في القرص من الكود جزاكم الله كل خير

مطلوب تعديل على كود النسخ الاحتياطي لكي يحفظ في الدي داخل مجلد السلام عليكم إخوتي أساتذتي أعضاء منتدى أفيسنا اريد تعديل مكان الحفظ الى الدي ويقوم بانشاء مجلد تلقائي باسم مجلد النسخ الاحتياطية ويحفظ الملفات كل واحد باسمه مع وقت وتاريخ الحفظ و العمل من الزميل الفاضل / عادل حنفى مرفق الملف جزاكم الله كل خير Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim strDate As String, DefPath As String Dim FileNameZip, FileNameXls Dim oApp As Object If ActiveWorkbook Is Nothing Then Exit Sub DefPath = ActiveWorkbook.Path If Len(DefPath) = 0 Then MsgBox "Plz Save activeworkbook before zipping" & Space(12), vbInformation, "zipping" Exit Sub End If If Right(DefPath, 1) <> "\" Then DefPath = DefPath & "\" End If strDate = Format(Now, " dd_mm_yyyy, hh.mm AMPM ") FileNameZip = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & strDate & ".zip" FileNameXls = DefPath & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & strDate & ".xls" If Dir(FileNameZip) = "" And Dir(FileNameXls) = "" Then ActiveWorkbook.SaveCopyAs FileNameXls newzip (FileNameZip) Set oApp = CreateObject("Shell.Application") oApp.Namespace(FileNameZip).CopyHere FileNameXls On Error Resume Next Do Until oApp.Namespace(FileNameZip).items.Count = 1 Application.Wait (Now + TimeValue("0:00:01")) Loop On Error GoTo 0 Kill FileNameXls MsgBox "completed zipped : " & vbNewLine & FileNameZip, vbInformation, "zipping" Else MsgBox "FileNameZip or/and FileNameXls exist", vbInformation, "zipping" End If End Sub Private Sub newzip(sPath) If Len(Dir(sPath)) > 0 Then Kill sPath Open sPath For Output As #1 Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0) Close #1 End Sub ابوعلي.rar

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

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

الف شكر لكم

اخي سليم حاصبيا الكود ممتاز ولكن هل فيه امكانية ان يعمل ع عمود F حاولت تعديلة ولم يعمل