Ali Mohamed Ali

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

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

وعليكم السلام-لك ما طلبت جمع يوم + مورد1.xlsx

تفضل تم المطلوب بمعادلات المصفوفة خلاصه1.xlsx

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

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

تفضل يمكنك جعل المعادلة هكذا =IF(C1=1,RIGHT(A1)+LEFT(A1),"") 1.xlsx

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

وعليكم السلام-طبعا يمكنك ذلك بهذه المعادلة =IFERROR(VLOOKUP([@[رقم الايصال الاكتروني]],Table1,2,0),"") sheet1.xlsx sheet1.xlsx

بارك الله فيك استاذ محمد وزادك الله من فضله

بارك الله فيك استاذ وجيه بالطبع هدية مقبولة وزادك الله من فضلك ... وكل عام وانتم بخير

عليك بإستخدام هذه المعادلة =IFERROR(IF(INDEX($A$2:$A$7,MATCH(E2,$B$2:$B$7,0))<>"",1,""),"") نسخة 1من الوقت الحالى.xlsm

المشكلة لديك عليك بتعديل وضبط اللغة العربية من لوحة التحكم (Cotrol Panel) على الرغم انه تم تناول هذا الموضوع كثيراً-تفضل تعديل وضبط كود التفقيط

بارك الله فيك وزادك الله من فضله

وعليكم السلام-تفضل يمكن هذا بوضع هذه المعادلة داخل التنسيقات الشرطية كما بالصورة =COUNTIFS($B$2:$B$5000,$B2,$C$2:$C$5000,$C2,$D$2:$D$5000,$D2,$E$2:$E$5000,$E2)>1 تنسيق لمعرف بيانات الصف متكررة1.xlsx

وعليكم السلام ولما لا تستخدم خاصية البحث بالمنتدى فبه طلبك تحديد أسماء رؤوس الأعمدة في Listbox فكما ترى بنفسك تم التعديل على الملف الأصلى فى عدد 2 فورم برنامج ادارة الاحياء.rar

تفضل يمكنك هذا بهذه المعادلة =IFERROR(INDEX($A$2:$A$7,MATCH(E2,$B$2:$B$7,0)),"") الوقت الحالى.xlsm

وعليكم السلام-كان عليك رفع الملف نفسه ولكن كل ما عليك فعله ان تحدد العمود الذى تريد ضبط الأرقام بداخله وتقوم بعد ذلك بالضغط بيمين الماوس ثم تختار Format Cells وبعد ذلك تضغط على قائمة Number وتختار Custom ثم بعد ذلك تضغط على 0 ثم Ok وذلك كما بالصورة

بارك الله فيك وجعل الله هذا العمل فى ميزان حسناتك ان شاء الله

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

أعتقد استاذ محمد انه يقصد هذا عند الضغط على قائمة File مثلاً فى الإكسيل ستظهر هذه النافذة كما بالصورة وتظهر بها قائمة New أو يمكنك الضغط على مفتاحى Ctrl+N لفتح ملف جديد على الإكسيل ان لم تتمكن من حل المشكلة هكذا فعليك بتتبع الخطوات وتنفيذها كما بالرابط التالى : How to fix Excel 2016 Opening Blank Workbook Issue أو هذا الرابط ايضا Fix Excel 2016 opening a blank document

بارك الله فيكم جميعا كلها حلول ممتازة كل عام وأنتم بخير

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

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

وذلك بوضح هذه الأكواد بحدذ الصفحة Public oldval As Double Sub KH_TEST() oldval = 0 End Sub Private Sub Worksheet_Change(ByVal Target As Range) If [x1] = False Then GoTo 1 If Not Intersect(Target, Range("C3:m101")) Is Nothing Then Application.EnableEvents = False If IsNumeric(Target) Then _ Target = oldval + Target Else Target = oldval Application.EnableEvents = True End If 1 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [x1] = False Then GoTo 1 If Not Intersect(Target, Range("C3:m101")) Is Nothing Then Application.EnableEvents = False If IsNumeric(Target) Then oldval = Target Else oldval = 0 Application.EnableEvents = True End If 1 End Sub الصلاة١.xlsm