سليم حاصبيا

هذا بعض ما فهمته من الملف و كيف تحدد اذا كان هتاك اعتمادية او لا و لماذا اسم السائق مبهم مطابقة بين شيتين salim.rar

لالغاء التصفية اضغط الزر Show_All و لاظهارالفراغات امسح محتوبات الـ CombBox

تعديل (بدون معلق و حول) Book salim (macro) adv.rar

محاولة ثانية Book salim (macro).rar

لم افهم لغاية الان ما هو مفتاح السرد

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

استبدل الرقم 6 بالرقم 7 في كل المعادلات

اثراء للموضوع هذا الكود Sub InsertSheet() Dim arr() arr = Array("كانون الثّاني", "شباط", "آذار", "نيسان", "أيّـار", "حزيران", "تـمّوز", "آب", "أيلول", "تشرين الأوّل", "تشرين الثّاني", "كانون الأوّل") For i = 0 To UBound(arr) On Error Resume Next If Len(Sheets(arr(i)).Name) = 0 Then Sheets.Add.Name = arr(i) End If Next End Sub

ربما كان المطلوب تسلسل الارقام salim.rar

تفضل تم التعديل قليلاً على المعادلة Book salim.rar

اكتب هذه المعادلة في الخلية H3 ,اسحب يميناً ستة اعمدة ونزولاُ صفين =SUMPRODUCT(($E$7:$E$51=H$2)*($I$7:$I$51=$G3)*(($D$7:$D$51<>"معلق")+($D$7:$D$51<>"حول")))

يجب ان تحفظ الملف بصيغة xlsm

يمكن تجربة هذا الملف (ماكرو) Tarhil1.rar

جرب هذا الملف مخزن salim.rar

ربما يكون الحل في هذا الملف القائمة المنسدلة مطاطة ولا تذكر المكرر الا مرة واحدة tarhil.rar

اكتب هذا الكود في حدث الصفحة(يعمل في كل الحالات) Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static Salim As Range If Not Salim Is Nothing Then Salim.FormatConditions.Delete Set Salim = Target With Salim.FormatConditions.Add(Type:=xlExpression, Formula1:="=TRUE") .Interior.PatternColorIndex = xlAutomatic .Interior.ColorIndex = 6 End With End Sub اليك الملف كنموذج format _target keep the original.rar

ممكن يكون ذلك من خلال معادلة صفيف (Ctrl+Shift+Enter) =SUM(IF($B$2:$B$5=$F$2,$C$2:$D$5,"")) او هذه معادلة عادية =SUMPRODUCT(--($B$2:$B$5=$F$2)*$C$2:$D$5)

اثراءً للموضوع هذا الكود (ربما اسرع قليلاً) Sub Filter_Me() Sheets("Sheet2").Range("a:a").ClearContents With Sheets("Sheet1") .Activate .AutoFilterMode = False lrg = .Cells(Rows.Count, "g").End(3).Row .Range("g6").AutoFilter Field:=1, Criteria1:=">=1", _ Operator:=xlAnd, Criteria2:="<=90" .Range("g6:g" & lrg).Copy Sheets("sheet2").Range("a5") .AutoFilterMode = False Application.CutCopyMode = False End With End Sub

جرب هذه المعادلة في نفس المكان =IF(SUBTOTAL(103,$B$3:$B$12)=10,"",SUBTOTAL(109,$B$3:$B$12)) اخي ياسر يبدو ان هناك توارد افكار فيما بيننا

اثراءً للموضوع حل آخر Color_cel Keeping The Origenal Color.rar

بعد اذن اخي ياسر تم التحويل الى ارقام فرز ارقام salim_number.rar

اكتب هذه المعادلة في الخلية B15 =SUBTOTAL(109,$B$3:$B$12)

ربما يكون المطلوب فرز ارقام salim.rar

جرب هذا الملف الاسماء عشوائية (حيث انك لم ترفع الملف الذي تريد) يمكنك زيادة الاسماء الى ما تريد (حتى 500 اسم) tekrar.rar

ربما ينفع هذا الملف compare two tables.rar