ياسر خليل أبو البراء

أخي الكريم أبو حماده إليك الملف التالي عله يكون المطلوب أو مشابه للمطلوب يمكنك اختيار أوراق العمل لإخفائها أو لإظهارها Hide Unhide Sheet Manager.rar

أقترح عليك إعادة هيكلة الملف بشكل أفضل من الحالي حيث أن هيكلة الملف هامة جداً في تيسير العمل عليه لما لا تقوم بعمل مصنف جديد وتجعل الداتا الأساسية في ورقة عمل ثم يمكنك من خلالها استخراج المخرجات والتقارير إلخ بناءً على الورقة الأساسية (مجرد اقتراح ..) أرجو أن تجد من يقدم لك يد العون

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

أخي الكريم مهند مصمم إنك متغيرش اسم الظهور للغة العربية وأنا وراك والزمن طويــــــــــــــــــــــــل (شفت الزمن طويل أد ايه) وفقنا الله وإياك لما فيه الخير والصلاح للمسلمين تقبل تحياتي

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

أخي الكريم ابن الملك (منقول أمير الإكسيل وخلاص) بارك الله فيك وجزاك الله خيراً على الموضوع الرائع والمفيد للجميع في انتظار المزيد من ابداعاتك .. لي ملحوظة صغيرة حاول تدي الموضوع حقه من حيث التنسيق والتفاصيل وكدا يعني بس خلاص

أخي الكريم بالنسبة لكود الترتيب فهذا أمر بسيط .. ما الداعي لوضع الكود في حدث ورقة العمل ؟؟؟ أفضل أن يكون الكود مستقل أي يتم استدعئه عند الحاجة ... في انتظار رأيك

أخي الكريم لا تنسى أن تغير اسم الظهور للغة العربي جرب التعديل التالي .. تم إضافة كود فرعي لعمل الطلب الجديد ألا وهو فرز البيانات بناءً على عمود الاسم ثم تم استدعاء الإجراء الفرعي داخل الكود الأساسي Sub GetData() Dim Col As Long Dim Data As Variant Dim Dict As Object Dim N As Long Dim Rng As Range Dim Row As Long Dim Table As Variant Dim Wks As Worksheet Dim Addr As String Set Dict = CreateObject("Scripting.Dictionary") Dict.CompareMode = vbTextCompare ReDim Table(1 To 6, 1 To 1) For Each Wks In ThisWorkbook.Worksheets If Wks.Name <> "تصفية حسب الأشهر" Then Set Rng = Wks.Range("A1").CurrentRegion.Columns(2) Set Rng = Intersect(Rng, Rng.Offset(1, 0)).Resize(ColumnSize:=2) Col = Col + 1 Data = Rng.Value Addr = Rng.Address For N = 1 To UBound(Data) If Not Dict.Exists(Data(N, 1)) Then Row = Row + 1 Dict.Add Data(N, 1), Row ReDim Preserve Table(1 To 6, 1 To Row) Table(Col, Row) = Data(N, 2) Else Table(Col, Dict(Data(N, 1))) = Data(N, 2) End If Next N End If Next Wks Table = Application.Transpose(Table) With Worksheets("تصفية حسب الأشهر") .Range("B2").Resize(Dict.Count, 1).Value = Application.Transpose(Dict.Keys) .Range("C2").Resize(UBound(Table, 1), UBound(Table, 2)).Value = Table End With Call SortData End Sub Sub SortData() Dim WS As Worksheet Dim LR As Long Set WS = Sheets("تصفية حسب الأشهر") With WS LR = .Range("A" & Rows.Count).End(xlUp).Row .Range("B1:H" & LR).Sort Key1:=.Range("B1:B" & LR), Order1:=xlAscending, Header:=xlYes End With End Sub تقبل تحياتي

الحمد لله الذي بنعمته تتم الصالحات الحمد لله أخي الحبيب مختار أن من الله علينا بحل المشكلة لا تنسانا بدعوة بظهر الغيب تقبل تحياتي

جرب الملف التالي SaveAsPDFandXPS.rar

الحمد لله الذي رزقني بكم إخواني فالدعاء بظهر الغيب يمنع عني المصائب الكبرى ويجلب لي الراحة النفسية بارك الله فيكم وجزاكم الله خير الجزاء ، ولكم بمثل ما دعوتم إن شاء الله

وعليكم السلام ورحمة الله وبركاته مرورك وردك أبي الغالي أبو يوسف تاج على رأسي بارك الله فيك وجزاك الله كل خير

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

أخي الكريم مهند يرجى تغيير اسم الظهور للغة العربية إليك الملف التالي فيه حل بالكود بدلاً من التعامل مع المعادلات التي تثقل الملف في حالة التعامل مع كم هائل من البيانات أرجو أن يفي بالغرض Sub GetData() Dim Col As Long Dim Data As Variant Dim Dict As Object Dim N As Long Dim Rng As Range Dim Row As Long Dim Table As Variant Dim Wks As Worksheet Dim Addr As String Set Dict = CreateObject("Scripting.Dictionary") Dict.CompareMode = vbTextCompare ReDim Table(1 To 6, 1 To 1) For Each Wks In ThisWorkbook.Worksheets If Wks.Name <> "تصفية حسب الأشهر" Then Set Rng = Wks.Range("A1").CurrentRegion.Columns(2) Set Rng = Intersect(Rng, Rng.Offset(1, 0)).Resize(ColumnSize:=2) Col = Col + 1 Data = Rng.Value Addr = Rng.Address For N = 1 To UBound(Data) If Not Dict.Exists(Data(N, 1)) Then Row = Row + 1 Dict.Add Data(N, 1), Row ReDim Preserve Table(1 To 6, 1 To Row) Table(Col, Row) = Data(N, 2) Else Table(Col, Dict(Data(N, 1))) = Data(N, 2) End If Next N End If Next Wks Table = Application.Transpose(Table) With Worksheets("تصفية حسب الأشهر") .Range("B2").Resize(Dict.Count, 1).Value = Application.Transpose(Dict.Keys) .Range("C2").Resize(UBound(Table, 1), UBound(Table, 2)).Value = Table End With End Sub تقبل تحياتي Grab All Data From All Sheets YasserKhalil.rar

جاري المحاولة لعمل المطلوب ولكن الموضوع معقد ويحتاج لبعض الوقت لمحاولة إنجازه .. الرجاء الصبر إلى أن تكتمل الفكرة

في حالة موافقة الجمع من العمودين A و B .. على أي أساس يتم اختيار العنصر في هذه الحالة ..هل على أساس العمود A أم على أساس العمود B؟ مثال لتفهم سؤالي : الرقم 130 مثلاً .. يوافق الأعداد 10 من (A) و 120 من (B) .. اختيار العنصر سيكون على أساس أي العمودين لأن الرقمين موجودين في العنصرين a و c في هذه الحالة أعتذر عن كثرة الاستفسارات ...لكن لتكن الأمور واضحة حتى تجد المساعدة مني أو من غيري

صراحة لم أفهم المنطق الذي يعمل به الملف في الجدولين A و B (في الأعمدة E و F) ..كيف سيتعرف على الحرف المطلوب ..؟؟ هل سيتم التعامل مع خلية واحدة فقط من الجدول A ويقارن النتائج في الجدول B ..أقصد مثلاً الخلية E4 سيتم اختبار وجمع القيم المقابلة لها في كل خلايا الجدول B ...؟؟ صراحة الموضوع مربك جداً ويحتاج لمزيد من التوضيح اعذرني لقلة فهمي

وعليكم السلام أبا الحسن والحسين جزيت خيراً على تجربة الكود والملف .. بارك الله فيك ونفع بك إخوانك يرجى من الأخ مختار ذكر النسخة التي تعمل عليها .. وإذا كانت النسخة أوفيس 2007 فلتخبرنا ، فقد تكون المشكلة في النسخة لديك تقبلوا تحياتي

أخي الكريم قلم الإكسيل برجاء إرفاق شكل النتائج المتوقعة بمثال أو مثالين لتأكيد فكرة الطلب بالنسبة للمخرجات ستكون في النطاق H45 كبداية لاستخراج الأرقام التي تم تكرارها في الجدولين الموجودين في الصفوف من 34 إلى 42 هذه النقطة واضحة أما بالنسبة للعناصر التي تساوي العدد المكرر على سبيل المثال الرقم 120 أنت كتبت a و b فقط ..بينما العناصر لهذا الرقم هي c و i كما أنني لم أقهم الجملة المكتوبة في الملف "ليس لزاماً أن تكون العناصر المتساوية للمكرر مرتبة يعني ممكن a , c, f, w ---------- يرجى مزيد من التوضيح للتيسير على إخوانك تقبل تحياتي

بصراحة الملف معقد في هيكلته ولذا ستكون هناك صعوبة في التعامل معه يرجى تناول جزئية واحدة للتسهيل على الأخوة الكرام تقديم المساعدة وإلا لن تجد من يقدم لك العون ، ليس تعنتاً - لا سمح الله - ولكن لصعوبة التعامل مع الملف ومحاولة ايجاد حل لمشكلتك ، لذا أنصحك أن تتناول نقطة واحدة في كل مرة كنوع من التركيز تقبل تحياتي

جرب الملف التالي عله يكون المطلوب CF YK.rar

أخي الكريم الشيباني هل الأسماء ستكون متتالية دائماً أم أنه ربما يوجد الاسم في جزء آخر من القائمة ما هو الشرط للجمع خلاف الاسماء ؟؟أم أنك تريد الجمع لكل نطاق صغير حسب وجود الاسم في هذا النطاق؟

وعليكم السلام أبي الحبيب أبو يوسف جزيت خير الجزاء على كلماتك الرقيقة في حقي على الدوام .. أدام الله المحبة والمودة بيننا الأروع دائماً هو اختيارك لكلمات الرد التي نعجز عن الرد عليها بمثلها تقبل تحياتي

ما هي نسخة الأوفيس التي تعمل عليها؟ إذا كانت أوفيس 2007 فأعتقد أنك ستحتاج لإضافة يتم تنصيبها فيما يخص تصدير ملفات PDF أما الإصدارات الأحدث فلا يوجد بها مشكلة والكود مجرب ويعمل جيداً

أخي الكريم الشيباني اطلعت على ملفك ولم أفهم المطلوب بشكل جيد .. ما هي آلية العمل والتنسيق الشرطي المطلوب؟ هل المرفق في الجدول B هو شكل للنتائج المتوقعة ..؟ إذا كان الأمر كذلك ما هي شروط التنسيق الشرطي؟ أم أنك تريد تصميم الجدول B بناءً على الجدول A نرجو الإيضاح .. عموماً على حسب ما فهمت إليك الملف المرفق تم استخدام معادلة بسيطة جداً للتنسيق الشرطي =$E7=$C6 حيث تم الاعتماد على الجدول A في جعل الخلية الملونة تكون باللون الأبيض من خلال تحقق الشرط أرجو أن يكون المطلوب CF YK.rar