إبراهيم ابوليله

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

الاخوه الافاضل تحيه طيبه وبعد ارجو من اصحاب الخبره بالمعادلات المساعده فى دالة MIN(IF تقبلو تحياتى Book2.rar

طب عدم وجود الاداه دى يعنى نقص فى ملفات الاوفيبس ولا ايه وهل فيه اوفيس بينزل كامل ولا ايه

الاخوه الافاضل لدى ليست بوكس فيها عموديم مثلا العمود الاول الاسماء(ابراهيم-ياسر-محمد) العمود الثانى المبالغ هل ينفع احصل على على مجموع ابراهيم فقط دون استخدام الاكسل تقبلوا تحياتى

فعلا موضوع جميل والكثير منا يجهل كيفيه التعامل معها بارك الله فيك ولكن ممكن اعرف اضيفها ازاى الى قائمه اديشنال كنترول

اخى يرجى ارفاق ملف موضح به طلبك وذلك تيسرا على الاخوه الاعضاء فى مساعدتك تقبل تحياتى

=SUMIFS(C:C,A:A,">"&(F1-1),A:A,"<="&H1,B:B,$J$2)+SUMIFS(C:C,A:A,">"&(F1-1),A:A,"<="&H1,B:B,$J$3) اخى جرب هذه المعادله

السلام عليكم ورحمة الله وبركاته اخى زياد جرب تعديل الكود الخاص بالتيكست 1 الى الاتى Private Sub TextBox1_Change() Dim i As Long, ii As Long, j As Integer Dim Ary() ListBox1.Clear kha = "" With Worksheets("codes") For i = 2 To .Cells(Rows.Count, "A").End(xlUp).Row If .Cells(i, 2) Like "*" & TextBox1.Text & "*" Then kha = kha & " " & i ii = ii + 1 ReDim Preserve Ary(1 To ListBox1.ColumnCount, 1 To ii) For j = 1 To ListBox1.ColumnCount Ary(j, ii) = .Cells(i, j).Value Next End If Next End With If ii Then Me.ListBox1.Column = Ary Erase Ary End Sub تقبل تحياتى

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

شرح وافى ومتقن وفى ومنتهى الجمال بارك الله فيك تقبل تحياتى

اخى ابو حمزه جرب الكود الاتى Sub Set_Print_Area() 'كود ملائمة الطابعه Application.ScreenUpdating = False 'Sheets("PRINT").Select With ActiveSheet With .PageSetup '.CenterFooter = "صفحة &L من &J" ' اظهار كلمه صفحه من الى .PrintTitleRows = "$3:$3" ' تثبيت عنوان رأس كل صفحة والذي هو أول صف .Zoom = False ' تفعيل مربع ملاءمة الصفحة .FitToPagesWide = 1 ' 1 = تفعيل ملاءمة عرض الصفحات 0 = عدم تفعيل ملاءمة عرض الصفحات .FitToPagesTall = False ' False = عدم تفعيل ملاءمة الصفحات طولياً True = تفيل ملاءمة طولياَ أي البيانا في ورقة فقط End With 'With .Range("A1:I60000") '.Select '.AutoFilter '.AutoFilter Field:=2, Criteria1:=">""", Operator:=xlAnd 'ActiveSheet.PrintPreview '.AutoFilter: [a1].Select 'End With End With Application.ScreenUpdating = True End Sub تقبل تحياتى

اخى محمد فكره جميله ومشكورا على المجهود المبذول بارك الله فيك تقبل تحياتى

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

لا ياريس اثبت مكانك اه الحمد لله مفيش مشاكل ولا حاجه والدنيا زى الفل تسلم ياريس ربنا يكرمك تقبل تحياتى

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

ياعم ياسر شوفت انت استعجبا ازاى لو رجعت للمشاركه هتلاقينى عايز فى حالة ازالة الفلتر يتم طرح الخلايا المتجاوره يعنى طرح E5 من D5 وليس E5 من D4 تقبل تحياتى

ياسلام لو تظبط كمان بقى مع عدم وجود فلتر بحيث ان عملية الطرح تكون للخلايا المتجاوره يعنى r5-q5 وهكذا

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

اخى محمد اشكرك على المحاوله ولاكنها لم تاتى بالمطلوب تقبل تحياتى

اخى ياسر اشكرك عللى التوضيح اريد طرح الخلايا الظاهره عند الفلتره تقبل تحياتى F.rar

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

اصبحنا واصبح الملك لله استغفر الله العظيم من كل ذنب واتوب اليه لا اله الا انت سبحانك ان كنت من الخاطئين اللهم افتح لنا ابواب رحمتك وادم علينا الصحه والعافيه والسعاده وحب الناس ومحبتهم

اخى محمود منور المنتدى فورم جميل بارك الله فيك تقبل تحياتى

بالفعل فورم جميل فى انتظار المزيد بارك الله فيك تقبل تحياتى

اخى وحبيبى ياسر ايه البرنامج الجامد ده انت كده خلاص بتقولنا مقدمكوش دلوقتى غير انكو تتجهو للفيجوال 6 علشان الاكسيل بقى كوكو الضعيف صح ولا ايه بس انا بقولك ان فكره البرنامج بتعتمد على تحويل الملف الى رار والكلام ده بردو انا قريته من فتره على الرابط الاتى http://superuser.com/questions/807926/how-to-bypass-the-vba-project-password-from-excel باقى التحدى الاكبر انك تفك الملف المحمى من الخارج لاننى بحثت كثيرا على الانترنت ولكنى فشلت تقبل تحياتى تقبل تحياتى