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

السلام عليكم مثلا لو فرضنا ان اسم الشيت الذي لا تريد حذفه "الاجماليات" Sub ماكرو1() Dim i As Integer For i = 1 To Worksheets.Count If Worksheets(i).Name <> "الاجماليات" Then Worksheets(i).Range("B3:B33").ClearContents End If Next End Sub تحياتي

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

السلام عليكم حدد النطاق الذي تريد مسحة ثم اضغط الزر يعني لازم تستخدم الزر للمسح حتى يعمل الكود Sub kh_CLEAR() Dim cel As Range For Each cel In Selection If Not Intersect(cel, Range("C4:P95")) Is Nothing Then With cel ورقة2.Range(.Address).Value = .Value .Interior.ColorIndex = 16 .ClearContents End With End If Next End Sub المرفق 2003 association.rar

السلام عليكم شاهد المرفق 2003 فئات المبلغ.rar

السلام عليكم الخلية M1 والخلية N1 وهي من خلايا المعيار لازم يكون الكلمة التي فيها مختارة من رؤوس اعمدة البيانات انت كاتب كلمة (السنة) وهي كلمة غير موجودة في رؤوس اعمدة البيانات غيرها الى (سن المعاش) وجرب الكود تحياتي

اخي الفاضل مجدى يونس

السلام عليكم بالنسبة للبحث عن رقم تم استخدام الفلترة المتقدمة المرفق 2010 بحث بأي حرف او رقم بالفلترة المتقدمة.rar

حمادة باشا

جزاكم الله خيرا

اختي الفاضلة أم عبد الله

السلام عليكم الشكر واصل لاخي الحبيب ابو حنين لاثراء الموضوع ممكن تستخدم المعادلة التالية ضعها في الخلية F5 واسحبها =IF(SUMPRODUCT(N(ISNUMBER(--MID(D5;ROW(INDIRECT("1:"&LEN(D5)));1))));"";D5)

السلام عليكم وانا معكم اشارككم هذا الخلق العظيم لكم مني كل الشكر والتقدير تحياتي

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

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

اخي الحبيب جمال عبد السميع

اخي الحبيب احمد فضيله

اخي الحبيب جمال عبد السميع

اخي حسين شاكر

آمين جرب هذا Private Sub ButtonSaveFil_Click() Dim iC As Integer iC = Me.ListFind.ListCount If iC = 0 Then GoTo 1 '------------------------ Application.ScreenUpdating = False With Sheets(3) .Select .Range("A6").Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count).ClearContents .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List End With Application.ScreenUpdating = True Unload Me 1 End Sub تحياتي

السلام عليكم بارك الله فيكم اخي الحبيب جمال كفيت ووفيت سينم اغلاق الموضوع لنبدأ العمل ........... جزاكم الله خيرا تقبلوا تحياتي وشكري

الفاضل خالد القدس الفاضل مجدي يونس الفاضل عبدالله المجرب الفاضل memad

اخي خالد القدس