سليم حاصبيا

شاهد هذا الفيديو

جرب هذا الملف Names_Data.rar

ربما يكون المطلوب المصنف salim.rar

تم معالجة الامر (اختر الاسم فقط من القائمة المنسدلة في الخلية A4) expenses salim MODIFIER.rar

انسخ هذه المغادلة الى الخلية E6 واسحب نزولاً =IFERROR(IF(A6="","",SUM(B6*D6)),D6)

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

بارك الله قيك اخي الفاضل رجب و اسمح لي باضاقة بسيطة على الكود ليتجنب التكرار و يصبح هكذا Sub Transpose_RG1() Dim i As Integer Dim ii As Integer Dim LR As Integer Dim arr() As Variant '============================================================= [B1:B1000].ClearContents LR = Cells(Rows.Count, 1).End(xlUp).Row '============================================================= For i = LR To 1 Step -1 x = Application.WorksheetFunction.CountIf(Range("a1:a" & i), Cells(i, 1)) If x > 1 Or Cells(i, 1) = Empty Then GoTo 1 ii = ii + 1 ReDim Preserve arr(1 To ii) arr(ii) = Cells(i, 1) 1: Next [B1].Resize(ii) = Application.WorksheetFunction.Transpose(arr) End Sub

حسب ما فهمت من المشاركة ارجو ان يكون المطلوب tansic.rar

السلام عليكم بهد اذن اخي و صديقي احمد اليك هذا الملف الذي يغمل بالمعادلات مع الاشارة الى ان القوائم المنسدلة مطاطة(تستجيب لاي تغيير في البيانات ولا تذكر المكرر الا مرة واحدة) expenses salim.rar

اخي ابو البراء اليك ما كنت أطلبه (أظن انه يوجد حلول اخرى) و ما زلت اطمع بالمزيد بدون تكرار مثلاً) Reverse_Without_Empty.rar

اخي محمد نريد نطاقاً ديناميكياً يتسع او يضيق مع حجم البيانات مغ ازال الفراغات اذا وجدت في هذا النطاق

اخي ابو البراء ما زلت انتظر الرد على اقتراحي بتجنب الفراغات في هذا الموضوع ام ان الاخوان يريدون السمكة وبلاش التعلّم على الصّيد....؟؟؟

جرب هذا الملف copy_with_inputbox.rar

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

احي ياسر انت اقترحت فقط 6 خلايا ،وانا اشتغلت على هذا الاساس اذا كنت تريد اكثر انظر الى هذا الملف جدول مقلوب.rar او ربما هذه المعادلة ابسط قليلاً =IF(ROWS($A$1:A1)>COUNTA(A:A),"",INDEX(A:A,COUNTA(A:A)-ROWS($A$1:A1)+1))

أنا أوّل المجيبين بهذه المعادلة (البيانات في العامو د A) وتوضع المعادلة في اي مكان تريد =INDEX($A$1:$A$6,ROWS(A1:$A$6)) و اذا اردتها افقية اكتب هذه(برده اينما تريد) =INDEX($A$1:$A$6,COLUMNS(A1:$F$6))

تم معالجة الامر القاعدة if.rar حل اخر بواسطة الماكرو القاعدة if salim Macro.rar

حرب هذا الملف يمكن غمل ذلك بواسطة الماكرو (Advanced filter) يكون بشكل اسره لكن لعمل ذلك يجب الا تكون هناك خلايا فارغة بالجدول لان هذا يعيق همل الماكرو القاعدة if salim.rar

بغد اذن اخي بن علية هذه المعادلة توضع في الخلية B18 ,تسحب ياسراً و نزولاً =SUMPRODUCT((($B$3:$B$14) ($B$3:$D$14)=$A18)*(($D$3:$D$14) ($B$3:$D$14)=B$17)*$C$3:$C$14) مرفق الملف Kerols Ashraf.rar

يمكن ان تجرب هذا النلف معادلة لحساب عدد كل جنسية مع اهمال التكرار من خلال استخدام Student ID.rar

استعمل هذه المعادلة =(1-$F$9)*$F$5

اختي رشا جربي هذا الملف وادعي لي بالتوفيق مقارنة الجدولين salim.rar

تم التعديل حسب الحاجة add_sheets with Update advanced.rar

جرب هذا الملف add_sheets with Update.rar

يا شاطر انت طلبت بنفسك التقريب الى اقرب غشرة من خلال سؤالك ارجو قراءة السؤال جيداً .....( تحذف الارقام بعد الفارزة وتقرب الناتج الى اقرب عشرة ..كماموضح )