سليم حاصبيا

يمكن ان يكون المطلوب مطلوب salim.rar

نعم بالضبط ومن ثم اجراء التنسيق في العامود الاول حسب العامود الثالث مع مراعاة عدم ترقيم الخلايا الفارغة في العامود B انا فعلتها بواسطة المعادلات فزورة exemple.rar اخي الفاضل العامود A ليس مدمجاَ أصلاَ انظر الى اخر مشاركة لي بهذا الموضوع

اخي ياسر حل رائع اذا كات الدمج في العامود الاول و لكن للاسف الدمج في العامود الثالث اصلاً و المطلوب الترقيم في العامود الاول

جرب هذا الملف تاريخ تلقائي SALIM.rar

لغز برسم جميع الاصدقاء في المنتدى الرائع كيف يمكن الترقيم التلقائي مع وجود خلايا مدمجة فزورة.rar

انسخ هذه المعادلة الى الخلية C2 واسحب نزولاً =IF(OR(ISNA(VLOOKUP($B2,{0.3125,"";0.313194444444444,1;0.334027777777778,2;0.354861111111111,"إجازة تراكم زمنيات"},2,1)),$B2=""),"",VLOOKUP($B2,{0.3125,"";0.313194444444444,1;0.334027777777778,2;0.354861111111111,"إجازة تراكم زمنيات"},2,1))

جرب هذا الكود لو اردت ان تبقى القيمة في الخلايا A1 & C1 امسح السطر السادس من الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Or Target.Address = "$C$1" Then Application.EnableEvents = False x = Target.Value Range("b2") = x Target.Value = "" End If Application.EnableEvents = True End Sub

اثراءً لموضوع هذه المعادلة =IF(N(A1)>0,CHOOSE(MONTH(A1),"Quarter:1","Quarter:1","Quarter:1","Quarter:1","Quarter:2","Quarter:2","Quarter:2","Quarter:2","Quarter:3","Quarter:3","Quarter:3","Quarter:3","Quarter:4","Quarter:4","Quarter:4","Quarter:4"),"")

ربما هذا المطلوب MY_SUM.rar

ربما يكون ما تريد auto_sum.rar

ربما ينال اعجابك التأخيرات salim.rar

يمكن استحدام هذا الماكرو Sub select_last_cell() Dim UR As Range Dim LastCell As Range Set UR = ActiveSheet.UsedRange Set LastCell = UR(UR.Cells.Count) LastCell.Select End Sub

جرب هذا الملف هناك معادلة تحسب لم عدد الخلايا باي لون تريد فقط حدد اللون من خلال تحدبد اي خلية ملونة count_colore 1.rar

استعمل هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 And Target.Row >= 5 And Target.Row <= 20 And Target.Count = 1 Then dd End Sub Sub dd() Dim My_range As Range Dim my_2range As Range Set My_range = Range("b5:g20") My_range.Borders.LineStyle = xlNone For i = 1 To My_range.Rows.Count If My_range.Cells(i, 1) <> "" Then Set my_2range = My_range.Range(Cells(i, 1), Cells(i, 6)) With my_2range.Borders .LineStyle = xlContinuous .Weight = xlThick End With End If Next End Sub

تفضل المطلوب لا اغرف لماذا تكرر السؤال 3 مرات please salim.rar

جرب هذا الملف search salim.rar

عسى ان يكون المطلوب اسماء السائقين ومكان عملهم salim.rar

تم معالجة الامر كلمة السر موجودة في الملف الخلية O1 (يمكن مسحها بعد التعرف عليها) luck_table.rar

جرب هذا الملف TABLE WITH PROTECT salim.rar

اليك الملف مع المعادلة المطلوبة تقييم الموظفين salim.rar

انسخ هذه المعادلة الى لخلية J1 و اسحب نزولاً =IF(MID("000-000-"&$H2,FIND("*",SUBSTITUTE("000-000-"&$H2,"-","*",2))+1,20)*1=$H2,"نعم","")

=IF(OR($E3="",E$3<50,$E3>100),"",VLOOKUP($E3,{50,"D";70,"C";80,"B";90,"A"},2,1)) اكتب هذه المعادلة في الخلية F3ثم اسحب نزولاً في حال لم تعمل المعادلة استبدل الفاصلة ,بفاصلة منقوطة ; فقط خارج الاشارتين { } اضغط اعجبني اذا كان كذلك

اذهب الى العنوان حيث لي مشاركة بهذا الموضوع http://www.officena.net/ib/topic/66471-%D9%82%D8%A7%D8%A6%D9%85%D8%A9-%D9%85%D9%86%D8%B3%D8%AF%D9%84%D8%A9-%D9%85%D8%B7%D8%A7%D8%B7%D9%8A%D8%A9-%D9%85%D9%86-%D8%B5%D9%81%D8%AD%D8%A9-%D8%A7%D8%AE%D8%B1%D9%89/#comment-433091

جرب هذا الملف add_sheet with a vriable Num.rar

Sub salim() Dim My_date As Date Sheet1.Copy After:=Sheets(Sheets.Count) t = Sheets.Count ActiveSheet.Name = Sheet1.Name & "" & t ActiveSheet.Range("D2").Formula = "=today()" My_date = ActiveSheet.Range("d2").Value My_year = Year(My_date) ActiveSheet.Range("D3").Formula = "'" & t & "/" & My_year End Sub بعد إذن اخي وصديقي ياسر هذا الكود دون ذكر اسماء الصفحات تفادياً لمشاكل اللغة العربية مع تحباتي