عبدالفتاح في بي اكسيل

شكر اخي hicham2610 على مجهودك ولكن اود ان انبه الى ان المعادلة غير دقيقة حتى اخصائي التغدية لا ينصحون بها لان قد يكون الشخص مليء بالعضلات وبالتالي يعطي وزن زائد انا اعطاني وزن طبيعي ولكن مقارنة بخصري لدي دهون

تفضل على حسب ما فهمت منك Work.xlsm

كود مبدع من بريفيسور مبدع احسنت استادنا سليم

بالنسبة للموديول اعذرني لم انتبه له ولكن الذي اريد ان اعرفه لا تريد فتح ورقة جديدة سواء كانت الخلايا فارغة او ممتلئة ام ماذا

تفضل اخي لقد تم معالجة المشكلة مشكلة الخلية الفارغه.xlsm

تفضل اخي اتمنى ان يكون المطلوب test.xlsx

تفضل اخي هذا بالكود افضل من المعادلات لعله المطلوب Sub FindName() Dim v As String, rngFound As Range v = Application.InputBox(Prompt:="Enter Name or Number Code", Type:=2) If v = "False" Then Exit Sub 'user canceled Set rngFound = Range("A:B").Find(v, , xlValues, xlWhole, 1, 1, 0) If Not rngFound Is Nothing Then Range("C2").Value = rngFound.EntireRow.Range("B1").Value Range("D2").Value = rngFound.EntireRow.Range("A1").Value Else Range("C2:D2").ClearContents MsgBox v, vbExclamation, "No Match Found" End If End Sub مطلوب.xls

انا لا ادري اصرار الاعضاء على المساعدة بدون ارفاق ملف يا سيد جون كما قال الاخ مهند ارفق ملف

عندي ملاحظة لا ادري هذا القائم على هذا الموقع يقوم بحدف بعض التعليقات يبدو انه لايميز متى ما اراد يقوم بحدف التعليقات رغم اني تعليقاتي لايوجد بها تجاوزات ويا ريت يشرحلنا ليش عم بيحدف تعليقاتي وليست المرة الاولى

بارك الله فيك مزيدا من العلم والعطاء

جرب هذا الكود اخي ابو الخضر Sub print_sheet() Range("A4:w47").Select ActiveSheet.PageSetup.PrintArea = "A4:w47" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True End Sub

العفو اخي الحمد لله انه المطلوب

تفضل اخي حتى تعلم كيف تم عملها ادخل على اليوزر فورم واشر على التيكست بوكس الذي تريده ومن قائمة خصائص ابحث عن كلمة lock تجدها false خليها true انظر الى الصورة المرفقة نسخة تجريبية.xlsm

بارك الله فيك على مجهوداتك الطيبة

بارك الله فيك استاد سليم مزيدا من العطاء

السلام عليكم احتاج من خبراء الاكواد بان يقومي لي بحل هذه المشكلة الشرط الذي وضعته هو اذا كانت قيم العمود B اكبر من قيم العمود C يتم تلوين فقط القيم الموجودة في العمود B ولكن ما يحدث يقوم بتلوين بعض القيم التي اقل من العمود C بالاضافة عندما يتم اضافة رقم جديد يتم تلوينه قبل تطبيق الماكرو Sub CompareAndHighlight() Dim rng1 As Range, rng2 As Range, i As Long, j As Long For i = 2 To Sheets("ورقة1").Range("B" & Rows.Count).End(xlUp).Row Set rng1 = Sheets("ورقة1").Range("B" & i) For j = 2 To Sheets("ورقة1").Range("C" & Rows.Count).End(xlUp).Row Set rng2 = Sheets("ورقة1").Range("C" & j) If rng1.Value > rng2.Value Then rng1.Interior.Color = RGB(255, 0, 0) End If Set rng2 = Nothing Next j Set rng1 = Nothing Next i End Sub HIGHLIGHT ‬.xls

كالعادة استاد سليم دائما تبدعنا بحلولك

اخي تنقلت وكتابة داخل الخلايا ولا يوجد اي مشكلة

انا لم افهم هل تريد عد كلمات جامعة الملونة وغير الملونة اما ماذا

تفضل اخي لعله يفي بالغرض countif 1xlsx.xls

اخي الملف محمي عند الدخول الى محرر الاكواد يطلب كلمة المرور وين المشكلة والصورة غير واضحة

احسنت استاد سليم

بعد اذنك استاد سليم هذا ايضا قد يساعده بالكود ويمكن التحكم بالمدى على حسب بياناته merge data1‬.xls

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

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