طارق محمود

السلام عليكم اخي العزيز تفضل المرفق كنترول أولى ثانوى2.rar

السلام عليكم أيضا يمكنك زيارة الموضوع التالي: http://www.officena.net/ib/index.php?showtopic=40007

السلام عليكم أعتقد أنك ممكن تبدأ من المرفق الشكل مقلوب لكن انت حاول وإن شاء الله تكملها variance_2.rar

إرفق أخي إن لم يكن لدي وقت فستجد الكثير من الإخوة يودون المساعدة

السلام عليكم أخي الكريم الماكرو يعمل جيدا بعد تعديل طفيف عليه السطرين الثالث والرابع واللذان يبدءان بــ : Range("B6 غيرهما ليبدءا بــ: Range("B2 سيكون الكود كالتالي Sub SEPARATION() Application.ScreenUpdating = False Sheets("ناجح").Range("B2:J1000").ClearContents Sheets("راسب").Range("B2:J1000").ClearContents Dim ResSh As String .... .... الباقي كما هو

السلام عليكم أخي العزيز بعض ماعندكم جزاك الله كل الخير علي المرور والكلمات الطيبة

السلام عليكم تفضل أخي المرفق به زر زائد لهذا الغرض Book1_TAREQ3.rar

السلام عليكم أخي العزيز وضعت بعض البيانات الوهمية للمراجعة تفضل المرفق Book1_TAREQ2.rar

أخي سامر من ردك الأخير يبدو أنك لم توصل لنا ماتريد جيدا سأحاول مرة أخري

السلام عليكم مرفق المطلوب Book1_TAREQ.rar

السلام عليكم أخي العزيز يبدو انني استخدمت خاصية في 2010 ليست موجودة في 2003 عدل تلك الكود كله إلي Sub PV_Table() LR = [A60000].End(xlUp).Row Range("K3:IV" & LR).Select Selection.FillDown [A1:J1].Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Sheet1!R1C1:R" & LR & "C10").CreatePivotTable TableDestination:="R4C11", TableName:="PivotTable1" With ActiveSheet.PivotTables("PivotTable1") .PivotFields("كود الصنف").Orientation = xlColumnField .PivotFields("كود الصنف").Position = 1 .PivotFields("كود الصنف").PivotItems("(blank)").Visible = False .AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("الكمية بالكجم"), "Count of الكمية بالكجم", xlCount End With With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of الكمية بالكجم") .Caption = "Sum of الكمية بالكجم" .Function = xlSum .NumberFormat = "#,##0" End With ActiveWorkbook.ShowPivotTableFieldList = False Range([J3], [J3].End(xlToRight)).EntireColumn.AutoFit [J3].Select End Sub

السلام عليكم تفضل اخي المرفق Book1_TAREQ.rar

السلام عليكم تفضل المرفق بالمعادلات وليس الأكواد (كما طلبت) ولكن لاحظ: المعادلات ليست قصيرة كما تمنيت لكني فصلتها قدر الإمكان ويمكنك تجميعها في معادلة واحدة ولكنها ستكون طويلة أي تغيير في تنسيق الورقة قد يؤثر في المعادلات ، بمعني التاريخ لابد ان يكون في الخلايا كذا ... والأسماء في النطاقات ... Attendance_Req_TAREQ.rar

أخي الكريم سأدلك علي وسيلة سريعة تأخذ نسخة من الأسماء وتضعها في صفحة ترجمة جوجول http://translate.google.com/# وتنسخ الأسماء المترجمة للإكسل أنظر الفيديو المرفق ولكن لابد أن تراجع لأن الترجمة حرفية وليست دقيقة 100% أنظر مثلا في آخر الفيديو تجد الإسم (أسماء) تمت ترجمته بالخطأ (The names of) ثم تستخدم دالة VLOOKUP كالعادة مواضيعك الأخري تحتاج وقت طويل وهذا ليس عندي عذرا Translate.rar

السلام عليكم تفضل أخي المرفق بالجداول المحورية داخل الكود F1101_TAREQ.rar

السلام عليكم أخي العزيز كيف تكتبه ، ببساطة إبدأ الكتابة بالأبوستروف (') (نفس زر حرف ط ولكن في مود الكتابة بالإنجليزية) أما السؤال في الصورة ليس كذلك ، المطلوب بطريقة Data Validation وليس conditional formatting بالمرفق المساحة الخضراء ، إذا حاولت الكتابة ببداية غير الــ 05 فلن تقبل وهذا هو المطلوب ، يوجد بالمرفق صورة توضيحية السؤال أيضا في الصورة ليس كذلك ، فالمطلوب أن تلون بالأصفر المشروعات التي انتهي وقتها يعني آخر عمود Ending Date يكون التاريخ فيه اقل من تاريخ اليوم - في المرفق أيضا تجد ذلك مع صورة للشرح في المرفق أيضا تجد ذلك مع صورة للشرح في المرفق أيضا تجد صورة للشرح كونان دويل.rar

السؤال غير واضح تماما

أخي الكريم الكود مضبوط ولكن معادلة الحالة التي في العمود EN هي التي تحتاج تعديل أول خلية EN14 بها المعادلة كالتالي =IF(FF14=TRUE," ناجح ","له دور ثانى فى") لاحظ كلمة " ناجح " قبلها مسافة وبعدها مسافة إمسح المسافتين ثم انسخ المعادلة علي باقي العمود ثم شغل الكود ستجده يتعرف علي الناجح

السلام عليكم الحل سهل إن شاء الله ولكن لابد ان ترفق الملف بالتنسيقات التي تعمل عليها

السلام عليكم تفضل أخي الملف معدلا ترحيل بيانات_رجب.rar

السلام عليكم تفضل أخي المرفق بالمعادلات وليس بالأكواد 1_Tareq.rar

أخي الغالي بن علية كيف أحوالك عذرا لقد رددت بعد ردك بدقائق ، لم اراك وإلا تركت طبعا إذا حضر الماء بطل التيمم

السلام عليكم تفضل أخي المرفق بالدالة وكذلك التنسيق الشرطي غير التواريخ وستري النتيجة استحقاق الدرجات2.rar

السلام عليكم تفضل أخي هذا الكود بعد التعديل Sub SameCells() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.DisplayAlerts = False On Error Resume Next Dim Fil As String, A(9, 99, 99, 99) As Long, nm(99, 99) As String '============================================================ x = ActiveWorkbook.Name Fil = Dir(ActiveWorkbook.Path & "\" & "*.xls") wb = 0 Do Until Fil = "" If Fil = x Then GoTo 10 wb = wb + 1 Workbooks.Open Filename:=ActiveWorkbook.Path & "\" & Fil CN = Sheets.Count If mxCN < CN Then mxCN = CN For sh = 1 To CN nm(wb, sh) = Sheets(sh).Name For cc = 1 To 8 ' Columns A:H For rr = 1 To 20 ' Rows A(wb, sh, rr, cc) = Sheets(sh).Cells(rr, cc) Next rr Next cc Next sh ActiveWorkbook.Close 10 Fil = Dir Loop For sh = 1 To Sheets.Count Sheets(sh).Range("A1:H20").ClearContents For w = 1 To wb For n = 1 To mxCN If nm(w, n) = Sheets(sh).Name Then For cc = 1 To 8 ' Columns A:H For rr = 1 To 20 ' Rows Sheets(sh).Cells(rr, cc).Value = Sheets(sh).Cells(rr, cc).Value + A(w, n, rr, cc) Next rr Next cc GoTo 15 End If Next n 15 Next w Next sh Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.DisplayAlerts = True End Sub وهذا هو المجلد وبه ملفات مختلفة واوراق متشابهة الأسماء للتجربة تفضل المرفق Has100.rar

أخي / jazea لقد تم وضع السؤال بهذه الصيغة لذلك فلاداعي لفرض وضع لم يتم السؤال عنه اما إن كنت أنت تحتاج ذلك فيمكن إستخدام الدالة COUNTIF مع الشرط أن يكون التكرار 1 فقط بمعني ان يعيد كتابة الرقم عندما يكون تكراره في المجال من أعلي إلي هذه الخلية =1 ويتجاهل أي تكرار آخر أنظر المرفق test3.rar