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

ربنا يخليك يا عبد الله فاروق جزيت خيراً على هذه الكلمات الرقيقة ، والحمد لله إني حببتك في شيء مفيد إن شاء الله .. وننتظر منك الإفادة للجميع بإذن المولى تقبل تحياتي

جرب الكود التالي Sub ClearIfFound() Dim Cell As Range Dim blFound As Boolean Application.ScreenUpdating = False For Each Cell In Range("A7:A" & Cells(Rows.Count, 1).End(xlUp).Row) blFound = Application.WorksheetFunction.CountIf(Range("L1:U5"), Cell.Value) If blFound = True Then Cell.EntireRow.ClearContents Next Cell Application.ScreenUpdating = True End Sub

أخي الحبيب (مين قالك إني مضايق) أنا لم أتضايق أبداً منك والله .. يبدو إن كلامي هو اللي بيبان جااااااااارج في كتير من الأحيان ، ودا سببه إني بحاول يكون فيها نظام مش أكتر من كدا .. وأنا آسف يا أخي فؤاد إذا كنت ضايقتك .. بالنسبة لطلبك ..إنت عايز الاسم يفضل موجود بس يكون ثابت مش معادلة ؟ ، طيب بالنسبة لباقي البيانات مفيش مشكلة إنها تكون فارغة كما أسلفنا في الحل ..!!

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

أخي الفاضل أبو عاصم عندما يطول الموضوع ولا تجد استجابة يفضل إرفاق ملف آخر غير الملف الأول فيه توضيح وتفصيل أكثر ..قد تكون الإجابة في كثير من الأحيان بسيطة جداً ولكن المهم هو الإيضاح وعدم الدخول في تفاصيل العمل (قد لا أفهم أنا أو غيري المسميات الوظيفية الخاصة بك ) فوضح بكلام عادي جدا يفهمه الجميع تقبل تحياتي

الأخت الفاضلة أم ريان أهلا بك في المنتدى بين إخوانك يمكن البدء من هذا الموضوع كبداية http://www.officena.net/ib/index.php?showtopic=56941 وإن شاء الله تتابعي موضوعات المنتدى والحلول التي تقدم من قبل الأعضاء لتستفيدي

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

أخي ...أنا عن نفسي لما بلاقي أكتر من طلب في موضوع واحد بلاقي نفسي مش بكمل قراءة الموضوع ..يرجى مراجعة التوجيهات http://www.officena.net/ib/index.php?showtopic=60147 راجع التوجيه الثامن تقبل تحياتي

بارك الله فيكم إخواني .. إليكم الملف المرفق به مجموعة خطوط والتطبيق عليها Fonts Like Hand-Writing.rar

تفضل أخي الكريم أكرم Private Sub CommandButton1_Click() TextBox1.Text = Application.WorksheetFunction.Trim(TextBox1.Text) End Sub

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

جرب الكود التالي .. Sub CopySheet() Dim strName As String, SH As Worksheet strName = Trim(Sheet1.Range("A8").Value) For Each SH In Worksheets If SH.Name = strName Then Exit Sub Next SH Sheet1.Copy after:=Sheets(Sheets.Count) Sheets("Sheet1 (2)").Name = strName With Sheets(strName) .Shapes("Button 1").Delete .Cells.SpecialCells(xlCellTypeFormulas).ClearContents End With End Sub ويا حبذا لما ترفق ملف يكون بدون حماية

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

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

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

أخي هل جربت الملف جيداً ..؟؟ الشرط في الخلية O1 قم بتغيير القيمة واضغط زر الأمر Run سيقوم بجلب البيانات الخاصة بالمخزن الموجود اسمه في الخلية المذكورة !!!!!!!

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

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

بارك الله فيك أخي الغالي سليم .. ويجدر الإشارة أن هناك موضوع تم طرحه بنفس الخصوص من فترة على هذا الرابط http://www.officena.net/ib/index.php?showtopic=59721&hl= تقبل تحياتي

نعم يمكن ذلك .. لكن مع الخلايا المدمجة لابد أن تكون بنفس التنسيق تماماً ..

يرجى إرفاق ملف لفهم المطلوب ..هذا ما عنيته

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

هذا خطأ في المعادلة ..في اسم الدالة على أغلب الظن ..

الملف يعمل معي بشكل جيد .. ما هي نسخة الأفيس التي تعمل بها؟ قد تكون المشكلة في نسخة الأوفيس لديك

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