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

أخي الكريم أبو حنف بص وركز .. مش هنا لا هنا .. خليك معايا .. متوهش مني شايف السطر دا في الكود Rng.AutoFilter Field:=1, Criteria1:="=" & TextBox1.Text & "*" شايف علامة النجمة اللي في الآخر بين أقواس تنصيص دي معناها أي عدد من الحروف بعد اللي مكتوب في النص عشان تحقق طلبك هتعمل علامة نجمة تانية زيها بين أقواس تنصيص قبل النص في صندوق النص وعشان متتعبش يكون السطر بالشكل ده Rng.AutoFilter Field:=1, Criteria1:="=" & "*" & TextBox1.Text & "*" جرب بنفسك وشوف النتائج تقبل تحياتي

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

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

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

أخي الكريم عبد الله فاروق هل قمت بتمكين الماكرو لديك ..لأني ملاحظ في الصورة المرفقة رسالة بها كلمة "Enable Content" ..؟ أمر آخر أعتقد أن الملف بحاجة لتنصيب برنامج Adobe Professional أي النسخة الكاملة من البرنامج التي يمكن من خلالها تحويل ملفات الـ PDF ..هذا والله أعلم .. تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته إخواني واحبابي في الله منذ ما يقرب من الستة أشهر وأنا أبحث عن كود أو دالة لايجاد الرقم التسلسلي للوحة الأم ، حيث يمكن استخدام الرقم التسلسلي لربطه بالمصنف كنوع من أنواع الحماية ... بحثت كثيراً وتجولت كثيراً ولم أيأس إلى أن وفقني الله عزوجل للحصول على دالة معرفة بعد معاناة كبيرة جداً في البحث .. وها أنا أقدمها لكم على طبق من ذهب .. ها هي الدالة المعرفة Function MBSerialNumber(Optional strComputer As String = ".") As String Dim V, vName, vUUID With GetObject("winmgmts:\\" & strComputer & "\root\cimv2") For Each V In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48) vName = V.Name vUUID = V.UUID Next V End With MBSerialNumber = vName & ", " & vUUID End Function ويمكن استخدامها من خلال ورقة العمل أو من خلال إجراء فرعي آخر بالنسبة لورقة العمل في أي خلية ضع المعادلة التالية =MBSerialNumber() وأخيراً إليكم الملف المرفق .. (يمكنك عدم التحميل ونسخ الدالة المقدمة ووضعها في موديول ... ولكن إذا أعجبك الموضوع فلا تبخل بالتحميل ، ولن يكلفك التحميل سوى دقيقتين فقط .. ولا تنسى أنني ظللت أبحث لمدة ستة أشهر) حمل الملف من هنا تقبلوا وافر تقديري واحترامي

وعليكم السلام أخي الكريم أبو عبد الواجد إليك الكود التالي عله يفي بالغرض يتم تجميع الكميات من أوراق العمل بعد ورقة العمل المسماة "العناوين" وتستثنى الاوراق ما قبل ذلك حمل الكود من هنا تقبل تحياتي

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

الموضوع مختلف في المشاركة الأخيرة حيث يتم التجميع من عدة أوراق لورقة واحدة ولكن هناك العكس تماماً

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

اخي الكريم عزيز عرابي حمل الكود من هنا

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

أخي الكريم جرب التالي استبدل الرقم 700 بالشكل التالي sCont = Sheets("بيانات المدرسة").Range("S1").Value

أخي الكريم محي الدين جرب الكود التالي عله يفي بالغرض Sub UniqueByDictionary() Dim myData(), Temp As Variant Dim Obj As Object, I As Long, intCtr As Long Dim X As Long, Y As Long X = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row Y = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row Sheets("Sheet2").Rows("2:" & X).Insert myData = Evaluate("IF(ROW(2:" & X + Y & ")<=" & X & ",Sheet1!A2:A" & X & ",Sheet2!A2:A" & X + Y & ")") Sheets("Sheet2").Rows("2:" & X).Delete Set Obj = CreateObject("Scripting.Dictionary") For I = 1 To UBound(myData) - 1 Obj(myData(I, 1) & "") = "" Next I Temp = Obj.Keys Sheet3.Range("A2").Resize(Obj.Count, 1) = Application.Transpose(Temp) End Sub تقبل تحياتي

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

أخي الحبيب محمد الريفي نشتاق لموضوعاتك الجديدة بشكل دائم ولتواجدك فيما بيننا لدي دالة معرفة تقوم بالأمر ولكني سأكتفي بهذه المعادلة البسيطة لتؤدي الغرض =SUBSTITUTE(TRIM(A1&" "&B1&" "&C1&" "&D1&" "&E1)," ","/") تقبل تحياتي

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

جزيت خيراً أخي الكريم حراثي على دعواتك الطيبة المباركة ، ولك بمثل إن شاء الله

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

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

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

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

الحمد لله أن تم المطلوب على خير أخي الكريم أبو ذكري وجزيت خيراً بمثل ما دعوت لي وزيادة تقبل تحياتي

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