سليم حاصبيا

استعمل هذا الكود و عدّل علية حسب ما ينابسبك Sub rep3() Dim rngunion As Range Sheet2.Cells.ClearContents Sheet1.Select lr = Cells(Rows.Count, 1).End(xlUp).Row lc = Cells(1, Columns.Count).End(xlToLeft).Column For i = 1 To lr For j = 1 To lc If Cells(i, j) = 3 Then If rngunion Is Nothing Then Set rngunion = Range(Cells(i, 1), Cells(i, lc)) Else Set rngunion = Union(rngunion, Range(Cells(i, 1), Cells(i, lc))) End If End If Next Next rngunion.Select rngunion.Copy Destination:=Sheets("Sheet2").Range("A1") 'Application.CutCopyMode = False Sheet1.Activate Range("A1").Select End Sub انه يقوم بتجميع الصفوف التي تحتوي العدد 3 و يرحلها الى الورقة 2 بسرعة " "و انت ستقوم باستبدال العدد 3 بكلمة "لم يسدد" بين سأرسل لك ملف مع الكود لتعرف كيف يعمل

السلام عليكم اخي أو ايمان يمكنك عمل ذلك من خلال الكود التالي: () Sub delete_macro Dim x as object Set x=application.vbe.activevbproject.vbcomponents ("x.remove vbcomponents:=x.item(“textmodule end sub textmodule هو اسم الموديل المراد حذفه

اليك الحل file 1.rar

صديقي ربما انت تستعمل دالة ()now = لهاذ الأمر عليك استعمال دالة ()today =

السلام عليكم اخواني في المنتدى كما وعدتكم /لائحة منسدلة جديدة (أحضّر لكم المزيد) لائحة منسدلة عامودية.rar

السلام عليكم و رحمة الله صديقي لم افهم ما المطلوب ولماذا هذا التكرار الغريب في الكود حمّل الملف لأعرف كيف التعامل معه

سأجاول ان احل هذه المشكلة لكن حاول ان تكتب بدل السطر الاول في الكود هذه العبارة (Private Sub Worksheet_Change(ByVal Target As Range

فهمت عليم ماذا تقصد و اليك الكود المصنف11.rar

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

اخي في مثل هذه الحالة لا بد من وجود شيء ثابت نستطيع ان نعتمد عليه/ .......فإمّا الاسماء ثلاثية فقط أو رباعية فقط (الاسماء المركبة بدون فواصل عبدالله تكتب هكذا لا(عبد الله "/" التواريخ تفصل "-" أو

الحل مرفق عسى ان ينال اعجابك فقط انقل المعادلات الى الملف عندك فصل النص الى جدول (جوبلهاني.rar

الف مبروك اخي وليد وان شاء الله الى مزيد من التقدم والنجاح

حمّلي الملف يا اختي حتى نعرف كيف التعامل معه

السلام عليكم اليك الحل بأبسط الأمور اليك ما يجب عمله 1- اضغط على file 2- Option>>> advanced 3- في الخانة a fter pressing enter ,move selection 4- اختر ما تراه مناسباً

للعمل على الملف يجب ازلة التشفير

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

من جديد انا معكم لقد كانت المشكلة في الكود الذي يمنع الكتابة من بعض الخلايا انتهت المشكلة بتوقيف الكود عن العمل Alt+f11 لأعادة احياء الكود /ادخل عليه من خلال و أزل الفواصل منه A2.rar

الحل في نفس الملف Classeur2.rar

حمّل الملف و سنجد الحل ان شاء الله

الحل مرفق غ.rar

اليك ما يجب عمله 1-بعد ان تفتح الملف اذهب الى review اختر unprotect sheet 2- تكتب كلمة المرور ثم ok 3- تختار (تحدد) الخلية أو الخلايا التي تريد الغاء لحماية لها 4-تضغط Ctrl+1 و تختار protection 5-تزيل علامة الصح من المربعات ثم OK صديقي الشافعي /بعد السلام

استاذ محمد في هذه الحالة سوف تحذف التعليقات من جميع الخلايا /بما فيها التي تحتوي على معادلات

اليك اخي ما يجب فعله 1- حدد الخلية (أو عدّة خلايا )حيث تريد التنسيق 2- اضغط على Ctrl+1 3- اختر number من النافذة 4- اختر category 5- حدد من decimal places عدد الأرقام بعد الفاصلة الذي تريده 6- اضغط Ok

السلام عليكم و رحمة الله بين ايديكم لائحة منسدلة من نوع جديد توقعوا الأفضل لائحة افقية.rar

بعد إذن الأخت ام عبدالله حل آخر بو نميرة.rar