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

جرب الكود بهذا الشكل أخي الكريم طائع ويرجى التركيز على طلب واحد فقط في كل مرة لكي لا أتشتت .. لا أحب كثرة الطلبات في آنٍ واحد تناول نقطة نقطة حتى إذا انتهيت من نقطة انتقلت لأخرى وهكذا Sub Rasd_Secret() Dim LR As Long Columns("D:F").EntireColumn.Hidden = False With Range("C1", Range("C" & Rows.Count).End(xlUp)) LR = Evaluate("MAX(IF((" & .Address & "<>"""")*(" & .Address & "<>0),ROW(" & .Address & ")))") End With If LR < 9 Then LR = 9 Else LR = LR Range("B9:R" & LR).Sort Key1:=Range("F9:F" & LR), Order1:=xlAscending, Header:=xlNo Columns("B:D").EntireColumn.Hidden = True End Sub

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

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

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

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

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

أخي الحبيب علي السحيب .. لقد ذهلت عندما رأيت مشاركتك ..طننت في البداية أن الأخ أحمد قام برفع الموضوع ولكن لما قرأت كلامه دهشت وفرحت عوداً حميداً معلمي الغالي علي السحيب .. بارك الله لنا فيك ولا حرمنا الله منك أبداً تقبل وافر تقديري وحبي واحترامي

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

الأخ الحبيب عبد العزيز البسكري جزيت خيراً على مرورك الكريم وعلى دعوتك الطيبة الأخ العزيز أبو قاسم مشكور على مرورك العطر .. وكلماتك الطيبة الرقيقة تقبلوا وافر تقديري واحترامي

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

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله الموضوع ليس موضوع علمي إنما هو تسويق لشغل للمدارس الثانوية .. عايز نلم الجرشينات ونحاول نعوض الوقت اللي بقضيه في تعلم البرمجة خدمة عمل كشوف 150 د ثانوية عامة ، حيث يتم تصدير البيانات من على الموقع إلى ملف إكسيل جاهز للطباعة وقابل للتعديل .. الخدمة مقابل 10 جنيهات فقط (يعني يدوب حق كارت شحن ... يا بلاااااااااااااااااااااااش ) مرفق صورة للشكل المخرجات التي سيتم تسليمها لمن أراد الخدمة التسليم يتم في خلال نصف ساعة فقط .. عن طريق الإيميل أو الفيس بوك أو أي وسيلة أخرى مناسبة للعميل للاتصال : Facebook : yakh777@yahoo.com Mobile : 01281054545 وتقبلوا وافر تقديري واحترامي والسلام عليكم ورحمة الله وبركاته

ممكن ترفق الملفين وتحدد بالضبط النطاق المطلوب نسخه وأين تريد أن يتم نسخه ..

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

أخي الكريم جرب الكود التالي Sub Test() Dim A, I As Long, II As Long A = Sheets("ALL").Cells(1).CurrentRegion.Value With CreateObject("Scripting.Dictionary") For I = 1 To UBound(A, 1) If Not .exists(A(I, 1)) Then .Item(A(I, 1)) = .Count + 1 For II = 1 To UBound(A, 2) A(.Count, II) = A(I, II) Next Else If A(I, 3) > A(.Item(A(I, 1)), 3) Then For II = 2 To UBound(A, 2) A(.Item(A(I, 1)), II) = A(I, II) Next II ElseIf A(I, 3) = A(.Item(A(I, 1)), 3) Then A(.Item(A(I, 1)), 2) = Application.Min(A(.Item(A(I, 1)), 2), A(I, 2)) End If End If Next I = .Count End With Sheets("DATA").Cells(1).Resize(I, UBound(A, 2)).Value = A End Sub تقبل تحياتي

ماذا تقصد أخي الكريم بلون معين ؟ هل تريد تلوين كل سطر بالليست بوكس بلون معين أم تلوين الأعلى تكرراراً فقط ... ما هو مصدر الكود أخي الكريم ابو قاسم ..يبدو لي أنه من أعمال الأخ العزيز العيدروس !! هل كلامي صحيح؟

كدا أنا أزعل يلا فلاحجي ..جرب التعديل الأول وبعدين شوف هل سيكون التركيز على العموين بالكامل أم لا ...........!!! التركيز في العمودين سببه إنك استخدمت الكلمة Select .. جرب الكود مرة تانية بعد التخلص من كلمة Select وعمل اللازم وشوف التركيز هيوصلك لفين يا نور العين

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

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

الأخت الفاضلة رشا إليك كود يقوم بإنشاء ورقة عمل جديدة ويضع فيها كل الروابط الخارجية المرتبطة بالمصنف Sub ListExternalLinks() Dim WB As Workbook Dim Link, xIndex As Long Set WB = Application.ActiveWorkbook If Not IsEmpty(WB.LinkSources(xlExcelLinks)) Then WB.Sheets.Add xIndex = 1 For Each Link In WB.LinkSources(xlExcelLinks) Application.ActiveSheet.Cells(xIndex, 1).Value = Link xIndex = xIndex + 1 Next Link End If Columns(1).AutoFit End Sub وإليكي كود يقوم بكسر كل الروابط الخارجية الموجودة داخل المصنف ولكن راعي انه سيتم تحويل القيم المرتبطة بهذه المصنفات إلى قيم اي أن الارتباط سيفقد مع المصنف الآخر Sub BreakExternalLinks() Dim ExternalLinks As Variant Dim WB As Workbook Dim X As Long Set WB = ActiveWorkbook ExternalLinks = WB.LinkSources(Type:=xlLinkTypeExcelLinks) For X = 1 To UBound(ExternalLinks) WB.BreakLink Name:=ExternalLinks(X), Type:=xlLinkTypeExcelLinks Next X End Sub تقبلي تحياتي

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

ليك وحشة والله أخي الحبيب علاء رسلان يا ريت لو فيه حد من الأخوة يعرف يتواصل معاه يطمنا عليه ويبلغه سلامي الحار ..

جزيت خيراً أخي الغالي رجب جاويش على الكود الرائع .. أعتقد الثاني أفضل حيث يصلح لكلا الحالتين تقبل تحياتي

لم يكتمل التعديل بعد .. يا فرحة ما تمت خدها أبو البراء وطااااااااار Columns("D:F").Select Selection.EntireColumn.Hidden = False ما هذا ألم تتعلم الدرس الفائت؟ وهذا السطر ما الفائدة منه ؟ Range("F9").Select ركز يا فلاحجي

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