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

السلام عليكم اذا سيكون الفرز حسب كود اللون قم بالفرز بناء على العمود C Function GetColor(x As Range) As Integer GetColor = x.Interior.ColorIndex End Function Getcolor.rar

السلام عليكم لم كن شاهدت رد الاخ عمر لكن لاضير من مثال اخر الشرطين الاولين فهمتهم الاخير لا في التنسيق الشرطى ضع الاتى الشرط الاول =(A1/B1)>=0.9 الشرط الثانى =(A1/B1)<0.9 1_.rar

السلام عليكم =(LEN(A2)-LEN(SUBSTITUTE(A2,B2,"")))/LEN(B2) test.rar

السلام عليكم الاخ amoudi 10/10

السلام عليكم عساه يكون المطلوب (تجريب ايضا) Sub &Ograve;&Ntilde;7_&auml;&THORN;&Ntilde;() Dim cell As Range For x = 9 To 42 z = 6 For y = 6 To 12 If Sheets("الفرق").Cells(x, y) = "ت" Then Sheets("التأخر").Select B = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ActiveSheet.Cells(B, z).Value = Sheets("الفرق").Cells(8, y) ActiveSheet.Cells(B, z - 1).Value = Sheets("الفرق").Cells(6, 9) ActiveSheet.Cells(B, 1).Value = Sheets("الفرق").Cells(x, 1) ActiveSheet.Cells(B, 2).Value = Sheets("الفرق").Cells(x, 2) ActiveSheet.Cells(B, 3).Value = Sheets("الفرق").Cells(x, 3) ActiveSheet.Cells(B, 4).Value = Sheets("الفرق").Cells(x, 4) End If z = z + 2 Next y Next x End Sub _______________2.rar

السلام عليكم هنا تجريب لما تريد ان كان المطلوب اكمل الحل Sub &Ograve;&Ntilde;7_&auml;&THORN;&Ntilde;() Dim cell As Range For Each cell In Sheets("&Ccedil;&aacute;&Yacute;&Ntilde;&THORN;").Range("ClassA") If cell.Value = "&Ecirc;" Then A = cell.Column c = cell.Row Sheets("&Ccedil;&aacute;&Ecirc;&Atilde;&Icirc;&Ntilde;").Select B = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 ActiveSheet.Cells(B, A).Value = Sheets("&Ccedil;&aacute;&Yacute;&Ntilde;&THORN;").Cells(8, A) ActiveSheet.Cells(B, A).Offset(0, -1).Value = Sheets("&Ccedil;&aacute;&Yacute;&Ntilde;&THORN;").Range("i6") ActiveSheet.Cells(B, 1).Value = Sheets("&Ccedil;&aacute;&Yacute;&Ntilde;&THORN;").Cells(c, 1) ActiveSheet.Cells(B, 2).Value = Sheets("&Ccedil;&aacute;&Yacute;&Ntilde;&THORN;").Cells(c, 2) ActiveSheet.Cells(B, 3).Value = Sheets("&Ccedil;&aacute;&Yacute;&Ntilde;&THORN;").Cells(c, 3) ActiveSheet.Cells(B, 4).Value = Sheets("&Ccedil;&aacute;&Yacute;&Ntilde;&THORN;").Cells(c, 4) End If Next cell End Sub _______________.rar

السلام عليكم اصلح الله بالك اخى صلاح وبورك فيك على هذه الطريقة الرائعة

السلام عليكم ** ادخل الرقم العشري من خانتين test.rar

السلام عليكم * اذا اردت تطبيق الداله على عمود اخر نسق خلاياه الى (التاريخ او الوقت) التزاما بما ذكره الاخ JUSTIC من كتابة الكود Function AdDate() As Date AdDate = Now() End Function pointage2.rar

السلام عليكم اخى طارق ممكن هكذا Private Sub Worksheet_Change(ByVal Target As Range) CL = Target.Column RW = Target.Row If CL = 2 Then If Target > "" Then Cells(RW, CL + 1).Value = Now() Cells(RW, CL + 1).NumberFormat = "B2m/d/yyyy" End If End If End Sub

السلام عليكم افكار ٌ مقنعةٌ اخى Justic

السلام عليكم ممتاز اخى طارق ممكن بدون ربطه مع الخلية A1 CL = Target.Column RW = Target.Row If CL = 2 Then If Target > "" Then Cells(RW, CL + 1).Value = Now() End If

شكرا لك

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

السلام عليكم مشكور و هنا رابط للمهتمين http://www.bettersolutions.com/excel/EDH113/SO837143001.htm

السلام عليكم هذا السطر توضع به الشروط كما تريد If cCell.Value < MinDegree And cCell.Formula <> "" Or cCell.Value = "غ" Or cCell.Value = "غـ" Then حرف الغين يجب ان يكون طبعا بين القوسين

السلام عليكم لم افهم المشكله ما هي (مشكلة ملفى)

السلام عليكم اهلا بك عضوا جديدا (ابو كادرو) لو ترفق ملف يكون افضل

السلام عليكم ليس لدى طابعة لاجرب لكن ممكن هذا ؟ Private Sub Workbook_BeforePrint(Cancel As Boolean) Range("a1").Font.ColorIndex = Range("a1").Interior.ColorIndex End Sub او هذا ؟ Private Sub Workbook_BeforePrint(Cancel As Boolean) Range("a1").Font.ColorIndex = xlNone End Sub

السلام عليكم ارجو ات يكون طلبك مع علمى انه لا يرقى لمستوى حلول اخونا خبور جزاه الله خيرا فهو بحاجه لبعض اللمسات ___________.rar

السلام عليكم هذا الموقع لا يقدر بثمن لما فيه من كتب في كل المجالات http://www.ebookee.com/search.php?cx=00541...fice+Excel+2007

السلام عليكم لو تتكرم و تزيل الحمايه اولا

السلام عليكم داله جديره بالاحترام كما صاحبها

السلام عليكم ارفق الملف مع ا و نحن نعمل الازم و شكرا

السلام عليكم ما هو نطاق البيانات التى تريد اضافتها للقائمه ؟