أ / محمد صالح

ربما يفيدك هذا الموضوع بالتوفيق

جميعا بإذن الله شكرا لكلماتك الطيبة أستاذ @Ali Mohamed Ali

يمكنك استعمال هذه المعادلة =SUMIFS(5:5,4:4,">="&A7,4:4,"<="&B7) بالتوفيق

جميعا أخي الفاضل

جميعا بفضل ربي

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

الشكر لله الذي هدانا لهذا

جميعا بإذن الله تعالى 😍🤩

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

يمكنك استعمال المعادلة التالية في الخلية 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 بالتوفيق

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