سليم حاصبيا

جرب هذا الملف حماية نطاق من الخلايا Salim.rar

بعد اذن اخي ناصر هذا الكود Option Explicit Sub Sort_For_Me() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With If ActiveSheet.Name <> "فرز" Then GoTo Final_Operation Dim r%, My_Sht As Worksheet Set My_Sht = Sheets("فرز") r = My_Sht.Cells(Rows.Count, 1).End(3).Row If r < 14 Then r = 14 With My_Sht.Sort .SortFields.Clear .SortFields.Add Key:=Range("k14:k" & r), Order:=1 .SortFields.Add Key:=Range("e14:e" & r), Order:=2 .SortFields.Add Key:=Range("c14:c" & r), Order:=1 .SetRange Range("b14:k" & r) .Header = 1 .Apply End With Final_Operation: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق الفرزبثلاث شروط Salim.rar

هذا الكود Option Explicit Sub hide_or_del_rows() With ActiveSheet .Unprotect Password:="1" .Rows.Hidden = False .Columns.Hidden = False .Rows("1").Hidden = True 'يمكن اختيار Rows("1").Delete .Columns("f").Hidden = True 'يمكن اختيار .Columns("f").Delete .Protect Password:="1" End With End Sub

ارفع مثالاً عما تريد مع (كلمة السر)

جرب هذا الكود Sub hide_for_me() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With If ActiveSheet.Name <> "ورقة1" Then GoTo exit_sub Dim Last_Col%, i% Last_Col = ActiveSheet.Cells(4, Columns.Count).End(1).Column Range("b3").Resize(1, Last_Col - 1).Columns.Hidden = False For i = 3 To Last_Col - 1 If Weekday(Cells(4, i)) > 5 Then Cells(3, i).EntireColumn.Hidden = True Next exit_sub: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub

ارفع جزء بسيط من الملف(حوالي 20 شطر للمعالجة)

هذه المعادلة =IF(AND(D4>=70000,D4<=90000),"OK","")

جرب هذه المعادلة في الخلية F3 واسحب نزولاً =D3*VLOOKUP(D3,{0,0.1;50000,0.13;70000,0.15;90000,0.17},2) اذا لم تعمل المعادلة جرب استبدال الفاصلة في المعادلة "," بفاصلة منقوطة ";" لتصبح هكذا (حسب اعدادات الوندوز عندك) =D3*VLOOKUP(D3;{0,0.1;50000,0.13;70000,0.15;90000,0.17};2)

ارفع الملف بذاته ولبس صورة عنه (لا يمكن التعامل مع صورة)

هذه المعادلة في الخلية C2 .واسحب نزولا =IFERROR(IF(H2="","",INDEX($I$2:$I$100,MATCH($H2,$A$2:$A$100,0))),"""Not Fond""")

بالنسية للسؤال الاول يمكن ان يقوم احد الاخوة بالمساعدة لخبرتي المتواضعة باليوزر فورم بالنسية للسؤال الثاتي هذا الملف النموذج يمكن ان يساعدك Degree.rar

ازالة الخلايا المدمجة من الملف كي يعمل Advanced filter

جرب هذا الملف data Salim.rar

ريما كان المطلوب Salimترتيب الصفوف.rar

انت لم توضح جيداً في السؤال ماتريد فكان العمل علة نقل المجاميع الى صفوف جديدة

جرب هذا الماكرو Option Explicit Sub Tarhil() Dim lr1%, lr2% lr1 = Application.Match(Application.Max(Sheets("sheet1").Range("b:b")), Sheets("sheet1").Range("b:b"), 0) + 1 lr2 = Sheets("sheet2").Cells(Rows.Count, "b").End(3).Row If lr2 = 1 Then lr2 = 3 With Sheets("sheet2") .Range("b" & lr2 + 1) = "المجموع " .Range("c" & lr2 + 1).Resize(1, 30).Value = _ Sheets("sheet1").Range("d" & lr1).Resize(1, 30).Value End With End Sub

المعادلة من توع CSE (اي معادلة صفيف) و لتطبيقها يجب بعد كتابتها الضغط على CRTL+SHIFT+ENTER وليس ENTER وحدها

المعادلة من توع CSE (اي معادلة صفيف) و لتطبيقها يجب بعد كتابتها الضغط على CRTL+SHIFT+ENTER وليس ENTER وحدها

ربما كان المطلوب salimالمصنف1.rar

جرب هذا الملف الموانع الموجوده Salim.rar

لو فرضنا ان الرقم عندك في الخلية A2 انسخ هذه المعادلة : مع تنسيق الحلية "mmm-yyyy-d" =DATE(MID(19&RIGHT(A2,LEN(A2)-1),1,4),MID(19&RIGHT(A2,LEN(A2)-1),5,2),MID(19&RIGHT(A2,LEN(A2)-1),7,2)) مرفق الملف dates.rar

بالنسية للجدول الاول تم عمل المطلوب اما الجدول الثاني غير مفهوم ما هو مطلوب data_between.rar

جرب هذه المعادلة في الخلية H2 ,واسحب يميناً و نزولاً =SUMPRODUCT(--($A$1:$A$50>=$F2),--($A$1:$A$50<=$G2),--($B$1:$B$50=H$1),$C$1:$C$50)

تم التغديل Abraj_1.rar

جرب هذا الملف Abraj.rar