عبدالله باقشير

السلام عليكم استبدل نفس الكود هذا في الفورم بهذا Private Sub ListSearch_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Cancel = True [H17].Value = Me.ListSearch.Value End Sub تحياتي

ضع هذا السطر بداية الكود On Error Resume Next

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

السلام عليكم بارك الله فيك اخي الحبيب ابوحنين للفائدة هذا اثراء للموضوع عكس العملية بدلا من استخدام شرط Sub Button1_Click() With Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn .Hidden = Not .Hidden End With End Sub تحياتي

======================== الاخ الحبيب/ ابو حنين ========================

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

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

السلام عليكم الحل السليم ان يتم معالجة البيانات من الاسفل الى الاعلى هكذا : For i = Last To 3 Step -1 وهذا كود الحذف Sub DELETE_ROWS() Dim Last As Long, i As Long With Sheet1 Last = .Cells(Rows.Count, "A").End(xlUp).Row For i = Last To 3 Step -1 If .Cells(i, 1) = Range("B1").Value Then .Cells(i, "A").Resize(1, 3).Delete Shift:=xlUp End If Next End With End Sub واذا كانت البيانات كبيرة يفضل تجميع الخلايا (التي تريد حذفها حسب الشرط ) في متغير من النوع Range اثناء دوران السلسلة وبعد الانتهاء من دوران السلسلة يتم حذف الخلايا المجمعة في المتغير مرة واحدة وهذا مثال لذلك Sub kh_RngDelete() Dim RngDelete As Range Dim Last As Long, i As Long With Sheet1 Last = .Cells(Rows.Count, "A").End(xlUp).Row For i = 3 To Last If .Cells(i, 1) = Range("B1").Value Then If RngDelete Is Nothing Then Set RngDelete = .Cells(i, "A").Resize(1, 3) _ Else Set RngDelete = Union(RngDelete, .Cells(i, "A").Resize(1, 3)) End If Next End With If Not RngDelete Is Nothing Then RngDelete.Delete xlUp End Sub تحياتي

السلام عليكم يمكن التعديل بعدة طرق 1- يمكنك اثناء البحث استخدام متغير لتخزين ارقام الصفوف لنتائج البحث (هذا ما استخدمته في المرفق) 2- يمكنك اثناء البحث تخزين ارقام الصفوف لنتائج البحث في عمود اضافي من اعمدة اللست بوكس ( يتم اخفاءه ) شاهد المرفق 2010 بحث وتعديل فى حالة تكرار الكود.rar

السلام عليكم =INDEX(Data_01;MATCH($D$10;INDEX(Data_01;0;5);0);COLUMN()) المرفق 2003 smr.rar

======================== الاخ الحبيب/ شوقي ربيع ======================== و

السلام عليكم يكفي هذا السطر من الكود Application.CommandBars("Workbook Tabs").ShowPopup تحياتي

السلام عليكم اولا اريد ان اعرف ايش الغرض من كود البحث الذي موجود في ملفكم لانه طويل ولا ادري ما الغاية ان يكون كذلك ؟؟؟

وعليكم السلام يجب ان يكون للقائمة اسم معين ثم تضع هذا الاسم في التعليق

السلام عليكم TRANSPOSE إرجاع نطاق خلايا عمودى كنطاق أفقي، أو بالعكس. يجب إدخال TRANSPOSE كصيغة صفيف في نطاق به نفس عدد الصفوف والأعمدة، على الترتيب، مثل صفيف الأعمدة والصفوف الخاصة به. استخدم TRANSPOSE لتبديل الاتجاه العمودي والأفقي لصفيف في ورقة عمل. بناء الجملة TRANSPOSE(array) Array (الصفيف) هو الصفيف أو نطاق الخلايا في ورقة العمل التي ترغب في تحويلها. يتم إنشاء تحويل الصفيف باستخدام الصف الأول للصفيف على أنه العمود الأول للصفيف الجديد، والصف الثاني للصفيف على أنه العمود الثاني للصفيف الجديد، وهكذا. ملاحظة يجب إدخال الصيغة كصيغة صفيف. قم بتحديد النطاق بدأً بخلية الصيغة. اضغط F2، ثم اضغط CTRL+SHIFT+ENTER. المرفق 2003 TRANSPOSE.rar

و

السلام عليكم الفورم لا يتعامل مع بيانات فيها خلايا مدموجة

و

======================== الاخ الحبيب/ ضاحي الغريب ======================== و

استبدل UsedRange بالنطاق الذي تريده مثلا Range("D3:G16")

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

السلام عليكم ورحمة الله وبركاته جرب الكود التالي Sub Macro1() ActiveSheet.UsedRange.Replace What:="0", Replacement:="", LookAt:=xlWhole, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub تحياتي

و

======================== الاخ الحبيب/ ضاحي الغريب ======================== و

اسأل الله الكريم رب العرش العظيم ان يشفي والدتك ويعافيها شفاء لا يغادر سقما