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

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

السلام عليكم أخي الكريم جرب الكود التالي في حدث المصنف ThisWorkbook Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim R As Integer, G As Integer, B As Integer Randomize R = Int(Rnd() * 256) G = Int(Rnd() * 256) B = Int(Rnd() * 256) Sh.Tab.Color = RGB(R, G, B) End Sub سيعمل الكود فقط عند إضافة ورقة عمل جديدة

الأكواد توضع في محرر الأكواد اضغط ALT + F11 للدخول لمحرر الأكواد من قائمة Insert أدرج موديول جديد Module قم بنسخ الكود من المشاركة السابقة ثم لصقه في الموديول ارجع لورقة الإكسيل واضغط ALT + F8 سيظهر لك مربع حواري فيه اسم الماكرو أو الكود Test انقر على الأمر Run ستظهر النتائج في العمود الرابع

وعليكم السلام جرب الكود التالي حيث سيقوم الكود باستخراج القيم الفريدة أي الغير مكررة ويضعها في العمود الرابع Sub Test() Dim d As Object, rng As Range, c As Range Set d = CreateObject("Scripting.Dictionary") Set rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) For Each c In rng If c.Value <> "" Then d(Val(c.Value)) = Empty Next c Range("D1").Resize(d.Count) = Application.WorksheetFunction.Transpose(d.Keys) End Sub

استخدام System.Collections.ArrayList يلزم أن يكون مسطب لديك النت فريم ورك 3.5 إذا قمت بتسطيب النت فريم ورك واستمرت المشكلة ، قم بإرفاق الملف الذي به المشكلة للإطلاع عليه

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

جرب المعادلة =SUMIF('2'!A4:A7,C3,INDIRECT("'" & E2))

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

كلمة PtrSafe تخص التعامل مع الـ 64 بت .. ممكن ترفق لي الملف الذي يعمل معك ..والصورة التي تم تصديرها؟

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

ربما يساعدك الفيديو التالي إذا كان لديك عدد محدد من كلمات السر https://www.youtube.com/watch?v=CpQVBwLli1k

بارك الله فيك أخي أبو تامر ومشكور على الموضوع المميز في الخلية C268 d يوجد الرقم القومي 26805027215171 وحسب الكود لديك هو رقم صحيح .. والرقم غير صحيح حيث أن الرقم 72 يشير للمحافظة ولا يوجد محافظة بهذا الكود أيضاُ في الخلية C418 الرقم 29103255211471 نفس الملحوظة

المشرف الذي قام بتعديل المشاركة ووضع الحل .. أليس من الجدير ذكر المصدر؟!!!!!!!!!!!!!!!!!!!!!!!!!!

أخي الكريم إليك الكود فيه حل للمشكلة Sub Store_ActiveCell_In_Variable_Go_Back_At_The_End() Dim c As Range Set c = ActiveCell 'Your Macro Application.Goto Range("K35") Application.Wait Now + TimeValue("00:00:03") Application.Goto c End Sub

راسلني على الخاص على حساب الفيس بوك yakh777@yahoo.com

معرفة رقم آخر صف سترشدك لذلك نفترض أنك عرفت رقم آخر صف ووضعته في متغير باسم lastRow ق بالإشارة إلى الخلية بالشكل التالي Range("A" & lastRow). >>>> وعلى حسب الصورة المرفقة ستكون ترجمة ذلك الجزء هو A11

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

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

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

تفضل الملف التالي كنت عملته من فترة على الفيس ..فيه شريط التقدم بخطوات بسيطة وفيه مثالين واحد لو الكود فيه حلقات تكرارية والمثال التاني لو الكود مفيهوش حلقات تكرارية Create VBA Progress Bar UserForm With Step By Step Instructions YasserKhalil Facebook.rar

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

أخي الكريم لا أفهم المشكلة إلى الآن .. طالما أن الفورمات الثلاثة sam1 و sam2 و sam3 نفس الهيكلة ونفس الوظيفة لما لا يتم الاستغناء عن الثلاثة والاكتفاء بفورم واحد فقط

يبدو أن الأخ علي ليس من هواة تعلم الصيد .. إنما يريد أن يتناول سمكة وانتهى الأمر .. وأنا لست من يعطي السمكة .. :)

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

لم أفهم المطلوب ..أي فورم تتحدث عنه وأي كود في الموديول .. وما الاسم الذي غيرته ؟ وما الاسم المطلوب التغيير إليه ... وما هو الغرض من ذلك لأني لا أفهم الغرض من فكرة تغيير اسم الفورم ...