Ali Mohamed Ali

بارك الله فيك استاذ سليم وكما نصحك اخى الكريم استاذنا الكبير سليم فلابد دائما ان تقوم برفع ملف وتوضيح عليه المطلوب وهذه معادلة اخرى بجانب المعادلة الرائعة للأستاذ سليم -وذلك لإثراء الموضوع =LOOKUP(2,1/((A1:A1000<0)),A1:A1000)

جزاك الله كل خير أستاذ مجدى عمل ممتاز

أخى الكريم انا لم اقم بحذف اى شيء من ملفك فقط انا قمت بالعمل على العمود الثانى وليس هناك اية معادلات بالملف و الأرقام الموجودة بالملف الذى ارسلته اليك مطابقة ومساوية تماما لملفك فاذا كان هناك خلل او تبديد فيكون من عندك لأنه مساوى لملفك تماما بارك الله فيك

على الرغم ان ملف الأستاذ سليم لا يعلى عليه ودائما الأكواد تكون افضل واسرع في العمل الا ان بناءا على كلبك فهذا العمل بالمعادلات DATA.xlsx

تفضل حساب العميل 1.xlsx

عليك بترك التواريخ القديمة كما هي ولصق المعادلة في الخلايا الجديدة

وعليكم السلام-لك ما طلبت حساب العميل.xlsx

تفضل واكثر من المطلوب اضافة البيانات بحث بالإسم.xlsm

ممتاز بالتأكيد دائما وابدا مبدع عمل رائع أستاذ سليم جعله الله في ميزان حسناتك

جرب هذا الرابط https://www.officena.net/ib/topic/64533-فرز-البيانات-باستخدام-الدالة-aggregate-في-الاكسل-2010/ وهذا فيديو للشرح-بصراحة انا لدى اكسيل 2010 واعتقد هذه الدالة موجودة بداية من هذه النسخة فى الإكسيل https://www.youtube.com/watch?time_continue=130&v=DvMFdMg9fEo وهذا فيديو اخر مع وجود ملف لتطبيق شرح الفيديو اسفل الفيديو https://www.youtube.com/watch?v=_JYqzEunsm4 وهنا ايضا شرح https://exceljet.net/excel-functions/excel-aggregate-function

أحسنت استاذ سليم معادلة ممتازة بارك الله فيك

وعليكم السلام-لك ما طلبت أوفيسنا.xlsx

لا تقلق من هذه الرسالة فقط عليك بإزالة علامة الصح ثم الضغط على Continue

دائما مبدع استاذ سليم بارك الله فيك استاذى الكريم

أحسنت استاذ بن علية عمل ممتاز بارك الله فيك

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

بوركت استاذ بن علية معادلة رائعة جعله الله فى ميزان حسناتك

بارك الله فيك استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك

أحسنت استاذ مجدى عمل ممتاز جعله الله فى ميزان حسناتك

وعليكم السلام -منور المنتدى يمكنك استخدام هذا الكود Sub salesvalues() Dim chtChart As Chart 'Create a new chart. Set chtChart = Charts.Add Set chtChart = chtChart.Location(Where:=xlLocationAsObject, Name:="ÅÏÇÑÉ ÇáÊæÇÕá ÇáÏÇÎáí") With chtChart '.Name = "" .ChartType = xlColumnClustered 'Link to the source data range. .SetSourceData Source:=Sheets("ÅÏÇÑÉ ÇáÊæÇÕá ÇáÏÇÎáí").Range("C4:N8"), _ PlotBy:=xlRows .HasTitle = True .ChartTitle.Text = "Sales by Customer" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Customer" .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Total Sales" End With End Sub وفى هذا الرابط سوف ترى شرح أخر https://www.computerna.com/excel-chart/

بارك الله فيك

تفضل ولكن عليك الا تقوم بضغط الملف طالما ان مساحته صغيرة Indirect.xlsx

تفضل لك ما طلبت Indirect.xlsx

وعليكم السلام كان عليك استخدام خاصية البحث في المنتدى فهناك مشاركات تناولت هذا الموضوع منها : https://www.officena.net/ib/topic/42354-ضبط-الكود-تحديد-تاريخ-قفل-ملف-وانتهاء-صلاحية-فتحه/ https://www.officena.net/ib/topic/45608-كيف-أجعل-برنامج-الاكسيل-يتوقف-بعد-زمن-معين/ وهذان رابطان اخران من خارج المنتدى http://xlsmilev.blogspot.com/2017/11/blog-post_27.html http://yasserkhalilexcellover.blogspot.com/2016/04/workbook-expired-after-three-times.html

أحسنت أستاذ محمد بارك الله فيك عمل رائع وعودا حميدا جعله الله في ميزان حسناتك