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

الف مبروك استاذ احمد ( ابو يوسف ) . اللهم إجعله قرة عين لآبيه وأمه وإجعله ياالله من حملة كتابك العزيز .

جرب هذه المحاولة تحياتي LINK++.rar

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

السلام عليكم جرب هذه بافتراض ان ال textbox اسمه textbox1 MID(textbox1.text,1,1) تحياتي

السلام عليكم جرب هذه تحياتي ++-+جدول المحاضرين والقاعات.rar

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

السلام عليكم جرب هذه تحياتي 1 - Copy+.rar

السلام عليكم تحياتي للجميع , اسعد الله اوقاتكم زيادة في الخير و حبا في المشاركة مع الاساتذة الكرام هذه محاولة =CEILING(A2,0.5) +ملف التقريب.rar

السلام عليكم تحياتي للجميع استاذ حمادة ما شاء الله , اعتقد ان هذه اسرع اجابة في تاريخ المنتدي بعد ترح السؤال ب دقيقتين , تقبل الله منا و منكم صالح الاعمال خالص تحياتي

السلام عليكم تحياتي للجميع , في المرفق يجمع علي اساس كل الفواتير , لا اعلم ان كان هو المقصود تحياتي فاتورة+8.rar

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

السلام عليكم جرب هذا If InStr(ورقة1.Cells(T, 3).Text, TextBox35.Text) > 0 Then بدلا من هذا If Mid(TextBox35.Text, 1, Len(TextBox35.Text)) = Mid(ورقة1.Cells(T, 3).Text, 1, Len(TextBox35.Text)) Then تحياتي

السلام عليكم تحياتي للجميع جرب بدل هذا FName = Sheets("Sheet1").Range("b3").Text بهذا FName = Range("b3").Text او غير كلمة sheet1 ب ورقة1 حسب ملفك تحياتي

السلام عليكم جرب المرفق باستخدام ConditionalFormatting للتعديل الشروط او زيادة المدي سيليكت علي الخلية F7 Home ConditionalFormatting Manage Rules تحياتي Sample2+.xls.rar

السلام عليكم استاذ خالد شاكر لك مرورك الكريم , عامتا هذا رابط الكود علي MSDN http://msdn.microsoft.com/en-us/library/office/ff196165.aspx تحياتي

السلام عليكم جرب هذه For Each cl In Range(Cells(12, 7), Cells(Cells(Rows.Count, 7).End(xlUp).Row, 7)) تحياتي

السلام عليكم جرب هذه Application.OnTime EarliestTime:=TimeValue("9:46 AM"), Procedure:="اسم_الماكرو" تحياتي

شاكر لك مرورك الكريم استاذ عباس و تجربة الملف , تقبل تحياتي

السلام عليكم جرب هذه Cells(Range("c" & Rows.Count).End(xlUp).Row + IIf(IsEmpty(Cells(1, 3)), 0, 1), "c").FormulaR1C1 = "=RC[-1]+RC[-2]" تحياتي

السلام عليكم اخي الكريم , بداية ارجو ان تستخدم الكود الثاني مشاركة رقم 3 . شاكر لك كلماتك العطرة ,لكن الموضوع ابسط من هذا رزقنا الله نحن و اياكم الصبر و الاخلاص و تقبل منا و منكم صالح الاعمال . تقبل تحياتي

السلام عليكم بداية مرحبا بك في المنتدي حاول الاطلاع علي قوانين المنتدي من حيث اختيار اسم مناسب للموضوع . جرب المرفق تحياتي Book1111+.rar

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

السلام عليكم شاكر لك دعائك , و جزاكم الله مثله . تحياتي

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

السلام عليكم جرب هذه Dim C As Integer Dim REC As Integer Dim EN Sub Dahmour() LR = Range("a" & Rows.Count).End(xlUp).Row EN = LR Range("a2:f" & LR).Sort key1:=Range("c2") LS = Sheets.Count For inx = 1 To WorksheetFunction.RoundUp((LR - 1) / (LS - 1), 0) If REC Mod 2 = 0 Or REC = 0 Then R Else RR End If Next Range("a2:f" & LR).Sort key1:=Range("a2") C = 0 REC = 0 EN = 0 End Sub Sub R() REC = REC + 1 LS = Sheets.Count For I = 2 To LS Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = Sheets(1).Cells(C + 2, 1) Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row, 2) = Sheets(1).Cells(C + 2, 2) Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row, 3) = Sheets(1).Cells(C + 2, 3) C = C + 1 If C + 1 = EN Then Exit For Next End Sub Sub RR() REC = REC + 1 LS = Sheets.Count For I = LS To 2 Step -1 Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) = Sheets(1).Cells(C + 2, 1) Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row, 2) = Sheets(1).Cells(C + 2, 2) Sheets(I).Cells(Sheets(I).Cells(Rows.Count, 1).End(xlUp).Row, 3) = Sheets(1).Cells(C + 2, 3) C = C + 1 If C + 1 = EN Then Exit For Next End Sub تحياتي -++++توزيع الطلاب.rar