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

اهلا استاذ ياسر اشكرك على تفاعلك هذا رابط الموضوع الاصلي 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 حاولت تعديلة ولم يعمل

اخي محمود_الشريف يظهر

تحية طيبة للجميع واشكر لكم تفاعلكم مرفق الجدول بعد ان حذفت جزاء كبير من الصفوف لان حجمة كبير بحيث يحذف المكرر والابقاء ع واحد العمود الذي فيه التكرار F الجدول 2.rar

البيانات في العامود E وقمت بتعديل الكود واستبدل A ب E

استبدلت ولم يعمل احاول ارفاق الملف

استاذتي مشكلة في كود مسح الصفوف المكررة 80الف امل المساعدة السلام عليكم اساتذتي لدي ملف اكسل بصيغة (97-2003.xlsx)‎ فيه عدد 80000 الف صف وعدد 6 اعمدة المشكلة ان احد الاعمدة في صفوف مكررة كثيرة حاولت مسحها والابقاء ع واحد بكود الاستاذ عبدالله المجرب Sub Abu_Ahmed_Del() LR = [A1000].End(xlUp).Row For i = LR To 1 Step -1 If Application.CountIf(Range("A1:A" & LR), Cells(i, 1)) > 1 Then Cells(i, 1).Delete Shift:=xlUp Next End Sub ولم يقبل حولت الى اكسل 2013 ولم يعمل امل المساعدة ولكم الشكر