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

السلام عليكم البحث مهم قبل السوال توفيرا للوقت اخى الكريم

السلام عليكم الاخ Amhateb الكود في الورقه الاولى Dim DataRange As Range Dim c As Range Dim count As Integer Dim o As Shape On Error GoTo errhandler For Each o In ActiveSheet.Shapes If o.Name Like "InvalidData_*" Then o.Delete Next Set DataRange = Cells.SpecialCells(xlCellTypeAllValidation) count = 0 For Each c In DataRange If Not c.Validation.Value Then Set o = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) o.Fill.Visible = msoFalse o.Line.ForeColor.SchemeColor = 10 o.Line.Weight = 1 count = count + 1 o.Name = "InvalidData_" & count End If Next Exit Sub errhandler: End Sub

السلام عليكم لقد قفلت ملفك بكلمه مرور لذلك طبقت على ملف اخر انسخ الكود الى ملفك Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column < 15 Or Target.Column > 17 Then ActiveSheet.Protect Else ActiveSheet.Unprotect End If End Sub ان اردت ممكن تضع كلمه مرور O_P_Q.rar

السلام عليكم اخى ارسل لي المعايير كامله كل ماده على حدى

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

السلام عليكم امل ان يكون المطلوب _____________version_1_.rar

السلام عليكم =IF(COUNTIF(D19:L19,"<50")=0,"ناجح",IF(COUNTIF(D20:L20,"<50")>4,"اعادة",IF(COUNTIF(D20:L20,"<50")>1,"ماحق","فصل")))

السلام عليكم اين المرفق ؟

السلام عليكم على الاغلب ان الارقام منسقة كنص لكن ارفق ملف

السلام عليكم ارسل ملفك لنرى المطلوب و نساعدك

السلام عليكم ممكن استخدام هذه الاداة بعد تحميلها MSFlexGrid contol او اداة Spreadsheet

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

السلام عليكم الاخ احمد يعقوب هنا كنت قد قمت بحل سؤال مشابه للاخ aliyaldin من هنا

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

حل الاخ عمر اصح كان الاصل ان تكون =IF(C2<>"",B2/C2,"") لانه لايمكن القسمه على 0

السلام عليكم بهذه الصيغة =IF(B2<>"",B2/C2,"")

السلام عليكم اليك مسنجرى omarhaji_2000@yahoo.com اضفنى او على omarhajy@hotmail.com

السلام عليكم لم افهم المبدأ الذي ستم الترحيل به اشكرك جدا على طول نفسك في كتابة المعادلات !!!

السلام عليكم عدد الاعمدة اكبر من العدد المسموح به فى الفورم هذه رسالة الاكسل

Set v = ActiveSheet.Shapes.AddShape(msoShapeOval, cell.Left + 3, cell.Top + 3, cell.Width - 5, cell.Height - 5)

السلام عليكم اضافه الى حل الاستاذ الكبير نزار عيد prices_average2.rar

السلام عليكم هنا ان كان الارقام (وليس النص ) غير ناتجه عن معادلة و الا سيكون الحل بطريقه اخرى انفذها ان شئت عدلت على المشاركه الملف الاول ينفذ على عمود و الثانى على صف test_it_1.rar test_it_2.rar

السلام عليكم تفضل names2.rar

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

السلام عليكم دبل كلك فى القائمه الاولى على الاسم المراد ترحيله يرحل اىل القائمه الثانيه فورا للتراجع عن اسم تم اختياره دبل كلك عليه يعود للقائمه الاولى و هناك زر الترحيل و يمكن حمل ترحيل بطريقه اخرى حيث بمجرد اختيار اسم يتم ترحيله للورقه فورا دون الحاجه لقائمه اخرى names.rar