نبا زيد

السلام عليكم اشكرك - جزيت خير اني كنت محتاج كود لعمل ترقيم بعد عملية الحذف ( حاليا الكود يقوم بحذف عمود الاسماء ويحل مكانها ترقيم ) ليس هذا هو اللي احتاجه الكود اللي محتاجه للترقيم ( ادراج عمود للترقيم ودفع الاعمدة الموجودة لليسار ارجو ان وصلت النتيجة المطلوبة مثال.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 ولكن الملف بعده بطيء

السلام عليكم عندي ملف يحتوي على بيانات ، اكثر من ( 25 ) الف صف قابل للزيادة الملف عند فتحه واضافة عليه بيانات جديدة يستغرق وقت كبير حاولت تغيير امتداد الملف - نفس الثقل هل يوجد كود يسرع الملف مع العلم بان الملف على يحتوي على معادلات

السلام عليكم ان شاء الله هذا طلبك متابعة الطلاب1.xlsm

السلام عليكم عندي ورقة بشكل افقي عند الطباعة لا تظهر كل البيانات تطلع الورقة من الطابعة مقطوعة هذه الحالة فقط عند الطباعة بشكل افقي حاولت باعداد الورقة والطابعة ولم احصل على نتيجة مع العلم - عندي طابعتين نوع ريكو واحدة تظهر البيانات بشكل صحيح ( الطابعة ملونة ) والثانية البيانات مقطوعة ( الطابعة اسود وابيض )

السلام عليكم - أهل العلم والخبرة - اضافة الى علمهم - تواضعهم واهتمامهم بمساعدة الاخرين وكلمتك واي إستفسار سنكون دائما سعداء بمساعدتك والله هذه الكلمات اسعدني - كما سعدتني بالحل والكود الرائع الذي هو المطلوب جزاك الله خير

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

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

السلام عليكم طلبت من الذكاء الاصطناعي كود لربط ملف الاكسل والاكسس بحث اذا حصل تغيير في الاكسل ينتقل هذا التغيير تلقائي الى ملف الاكسس وهذا الكود هو S Sub ImportFromExcel() Dim db As Database Dim rs As Recordset Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object Dim i As Integer Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("C:\Path\To\Your\Excel\File.xlsx") Set xlSheet = xlBook.Sheets(1) Set db = CurrentDb Set rs = db.OpenRecordset("YourTableName") rs.AddNew For i = 1 To xlSheet.UsedRange.Rows.Count rs.Fields("FieldName1") = xlSheet.Cells(i, 1).Value rs.Fields("FieldName2") = xlSheet.Cells(i, 2).Value ' Add other fields as needed rs.Update Next i rs.Close Set rs = Nothing db.Close Set db = Nothing xlBook.Close False xlApp.Quit Set xlApp = Nothing End Sub ممكن من حضراتكم الكريمة تعديل هذا الكود ليصلح على شغلي وعلى الملفين المرفقين في المشاركة الاولى b

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

السلام عليكم كان موضوعي هو عندي ملفين واحد اكسس وملف اكسل عملي على ملف اكسل كنت اقوم بعملية نسخ ولصق (انسخ البيانات من الاكسل الى اكسس) هل توجد طريق (كود) عندما اعمل تحديث بيانات أو اضافة في ملف اكسل تنتقل هذه االتحديثات أو الاضافات أو التغييرات الى ملف اكسس او تصدير البيانات من الاكسل الى اكسس

السلام عليكم ورحمة الله وبركاته حياكم الله عندي ملف اكسل + ملف اكسس اعمل على ملف اكسل --- المطلوب اكرمكم الله - وما ادري هل ممكن عمل هذا الطلب : ربط ملف الاكسل بالاكسس بحيث ما يجري من تغييرات في ملف الاكسل يتغير بالاكسس تلقائيا قاعدة بيانات.zip اكسل.xlsm

تمام ساحاول واعلمك