ابو اسامة العينبوسي

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

السلام عليكم اخى خبور مساء الخير اللهم اقض حاجته وبلغه مراده ونفس كربته اللهم امين

السلام عليكم اذا كنت تريد حصر الشرط في تغير a1 استبدل بهذا الكود Dim cell As Range Application.EnableEvents = False If Target.Address = "A$1$" Then Set cell = Cells(1, 2) Cells(1, 2) = cell.Value End If Application.EnableEvents = True

السلام عليكم المعادله تعمل 100% و اليك المثال مره اخرى ارجو من احد الاخوه تجريبها و اخبار الاخ بالنتيجه New_Microsoft_Office_Excel_Worksheet2.rar

السلام عليكم Dim cell As Range Application.EnableEvents = False Set cell = Cells(1, 2) Cells(1, 2) = cell.Value Application.EnableEvents = True New_Microsoft_Office_Excel_Worksheet.rar

السلام عليكم اخى طالب العلم نصيحة اخويه نسق(تنسيقات جماليه) الملف بعد ان يكتمل وليس قبله لان ذلك يسهل العمل على الاخوه حللت معظم المشاكل فيه تحتاج ل If للتخلص من الاخطاء ___1.rar

السلام عليكم اخ ياسر الف مبرووك

السلام عليكم نفعنا الله و اياكم بما علمنا و ارجو ان لا ينصرف الذهن الى العلم الشرعى فقط

السلام عليكم ممكن يكون هيك colors_count.rar

السلام عليكم تم التطبق على 5000 صف ممكن زياده المدى كما تريد _____________2.rar

السلام عليكم جربه في A1 test_in_A1.rar

السلام عليكم جربه في A1

السلام عليكم احسنت 10/10

السلام عليكم اخ طارق

السلام عليكم Limits.rar

السلام عليكم لو ترفق ملف

السلام عليكم يجب ان تضغط الملف قبل ارساله لا يقبل ملف غير مضغوط

السلام عليكم ممكن ترفق ملف فقد يكون حلك مسالة فرز بيانات

السلام عليكم الاخ samnajo هذه طريقه اخرى (سالت عن طرق اخرى) Private Sub Worksheet_Change(ByVal Target As Range) Dim MMax As Variant Dim MMin As Variant Dim MyRng As Range '------------------------------------------ Set MyRng = ActiveSheet.Range("A1:A20") '------------------------------------------ MyRng.FormatConditions.Delete '------------------------------------------ MMax = Application.WorksheetFunction.Max(MyRng) MyRng.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:=MMax MyRng.FormatConditions(1).Font.ColorIndex = 3 '------------------------------------------ MMin = Application.WorksheetFunction.Min(MyRng) MyRng.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:=MMin MyRng.FormatConditions(2).Font.ColorIndex = 5 End Sub FormatConditions.rar

السلام عليكم حسنا اذا اردنا ان نرحل مره اخرى(على فرض اننا ادخلنا بيانات جديده ) ما هو المعيار المحدد للترحيل من عدمه ( تطابق كل البيانات المراد ترحيلها مع كل بيان في الشيت الخاص به ؟ هذا لا استطيعه

السلام عليكم تعديل بعد الترحيل ؟ كيف يتفق ذلك

السلام عليكم 1- تم 2- ممكن نعمل تفريغ للصفحه الرئيسيه من اليانات التى رحلت 3- المدى هو كذلك (مفتوح) For i = 5 To ActiveSheet.UsedRange.Rows.Count 4- لم افهم قصدك _____3.rar

السلام عليكم لتعطيل الازرار في spreadesheet1 Private Sub UserForm_Initialize() Me.Spreadsheet1.Toolbar.Enabled = False End Sub

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

السلام عليكم هنا الحدث عندما تكتب في الشيت conditional12.rar