نبا زيد

السلام عليكم - يتم الحذف بعدها تظهر هذه الرسالة

السلام عليكم اشكرك - جزيت خير اني كنت محتاج كود لعمل ترقيم بعد عملية الحذف ( حاليا الكود يقوم بحذف عمود الاسماء ويحل مكانها ترقيم ) ليس هذا هو اللي احتاجه الكود اللي محتاجه للترقيم ( ادراج عمود للترقيم ودفع الاعمدة الموجودة لليسار ارجو ان وصلت النتيجة المطلوبة مثال.xlsm

السلام عليكم

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

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

السلام عليكم

السلام عليكم ممكن اضافة الى الكود عمل ترقيم بعد الضغط على زر التصفية وكما موضح بالملف كود حذف وتنسيق وادراج.xlsm

السلام عليكم ممكن اضافة زر بحث في (شيت التقارير) ليكون مع بحث على اساس رقم الكتاب وتاريخ الكتاب ورقم الواردة وموضوع الكتاب. الاضافة المطلوبة في شيت التقارير هي : البحث على اساس التفاصيل و الاجراءات اضافة زر للبحث في خانتي التفاصيل والاجراءات.zip

جزاك الله خير تسلم

تمام - تسلم جزيت خيرا 100 % فقط ملاحظة : ممكن لا يرحل التاريخ إلا بعد ان اكتبه واضغط انتر يرحل

السلام عليكم اشكرك على سرعة الرد (ممنون) ولكن اني محتاج ارحل تاريخ الادخال فقط الى شيت البيانات تلقائيا عند الضغط على انتر او عند القيام بالطابعة (اي الكود في ورقة الحدث) لان رقم الادخال هو بالاساس موجود في شيت البيانات والترحيل تاريخ الادخال على اساس رقم الادخال 1.xlsm

السلام عليكم محتاج معادلة أو كود لترحيل تاريخ من شيت الى شيت اخر عند الضغط على طباعة الورقة معادلة الرقم كتابة + ترحيل رقم الادخال الى شيت اخر استنادا لرقم الادخال.xlsx

177 صفحة الأمور طيبة - بعد الغيت كل التنسيقات اصبح الملف سريع

هسه افضل بكثير

كل هذه الخطوات - عملته والملف بعده بطيء ومزعج بالعمل حصلت على هذا الكود من الذكاء الاصطناعي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Dim dataArray As Variant dataArray = Sheet1.Range("A1:g100000").Value Sheet1.Range("A1:g100000").Value = dataArray Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic ولكن الملف بعده بطيء