أ / محمد صالح

يمكنك استعمال المعادلة التالية في الخلية I2 =IF(COUNTIF(G:G,G2*-1)>0,"موجود","غير موجود") مع سحب مقبض التعبئة لأسفل لنسخ المعادلة بالتوفيق

المطلوب الاول والثاني موجودان في شيت ورقة3 والمطلوب الثالث موجود في ورقة4

كنت أود أن تكون لك محاولة في تنفيذ ما تريد لا أن ترسل الملف فارغا من أي أكواد وبامتداد xlsx الذي لا يقبل الكود تفضل ملفك بعد تعديل الامتداد وتعديل معادلة الرصيد والاستغناء عن زر بحث وتنفيذ المطلوب بمجرد اختيار اسم العميل اخفاء الصفوف الفارغة تحديد مجال الطباعة تعديل تنسيقات الخلايا بالتوفيق كشف حساب عميل.xlsb

تفضل أخي الكريم https://www.google.com/search?q=شرح%2Boffset%2Bexcel

سلمكم الله من كل سوء

في هذه الحالة نستبدل كلمة mas بمرجع الخلية المطلوبة أمر التصدير .Export Filename:=ThisWorkbook.Path & "\mas.jpg", Filtername:="JPG" يتم تغييره إلى .Export Filename:=ThisWorkbook.Path & "\" & [b3] & ".jpg", Filtername:="JPG" بالتوفيق

يبدو أن حضرتك ما لاحظت هذا الجزء Filename:=ThisWorkbook.Path & "\mas.jpg" وهو يعني في نفس مسار المصنف باسم mas. jpg

جميعا بإذن الله

يمكنك استعمال هذا الكود Sub rng2jpg(Rng As Range) Dim Chrt As ChartObject Rng.CopyPicture xlScreen, xlPicture Set Chrt = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=Rng.Width, Height:=Rng.Height) Chrt.Activate With Chrt.Chart .Paste .Export Filename:=ThisWorkbook.Path & "\mas.jpg", Filtername:="JPG" End With oChrtO.Delete MsgBox "Done by mr-mas.com" End Sub ولاستدعائه Sub mas() rng2jpg Range("a1:f20") End sub وتم فصل الإجراءين لسهولة التعامل مع الكود في أكثر من شيت ويمكن الاستغناء عن الإجراء الثاني إذا أضفنا تحديد النطاق إلى الإجراء الأول كما في السطر الثالث ليصبح Sub rng2jpg() Dim rng As Range, Chrt As ChartObject Set Rng = Range("a1:f20") Rng.CopyPicture xlScreen, xlPicture Set Chrt = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=Rng.Width, Height:=Rng.Height) Chrt.Activate With Chrt.Chart .Paste .Export Filename:=ThisWorkbook.Path & "\mas.jpg", Filtername:="JPG" End With Chrt.Delete MsgBox "Done by mr-mas.com" End Sub بالتوفيق

كل هذا يتوقف على أماكن البيانات والدرجات في ملفك وإذا ما أردت إرفاق ملفك أو مثال يخص المطلوب فربما يفيدك هذا الموضوع بالتوفيق

ما الخطوات التي تقوم بها لمعرفة سبب المشكلة

جميعا بإذن الله

بارك الله لك مجموعة خطوط قيمة

يبدو أن حضرتك نسخت الشيت ولم تنسخ الأكواد التي كانت في الملف القديم Sama1 & sama2 & sama2012 بالتوفيق

نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

نعم يمكن

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

هل هذا بعد الضغط على تمكين المحتوى من كل مستخدم؟؟!!

مشاركة المصنف من تبويب review لا تعطل الأكواد الذي يعطل الأكواد عدم سماح المستخدم للأكواد بعدم الضغط على تمكين المحتوى enable content في بداية فتح الملف

إن شاء الله سليم والتجربة خير برهان طبعا مع تعديل أسماء الجداول في المصفوفة table1 & table2 & table3 وهكذا

في حالتك هذه أ/ @TAMER AGOOR يمكنك اختصار الكود ووضع أسماء الجداول التي سيتم حذف بياناتها في مصفوفة myT = Array("table1", "table2", "table3") DoCmd.SetWarnings False For Each T In myT DoCmd.RunSQL "DELETE * FROM " & T & ";" Next T DoCmd.SetWarnings True بالتوفيق

بارك الله لك أ / @عبدالله الصاري تبقى شيء حتى يظل تنسيق التاريخ كما هو حذف هذا السطر من اجراء sama2 Sheets("كشف الحساب").Range("A5:h10000").ClearFormats بالتوفيق

لعمل ذلك يمكنك اتباع الآتي: الضغط في اي مكان فارغ في الرسم البياني من تبويب تنسيق format نختار من القائمة الأولى المحور أفقي (فئة) Horizontal (category) Axis ثم نضغط على تحديد التنسيق format selection أسفل القائمة مباشرة في لوحة المهام اليمنى التي ظهرت نضغط على الفئات في ترتيب عكسي Category in reverse order بالتوفيق

رغم أن حذف بيانات جميع جداول قاعدة البيانات شيء غير منطقي لكن يمكنك استعمال هذا الكود DoCmd.SetWarnings False Dim T As TableDef For Each T In CurrentDb.TableDefs If Not (T.Name Like "MSys*" Or T.Name Like "~*" Or Len(T.Connect) > 0) Then DoCmd.RunSQL "DELETE * FROM " & "[" & T.Name & "]" End If Next T DoCmd.SetWarnings True بالتوفيق

الكود المرفق مني يعمل على جميع الإصدارات بشرط تفعيل مرجع اكسل من أدوات tools مراجع refrences مع إلغاء مرجع اكسل 16 إذا ظهر كمرجع مفقود وليس شرطا رقم 16 حيث يختلف الرقم حسب اصدار الأوفيس أما بالنسبة لجدول أخطاء الاستيراد فربما لعدم استيراد جميع الأعمدة كما قلت سابقا أو اختلاف ترتيب الحقول