طارق محمود

السلام عليكم أخي الكريم عدل الكود ليصبح كالتالي Private Sub Worksheet_Activate() With Range("A1", Cells(Rows.Count, "A").End(xlUp)) Range("B1").Resize(.Rows.Count).Value = .Value End With End Sub

السلام عليكم أخي العزيز أنظر الفيديو المرفق Fill_Down.rar

السلام عليكم تفضل المرفق لو هو المطلوب حدد الموضوع مجاب لو ليس هو المطلوب يرجي شرح أكثر لمعيار النقل او الإعادة Classeur1_2.rar

السلام عليكم أخي العزيز غير المعادلة في B6 إلي =CELL("address",OFFSET(ورقة1!$A$1,MATCH(A6,ورقة1!$A$2:$A$5,0),0))

السلام عليكم أخي العزيز أنظر بالمرفق الأعمدة الثلاثة E,F,G لاحظ أنه : 1- يمكن عمل المعادلات الثلاثة مرة واحدة في عمود واحد ولكنني فضلت تفصيلها حتي تتابع سريان الأوامر 2- معادلاتك القديمة بالعمود D لم تكن تلبي الشرط المطلوب ، مثلا الموظف الثالث رقم الهوية 3333333 تاريخ التحاقه هو 3-Mar-15 لايوجد فيما ذكرت متوافقة مع تاريخ الالتحاق أرجو أن يكون هذا هو ماتريد وإلا فسر لي حالة هذا الموظف الثالث تفضل المرفق دالة IF لانهائي مع الالتزام بتاريخ الاتفاقية ورقمها.rar

حبيبي أبا البراء لابأس ولاإعتذار ولايحزنون كل عام وأنتم بخير أنا لاأنزعج أبدا من مداخلات الأحبة بل العكس يزيد ذلك من ثراء الموضوع

الكود التالي سيفي بالغرض Sub nnn() LR = [G9999].End(xlUp).Row For r = 6 To LR Cells(r, "G").GoalSeek Goal:=0.1, ChangingCell:=Cells(r, "F") Next End Sub

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

السلام عليكم إذا كنت قد ضبطتي الإكسل أو كان تلقائيا لديه حفظا تلقائيا وكان هذا آخر ملف تم العمل عليه بالجهاز ستجدي نسخة إن شاء الله من الملف في مكان الحفظ التلقائي مثلا عندي في الإكسل 2010 وحسب إسم اليوزر في الويندوز أجد ذلك كما بالصورة

السلام عليكم أخي الكريم في الملف المرفق مجموعة الاوامر المراد نقلها موجودة بالعمود H والكود المستخدم هو Sub SaveText() Application.ScreenUpdating = False Application.DisplayAlerts = False a = Format(Hour(Now), "00") & Format(Minute(Now), "00") new_F = ActiveWorkbook.Path & "\sample" & a & ".txt" Columns("H:H").Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues Columns("A:A").EntireColumn.AutoFit Application.CutCopyMode = False With ActiveWorkbook .SaveAs Filename:=new_F, FileFormat:=xlText .Save .Close End With Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub بالضغط علي الزر الاسود يبدأ بتنفيذ الكود حيث يأخذ نسخة من العمود H ويلصقها بملف جديد ويحفظ هذا الجديد بصيغة txt بإسم sample.txt مع الوقت بصيغة hhmm في نفس المجلد الموجود به الملف الأصلي فمثلا لو ضغطت علي الزر الساعة 9:50 ص سيكون اسم الملف sample0950.txt Sample.rar

طبعا إعمل بداية الفلتر (التصفية) من الصف 9

وعليكم السلام ممكن استخدام الفلتر العادي في هذه الحالة أنظر الفيديو المرفق filter.rar

تفضل أخي الكريم Aziz02.rar

السلام عليكم الاستكمال ، إتفقنا أن المعادلة =SUMPRODUCT(MAX((A2:A16=F1)*(B2:B16))) تأتي لنا بأقصي رقم ينتج عن حاصل ضرب شرط في قيمة حيث الشرط هو A2:A16=F1 و القيمة هي قيم المصفوفة B2:B16 ============================== وأعطانا الشرط False True False False False False False False False False False True False False False أو 0 ; 1 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 1 ; 0 ; 0 ; 0 والآن القيمة وهي قيم المصفوفة B2:B16 أي 1 ; 2 ; 5 ; 6 ; 2 ; 3 ; 3 ; 7 ; 8 ; 4 ; 5 ; 4 ; 9 ; 10 ; 6 بالترتيب إذن حاصل ضرب بالترتيب هو (0x1); (1x2); (0x5); (0x6); (0x2); (0x3); (0x3); (0x7); (0x8); (0x4); (0x5); (1x4); (0x9); (0x10); (0x6) = 0; 2; 0; 0; 0; 0; 0; 0; 0; 0; 0; 4; 0; 0; 0 أقصي رقم في هذا الناتج = 4 يعني ببساطة أنت تستطيع جلب أكبر قيمة في العمود B بلا مشاكل بالدالة MAX مثلا لكن الشرط ينتج عنه إما 0 أو 1 حسب مساواته للوصف المطلوب والدالة تضرب هذين ببعضهما وتأتي بأكبر حاصل ضرب

السلام عليكم أخي الحبيب لفهم المعادلة =SUMPRODUCT(MAX(($A$2:$A$16=F1)*($B$2:$B$16))) أولا إلغي علامات الدولار حيث تستخدم للتثبيت عند النسخ وليس هذا مجالها فستصبح المعادلة كالتالي =SUMPRODUCT(MAX((A2:A16=F1)*(B2:B16))) وهذه الدالة SUMPRODUCT كما نعلم لها أكثر من استخدام هنا في هذه الحالة هي تأتي لنا بأقصي رقم ينتج عن حاصل ضرب شرط في قيمة حيث الشرط هو A2:A16=F1 (تذكر أن F1 = "علاج اسرى") و القيمة هي قيم المصفوفة B2:B16 ============================== إذن الشرط هو متي تتساوي قيم A2:A16 مع F1 ولمعرفة ذلك ، إفرد أمامك قيم A2:A16 كالتالي {علاج شخصى - علاج اسرى - استعاضة - استعاضة - علاج شخصى - علاج شخصى - علاج اسرى - استعاضة - استعاضة - علاج شخصى - علاج شخصى - علاج اسرى - استعاضة - استعاضة - علاج شخصى} وردا علي السؤال متي تتساوي تلك القيم مع "علاج اسرى" "علاج شخصى" = F1 ; "علاج اسرى" = F1 ; "استعاضة" = F1 ; "استعاضة" = F1 ; "علاج شخصى" = F1 ; "علاج شخصى" = F1 ; "علاج اسرى" = F1 ; "استعاضة" = F1 ; "استعاضة" = F1 ; "علاج شخصى" = F1 ; "علاج شخصى" = F1 ; "علاج اسرى" = F1 ; "استعاضة" = F1 ; "استعاضة" = F1 ; "علاج شخصى" = F1 سيأتي الرد بالترتيب False True False False False False False False False False False True False False False أو 0 ; 1 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 1 ; 0 ; 0 ; 0 عفوا نستكمل لاحقا لانشغالي

أنا أضفت في الجزء العلوي nR = 6 10 If Cells(nR, "H").Value = "تم الترحيل" Then nR = nR + 1: GoTo 10 If nR > LR Then MsgBox "لن يتم الترحيل : برجاء ضبط العمود إتش": Exit Sub وأضفت في الجزء السفلي بعد End With WS.[H6].Value = "تم الترحيل" WS.Range("H6:H" & LR).FillDown

السلام عليكم أخي العزيز جرب التعديل التالي ، فأنا لم اجربه Sub Transfer() Application.ScreenUpdating = False On Error Resume Next Dim Cell As Range, T As String, LR As Long, LRT As Long Dim WS As Worksheet, Answer As Long Set WS = Sheets("1") LR = WS.Cells(35, 3).End(xlUp).Row nR = 6 10 If Cells(nR, "H").Value = "تم الترحيل" Then nR = nR + 1: GoTo 10 If nR > LR Then MsgBox "لن يتم الترحيل : برجاء ضبط العمود إتش": Exit Sub T = WS.Range("A3").Value Application.ScreenUpdating = False WS.Unprotect "2191612" If Not IsEmpty(WS.Range("C6")) Then With Sheets(T) .Unprotect "2191612" LRT = .Cells(Rows.Count, 3).End(xlUp).Row + 1 WS.Range("B" & nR & ":G" & LR).Copy .Cells(LRT, 2).PasteSpecial xlPasteValues .Protect "2191612" End With WS.[H6].Value = "تم الترحيل" WS.Range("H6:H" & LR).FillDown Sheets("1").Select ActiveWindow.SmallScroll Down:=-12 Range("A3,C6").Select Else MsgBox "الخلية المحددة فارغة لذا لن يتم تنفيذ الكود": Exit Sub End If WS.Protect "2191612" Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

السلام عليكم تفضل اكبر قيمة2.rar

السلام عليكم أخي الحبيب / أبوحنين شاكر مرورك طبعا وجزاك الله خيرا بالنسبة للمعادلة ، سأشرح واحدة والباقي مثلها صيغة المعادلة كالتالي: =LOOKUP(2,1/A,B) حيث A هي تاريخ دفعات ، B هي مبلغ الطلبية مثلا فيها تسأل الدالة LOOKUP أن تبحث لك عن الرقم 2 في المجال الناشيء عن قسمة 1÷تاريخ دفعات وحيث أن ناتج قسمة 1÷تاريخ دفعات سيكون دائما اقل من الواحد الصحيح فنحن نعلم مسبقا أن الاكسل لن يجد الرقم 2 الذي يبحث عنه وبالتالي سيأتي بآخر قيمة في العمود المطلوب وهو في هذا المثال (مبلغ الطلبية)

تفضل العمل.rar

لاتوجد مرفقات !!!!

السلام عليكم أخي العزيز أرجو مراجعة الموضوع التالي للعملاق أخونا الفاضل / محمد صالح http://www.officena.net/ib/index.php?showtopic=29748&hl=%D8%A8%D8%B1%D9%8A%D8%AF#entry148119 ستجد فيه إن شاء الله ماتريد وأكثر

السلام عليكم أخي العزيز لامجال للصورة هنا إضغط الملف الإكسل بأي من برامج الضغط winzip أو winrar ثم حمل الملف المضغوط لكي يقبل المنتدي الرفع الملف الإكسل سيسهل المشاركة علي كثير من الأعضاء

السلام عليكم أخي الحبيب هذا المطلوب سهل ولكنه عمل رتيب وقد لاحظت أن الأسماء لديك بضع وعشرون ومن المؤكد أن الأسماء الحقيقية أكثر بكثير وبدلا من إعادته مرة أخري ، إرسل جميع الأرقام لديك وإن كنت تخشي الخصوصية مثلا ، إرسل علي الخاص

السلام عليكم أخي الحبيب الملف الذي أرفقته فارغ لافيه ناجحين ولا راسبين وقبل كل شيء هلا بحثت في المنتدي أولا ، فهذا الموضوع تم تناوله عشرات المرات وستجد منها مايلائمك وزيادة علي سبيل المثال ، راجع الروابط التالية أولا http://www.officena.net/ib/index.php?showtopic=47534&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=48108&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1#entry290971 http://www.officena.net/ib/index.php?showtopic=48475&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=49908&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=57303&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=56035&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1#entry372775 http://www.officena.net/ib/index.php?showtopic=53659&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1 http://www.officena.net/ib/index.php?showtopic=44125&hl=%D8%AD%D9%85%D8%B1%D8%A7%D8%A1#entry256531