احمد عبد الناصر

و ان اردته كود جرب هذه Sub Dahmour() Application.ScreenUpdating = False Range("c2:cx2501").FormulaR1C1 = "=SUMIF(INDIRECT(""CustmerInvoice!c2"",FALSE),CustmerDataBase!RC1,INDIRECT(""CustmerInvoice!c""&3+COLUMN(R[-1]C[-2]),FALSE))" Range("c2:cx2501") = Range("c2:cx2501").Value Application.ScreenUpdating = True End Sub تحياتي

السلام عليكم جرب و ضع هذه المعادلة في الخلية C2 ثم انسخها في باقي الخلايا . =SUMIF(INDIRECT("CustmerInvoice!c2";FALSE);CustmerDataBase!$A2;INDIRECT("CustmerInvoice!c"&3+COLUMN(A1);FALSE)) تحياتي

الاخ الحبيب الاستاذ الكبير/ احمد فضيله , تقبل تحياتي استاذ يوسف , هذا رابط فيه تفصيل لما ذكرت http://msdn.microsoft.com/en-us/library/office/ff198017.aspx و كما فهمت فعند حذف FileFormat:= سيحفظ بصيغة الملف الحالية . تحياتي

السلام عليكم حمدا لله ان الكود قد ادى الغرض و شكرا لدعائك ويبدو اني لم اوضح كيفية عمل الملف معذرة جزاك الله كل خير وأطعمك من الجنة أشهى لحم طير

عدل الخلية C2 مثلا لتصبح فاتــــــــورة رقم ( 60 ) و اعلمني بالنتيجة تحياتي

السلام عليكم استاذ بكار , هل جربت الملف الذي ارفقته ؟!

السلام عليكم جرب هذه Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = [c2].Address Then Dim N As String For i = 1 To Len(Target) If IsNumeric(Mid(Target.Value, i, 1)) Then N = N + Mid(Target.Value, i, 1) End If Next ActiveWorkbook.SaveAs Filename:=N, FileFormat:=56 End If End Sub ملاحظة : لا يأخذ الرقم بين الاقواس بل اي رقم في الخلية , لا اعلم ان كان هذا مناسب لك . تحياتي save number+saveas.rar

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

السلام عليكم جرب هذه If .Cells(R, 2) <> "" And .Cells(R, 2) Like "*" & CM_TextFind.Text & "*" Then تحياتي +عدم ظهور فراغات فى الليست بوكس.rar

السلام عليكم جرب هذه تحياتي Book1+floor.rar

مرحبا بك

السلام عليكم معذرة علي التأخر في الرد . جرب هذه في الصفحة الاخيرة اعمل كوبي للمعادلة و الصقها في باقي الخلايا . تحياتي Bovin TB+.rar

السلام عليكم في الملف المرفق الحل بالمعادلات . هناك طريقة اخري باستخدام advanced filter من تاب data Book1+.rar

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

السلام عليكم جرب هذه Sub end_report() l = Sheets("saad").Range("b" & Rows.Count).End(xlUp).Row Sheets("saad").Range("b6:b" & l).Copy Range("d6").PasteSpecial (xlPasteValues) Application.CutCopyMode = False Range("d6:d" & l).RemoveDuplicates Columns:=1, Header:=xlNo End Sub تحياتي

السلام عليكم اجل ممكن كل ما عليك هو ان تغير كلمة مصابة في المعادلة و تكتب مكانها سليمة او اشتباه . تحياتي

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

السلام عليكم اسعد الله اوقاتكم زيادة في الخير =COUNTIF(C2:C228;"*لغة عربية*") تحياتي

السلام عليكم جرب هذه تحياتي TB test+Array.F.rar

اللهم رحمتك أرجو، فلا تكلني إلى نفسي طرفة عين، وأصلح لي شأني كله، لا إله إلا أنت اللهم إني أعوذ بك من الهم والحزن ، والعجز والكسل ، والجبن والبخل ، وضلع الدين ، وغلبة الرجال

الحمد لله تحياتي

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

السلام عليكم استاذ رجب , اسعد الله اوقاتك جهد رائع و و معلومات دسمة , افضل شيء ان حضرتك لا تشرح الدالة فقط بل تعلم طريقة التفكير و هو الاهم في نظري . اعجبني جدا استخدامك ل F4 و F9 (كنت اعتقد اني الوحيد الذي يستخدمهم ) جزاك الله خيرا و تقبل منك . تقبل خالص تحياتي

السلام عليكم استاذ ابو العزم , جرب المرفق تحياتي LINK_6+.rar

جرب هذه تحياتي LINK_5+.rar