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

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

أخي الغالي محمد وجزيت خيراً بمثل ما دعوت وزيادة كنت بتقطع في فروتي مع مين يا ترى ؟؟!!! ..

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

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

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

بالإمكانيات دي الإكسيل ضعيف .. يبقا أكيد فيه مشكلة بنسخة الويندوز ..او نسخة الأوفيس المنصبة أنصحك بويندوز 10 64 بت .. عشان تستغل كافة إمكانيات جهازك وبنسخة أوفيس 2013 64 بت (أو اشتغل على 2016 64 بت ... نسخة جميلة جداً)

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

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

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

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

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

أخي الكريم متخافش من المحاولة أبداً اتجرأ ... رقم الإصدار بيختلف من نسخة لأخرى .. إنت هتلاقي عندك رقم واحد حسب النسخة المثبتة لديك ... يعني خلاصة كلامي مفيش مشكلة من رقم الإصدار في الـ Reference ..المهم تكون نفس المكتبة الخاصة بالورد Microsoft Word .... Object Library

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

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

أخي الحبيب طلعت لا داعي للاعتذار ..أردت فقط التنويه ..لا أكثر ولا أقل .. بالنسبة للمشكلة .. فإن سببها أنني اعتمدت في المرة الأولى على دالة معرفة لاستخراج العناوين التي تطابق عملية البحث .. واكتشفت بعد طرح الموضوع في منتدى أجنبي أن المخرجات من هذه الدالة يجب ألا تزيد عن 255 حرف ... فالعناوين للـ 46 فاتورة يتعدي عدد حروفها 255 .. ولذلك لم تظهر غير 32 فاتورة كما ذكرت .. العنوان بيكون بهذا الشكل $C$243 على سبيل المثال (طول العنوان بهذا الشكل يساوي 6) وبالتالي عند وصول الخلايا للعنوان مثلاً $C$1945 يكون طول العنوان (7) المهم أن الدالة تكتفي بما يقارب 255 حرف وبقية العناوين لا يتم التعامل معها .. ظهرت المشكلة معك بعد كبر حجم الملف ... أتمنى أن يكون الكود الجديد وافي بالغرض تقبل تحياتي

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

أخي الغالي المتميز ياسر البنا بارك الله فيك وجزيت خيراً على هذا الإبداع واصل بلا فواصل

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

الله ينور عليك أخي الغالي ياسر العربي مجهود رائع ... بالنسبة لـ 64 بت يمكن نسخ الملفات لكلا المسارين لأنني واجهت بعض رسائل الخطأ عند نسخ الملفات لمسار الـ 64 حاول تشوف حل لموضوع زر الامر اللي قلت لك عليه .. مش بيظهر البرنامج بشكل مناسب عند الضغط على هذا الزر "بحث وإدخال"

أخي الكريم نور وحيد جرب الكود التالي عله يفي بالغرض Sub Summary() Dim I As Long, J As Long, M As Long, N As Long, LR As Long, V, ZUM Dim C As Collection Set C = New Collection Application.ScreenUpdating = False On Error Resume Next For I = 3 To Rows.Count V = Cells(I, 1).Value If V = "" Then N = I - 1 Exit For End If C.Add V, CStr(V) Next I On Error GoTo 0 M = 3 For I = 1 To C.Count Cells(M, 5) = C.Item(I) ZUM = 0 For J = 3 To N If Cells(J, 1).Value = Cells(M, 5).Value Then ZUM = ZUM + Cells(J, 2).Value End If Next J Cells(M, 6).Value = ZUM M = M + 1 Next I LR = Range("E" & Rows.Count).End(xlUp).Row Range("E3:F" & LR).Sort Key1:=Range("E1:E" & LR), Order1:=xlAscending, Header:=xlNo Application.ScreenUpdating = True End Sub وإليك الملف المرفق الخاص بك Unique Items With SUM & Sort YasserKhalil.rar

Sub GrabBills() Dim rFind As Range, sAddr As String, Rng As Range, RngDel As Range, SH As Worksheet, R As Range, WS As Worksheet, VarList Set SH = Sheets("استدعاء فاتورة") Set WS = Sheets("فاتورة") VarList = SH.Range("A3").Value Application.ScreenUpdating = False SH.UsedRange.Offset(3).Clear If IsEmpty(SH.Range("A3")) Then MsgBox "أدخل كود العميل المطلوب استدعاء فواتيره", 64: Exit Sub With WS.Columns(3) Set rFind = .Find(VarList, LookIn:=xlValues, LookAt:=xlWhole) If IsEmpty(SH.Range("C3")) Then If Not rFind Is Nothing Then sAddr = rFind.Address Set RngDel = rFind.CurrentRegion Do Set RngDel = Union(RngDel, rFind.CurrentRegion) Set rFind = .FindNext(rFind) Loop While rFind.Address <> sAddr sAddr = "" End If Else If Not rFind Is Nothing Then sAddr = rFind.Address Do If Month(rFind.Offset(-3, -1)) = SH.Range("C3") Then If RngDel Is Nothing Then Set RngDel = rFind.CurrentRegion Else Set RngDel = Union(RngDel, rFind.CurrentRegion) End If End If Set rFind = .FindNext(rFind) Loop While rFind.Address <> sAddr sAddr = "" End If End If End With If Not RngDel Is Nothing Then RngDel.Copy SH.Range("A5") End If Set rFind = Nothing Set RngDel = Nothing Set SH = Nothing Application.ScreenUpdating = True End Sub أخي الكريم طارق طلعت يرجى عدم توجيه الموضوع لعضو بعينه ..لما يمنع الخير عن نفسك ..فلربما كان لدى أحد الأخوة الأفاضل بالمنتدى حل أفضل من الذي قد أقدمه ..أو لربما أعجز عن تقديم المساعدة لأي سبب كان عموماً ..إليك الكود التالي وإن شاء الله يفي بالغرض ويعمل مع كود العميل ومع الشهر إذا أردت التعامل مع شهر معين في الخلية C3 Grab Bills YasserKhalil.rar

أو يمكن استخدام المعادلة بهذا الشكل =(C1-(A1+B1))*LOOKUP(SUM(A1:B1),{0,250,500,1000},{6,6.5,7,0}%)

أخي الكريم ياسر راعي إن كل واحد بيشتغل على نسخة مختلفة يعني فيه واحد قديم زي حالاتك جرب الويندوز إكس بي وفيه ناس سفن وفيه ناس 8 وفيه ناس 10 .. وغير كدا وكدا فيه 32 بت و 64 بت (يبقا المجموع يساوي 96 بت) ربنا يوفقك

=(C1-(A1+B1))*IF(SUM(A1:B1)<250,6%,IF(AND(SUM(A1:B1)>=250,SUM(A1:B1)<500),6.5%,IF(AND(SUM(A1:B1)>=500,SUM(A1:B1)<1000),7%))) جرب المعادلة بهذا الشكل

بارك الله فيك أخي الحبيب ياسر إليك أول رسالة خطأ طبعاً حاولت أحلها إني أسجل الملف الموجود في الرسالة عن طريق السطر التالي Regsvr32 ثم مسار الملف بعد وضعه في مجلد الـ system32 ‪Regsvr32 C:\Windows\System32\COMDLG32.OCX ونفس المشكلة هتقابلكم مع ملف تاني هتكرروا نفس الخطوات وهيشتغ معاكم إن شا الله بالنسبة للبرنامج لما فتح ونقرت على زر الأمر "بحث وإدخال " لم أستطع تحريك النافذة لرؤية الجانب الأيمن بشكل واضح