أبوســـارة1973

أبو عبدالله السلام عليكم عمل جبار ورائع أعمالك دائماً متميزة ولكن عندي ملاحظة بسيطة وهي لا تقلل من روعة هذا العمل: ( عند تحديد خلايا معينة من ضمن النطاق المحمي بواسطة الفأرة وعمل حذف المحتويات أو مسح فلا يطلب زمز الحماية بمعنى أنه في هذه الحالة يكون غير محمي من الحذف ) أخوك أبو سارة

تفضل جرب الملف المرفق PASSWORD.rar

الأستاذ : خبور خير الأستاذ : عادل جزاتكما الله خير الجزاء وآسف على تأخري في تقديم الشكر لكما

أخي الفاضل : halwim الفضل يعود لله اولاً ثم للقائمين على هذا المنتدى المبارك نعم يمكن ذلك عن طريق استبدال علامة الضرب بعلامة القسمة ( أو أي علامة أخرى بحسب الطلب )في الكود اضغط على ( Alt) و (F11) في نفس الوقت وينفتح لك الكود من vba ويعدل عليه . الطلب الاول أحاول معرفة السبب ، انتظرني لحينما أرف السبب إذا كان أحد الأخوان لديه الجواب فليساعدنا كسبا للوقت . أخوك أبوسارة

أخي الأستاذ سالم شباني تفضل طلبك في الملف المرفق تم تعديل الملف بحسب رغبتك أخوك أبو سارة ناتج عدة خلايا في خلية واحدة2.rar

ألف شكر لك أستاذي العزيز خبور كنت واثقاً بأنك من سيساعدني في تعديل هذا الكود ولكن اسمح لي بأن أطلب منك أكثر فلقد لاحظت ما يلي : 1- أن هذا الكود يقوم بتلوين كل الخلايا التي تتساوى في قيمهما ماعدا الخلية التي أدخلت أولاً .(مطلوب تلوينا أيضا ) 2- عند حذف أو تغير قيمة الخلية التي أدخلت أولاً فإنه لا يقوم بإعادة الخلايا( التي أدخلت بعد ثانياأو ثالثاً أو ...) لوضعها الطبيعي ( بدون تلوين ). أي لو أدخلنا في الخلية a10 رقم 1 ثم أدخلنا في الخلية a20 رقم 1 فيقوم بتلوين الخلية رقم a20 فقط ولا يلون الخلية a10 ولو حذفنا الرقم 1 أو بدلناه إلى الرقم 11 فتبقى الخلية رقم a20 ملونة والملطلوب هنا حذف التلوين وإعادتها لوضعها الطبيعي . مع خالص شكري واعذرني إذا أثقلت عليك بعض الشيء أخوك أبو سارة

الحمد لله على السلامة ياوائل سلامي نعم العود حميد إن شاء الله

تفضلوا الملف المرفق وحقيقة فهذا الكود الموجود في الملف المرفق بحسب المطلوب قد استفدته من ملف استاذنا العزيز خبور خير من موضوع (بحث بفورم مع نسخ البيانات) ولقد قمت بتعديله ليناسب المطلوب كل ما عليك هو الضغط بالفأرة دبل لتحصل على المطلوب في الخلية A26 مع تحياتي أبو سارة ناتج عدة خلايا في خلية واحدة.rar

من يتفضل علينا بتعديل هذا الكود أملي في الخبراء والمشرفين كبير وثقتي فيهم تامة

جمعة مباركة عليكم جميعاً في كل يوم عمل متألق يا عملاق .

Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each cell In Range("n8:v80") If cell.Value = "" Then cell.Interior.ColorIndex = xlNone End If If cell.Value <> "" Then Select Case cell.Value case cell = cell then cell.Interior.ColorIndex = 4 End Select End If Next End Sub ------------------------------------------------------ هذا كود يقوم بتلوين الخلية في حالة إدخال قيمة متساوية مع قيمة خلية أخرى في نفس العمود من المدى المحدد(n8:v80) ولكن يوجد خطأ في صياغة الكود بالسطر التاسع حيث أريد أن أصيغ هذا الشرط المذكور أعلاه ( تساوي الخلية مع خلية أخرى من نفس العمود ) فمن يعدل الكود جزاه الله عني خير الجزاء ؟

وينك يا الغالي ؟ من طول الغيبات جاء بالغنائم . وتسلم على هذا العمل الأكثر من رائع

مرة أخرى للرفع

أعجز عن شكرك أخي خبور

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("C17:C" & Rows.Count)) Is Nothing Then Cancel = True form_Cm_Search.Show 0 End If End Sub ---------------------------------------------------------------------------------- هذا الكود كما يتضح يظهر الفورم عند الضغط مكرر على أي خلية في العمود C ابتداء من الخلية C17 ولكني احتاج أن تظهر الفورم فقط عند الضغط على خلية واحدة ولتكن مثلاً C17 فقمت بتغير الكود كالآتي : private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, CELL("C17" & Rows.Count)) Is Nothing Then Cancel = True form_Cm_Search.Show 0 End If End Sub ولكن لم تفلح محاولتي ، فما هو الخطأ في هذا الكود للحالة التي ذكرتها ؟

أخي الأستاذ محمد ( MAS123) الحل الثاني هو كالآتي : 1- تملأ القارورة الصغيرة ثم تفرغها في الكبيرة. 2- تملأ القارورة الصغيرة ثم تفرغها في الكبيرة، يبقى في الصغيرة 3 لتر ثم تفرغ ما في الكبيرة 3- تفرغ 3 لتر من الصغيرة في الكبيرة . 4- تملأ القارورة الصغيرة ثم تفرغها في الكيرة فيبقى لتر واحد في الصغيرة ثم فرغ ما في الكبيرة 5- تفرغ 1 لتر من الصغيرة في الكبيرة 6- تملأ الصغيرة ثم تفرغها في الكبيرة ( 5+1=6) وهناك حلول أخرى ؟ فكروا فيها

تسلم يديك يازين المنتدى

للرفع ( نظراً لحاجتي الماسة والضرورية )

للرفع ( نظراً لحاجتي الماسة والضرورية )

up

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

للرفع

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

ارفق الملف

شرنقة تفضلوا الملف بعد تعديل الكود فقد أصبح التاريخ الميلادي يعمل بكفاءة 100 % جمعية الاخوان.rar