ياسر خليل أبو البراء

بعد إدخال المعادلة يرجى الضغط على Ctrl + Shift + Enter لأنها معادلة صفيف

قم باستبدال الفاصلة في المعادلة بفاصلة منقوطة الخطأ ليس في المعادلة إنما كل جهاز بيختلف إعداداته الإقليمية عن الآخر , ;

أخي الكريم أبو سما بافتراض أن البنود ثابتة بنفس الترتيب في ورقتي العمل إليك الكود التالي عله يفي بالغرض Sub SUMTwoSheets() Dim WS As Worksheet, SH As Worksheet Set WS = Sheets("المخزن"): Set SH = Sheets("إذن صرف") Application.ScreenUpdating = False Application.DisplayAlerts = False If MsgBox("سيتم جمع القيم في ورقتي العمل في العمود الخامس" & vbNewLine & "هل أنت متأكد من الاستمرار؟", vbYesNo) = vbNo Then Exit Sub Sheets.Add After:=Sheets(Sheets.Count) With ActiveSheet SH.Range("C8:C55").Copy .Range("A1") SH.Range("G8:G55").Copy .Range("A" & .Cells(Rows.Count, 1).End(xlUp).Row + 1) WS.Range("E4:E" & WS.Cells(Rows.Count, 2).End(xlUp).Row).Copy .Range("B1") With .Range("C1:C" & .Cells(Rows.Count, 1).End(xlUp).Row) .Formula = "=IF(AND(A1="""",B1=""""),"""",SUM(A1:B1))": .Value = .Value .Copy: WS.Range("E4").PasteSpecial xlPasteValues End With .Delete End With WS.Activate Application.CutCopyMode = False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبل تحياتي SUM Two Sheets.rar

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

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

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

كيف ستتم عملية الإرسال ؟؟ لأي ملف ستتم عملية الإرسال إذا لم يكن الملف قد تم تصديره من قبل ؟ أعتقد لابد من تصدير الملف أولاً ثم إرسال إيميل

أخي الحبيب علاء جرب معادلة الصفيف التالية في الخلية A4 للتعامل مع الشرطين =IF(ROWS(A$4:A4)<=SUMPRODUCT((البيانات!$F$2:$F$100=$B$1)*(البيانات!$C$2:$C$100=$B$2)),INDEX(البيانات!A$2:A$100,SMALL(IF((البيانات!$F$2:$F$100=$B$1)*(البيانات!$C$2:$C$100=$B$2),ROW(البيانات!A$2:A$100)-ROW(البيانات!$A$2)+1),ROWS(A$4:A4))),"") تقبل تحياتي

أخي الكريم خالد هلال إليك الملف التالي عله يفي بالغرض Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim LR As Long Set WS = Sheets("الإيصال"): Set SH = Sheets("اليومية") LR = SH.Cells(Rows.Count, 6).End(xlUp).Row + 1 Application.ScreenUpdating = False With SH .Range("A" & LR) = LR - 4 .Range("B" & LR) = WS.Range("G3") .Range("C" & LR) = WS.Range("G2") .Range("D" & LR) = WS.Range("B4") .Range("E" & LR) = WS.Range("B5") .Range("F" & LR) = (WS.Range("B6") - Int(WS.Range("B6"))) * 100 .Range("G" & LR) = Int(WS.Range("B6")) .Range("H" & LR) = WS.Range("D5") .Range("I" & LR) = WS.Range("B7") WS.Range("G3") = WS.Range("G3") + 1 End With MsgBox "تم الترحيل بنجاح", vbInformation Application.ScreenUpdating = True End Sub لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي كما لا تنسى أن تضغط أعجبني هذا إذا أعجبتك المشاركة وأدت الغرض تقبل تحياتي Tarhil YasserKhalil.rar

أخي الفاضل محمد غندور قمت بتحميل المرفق ولم أجد ورقة عمل للاستمارة الفردية .. يرجى إرفاق الملف مرة أخرى وبه النموذج المطلوب للاستمارة لتقديم يد المساعدة

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

أخي الحبيب سليم حلك يعد حل رائع ومثالي أنا عاشق للأكواد أكثر من المعادلات .. فلا تظن أن جهدك ضاع سدى ، لا والله ، لقد استفدت منه أنا شخصياً واحتفظت به في مكتبتي ، وأنا ولله الحمد لا أحتفظ إلا بالروائع من الأعمال أخي الحبيب علاء دائماً ما تزين الموضوعات بردودك المميزة والمثيرة (متفهمش كلمة مثيرة غلط) أقصد بمثيرة أنها محفزة للإطلاع عليها أكثر من مرة ، بارك الله فيك وجزيت خير الجزاء إن شاء الله ننتظر من الأخ الفاضل أبو سعود ملف مرفق به بعض النتائج المرفقة ليزيل أي تعجب وأي لبس ومتخافش من خبطي لراسي في الحيط (متعود على كدا)

أخي وحبيبي في الله علاء رسلان ربما يكون شيء مستحدث في علم الرياضيات لم نسمع به ... وفوق كل ذي علمٍ عليم أنا حاولت فهم الطريقة التي يتم بها حساب متوسط الزوايا من خلال المرفق لأبو لجين فقمت على أساسها بعمل الدالة المعرفة التي تؤدي المطلوب وإن شاء الله يفيدنا أخونا الكريم أبو لجين بمعلومات أكثر حول طريقة حساب متوسط الزوايا الدائرية

أخي الكريم يرجى تغيير اسم الظهور للغة العربية ويرجى الإطلاع على رابط التوجيهات في الموضوعات المثبتة في المنتدى لكيفية التعامل مع المنتدى بشكل جيد إليك الكود التالي عله يفي بالغرض Sub TestRun() Dim SHP As Shape, strX As String Dim lColLeft As Long, lColRight As Long Dim LR As Long Application.ScreenUpdating = False With Sheet1.Shapes(Application.Caller) If Mid(.Name, 1, 9) = "Rectangle" Then strX = Mid(.TextFrame.Characters.Text, InStr(.TextFrame.Characters.Text, ": ") + 2) lColLeft = .TopLeftCell.Column: lColRight = .BottomRightCell.Column With Sheet2 LR = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Range("A" & LR).Value = strX .Range("B" & LR).Value = Sheet1.Cells(2, lColRight).Value .Range("C" & LR).Value = Sheet1.Cells(2, lColLeft).Value End With End If End With Application.ScreenUpdating = True End Sub يتم ربط الشكل بالكود عن طريق كليك يمين ثم Assign Macro ثم اختيار اسم الماكرو TestRun لا تنسى أن تحدد أفضل إجابة إذا أعجبتك المشاركة كما لا تنسى أن تضغط كلمة "أعجبني هذا" إذا أعجبك المحتوى تقبل تحياتي وتوجيهاتي Application Caller & Shapes YasserKhalil.rar

أخي الكريم أيمن الكود بهذا الشكل لا يتطلب تحديد أعمدة بعينها .. إذا كان الأمر مختلف فيرجى إرفاق ملف معبر عن طلبك للإطلاع عليه تقبل تخياتي (الخاء مقصودة)

تم التعديل في المشاركة رقم 4 .. يرجى مراجعة التعديل وموافاتنا هل أدى الغرض أم لا؟

جرب المعادلة التالية في الخلية F4 =SUM('إذن صرف (2):إذن صرف (4)'!$C$8)

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

أخي الكريم أقواس الكود توجد في محرر الكتابة عند عمل مشاركة بهذا الشكل <> ... تعمل على العلامة دي كليك وتلصق الكود فيها جرب الكود بهذا الشكل Private Sub Workbook_Open() Sheet4.Visible = True With Sheet4.Range("AH1", Sheet4.Cells(Rows.Count, "AH").End(xlUp)) Sheet4.Range("AM1").Resize(.Rows.Count).Value = .Value End With Sheet4.Visible = False End Sub

أخي الحبيب أبو حنين توضع الأكواد بين أقواس الكود والتي تكون بهذا الشكل من خلال محرر الكتابة <> ابحث عن هذا الشكل جرب الكود التالي ..لم أجرب الكود Sub PDF_SALAM() Dim MyName As String MyName = "D:\MANAFIST TAREK\PDF\MANAFIST TAREK TO SALAM_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf" Range("C45").Select Range("C45").Select Sheets(Array("زراعى", "صحراوى", "طائرة")).Select Sheets("طائرة").Activate If MsgBox("هل تريد إرسال الملف المرفق إيميل أم لا؟", vbYesNo, "Send Email") = vbNo Then GoTo 1 OutlMail_PDF MyName, "Mohamed.Tawfek@khalda-eg.com;Mohamed.Amria@khalda-eg.com;mohamed.abonour@khalda-eg.com", "مانفست حقول طارق", _ vbNewLine & "مع تحيات ..إدارة الشئون الادارية بحقول طارق", False 1 MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:\MANAFIST TAREK" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Else MsgBox "لم يتم الحفظ" End If Sheets("طائرة").Select ActiveWindow.SmallScroll Down:=-12 Range("B5").Select End Sub Function OutlMail_PDF(FileNamePDF As String, StrTo As String, StrSubject As String, StrBody As String, Send As Boolean) Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = StrTo .CC = "" .BCC = "" .Subject = StrSubject .Body = StrBody .Attachments.Add FileNamePDF If Send = True Then .Send Else .Display End If End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Function شوف أنا وضعت الكود بين أقواس تنصيص عملت كليك على العلامة <> ثم لصقت الكود بداخله (ولكن يراعى عند نسخ الكود أن يكون اتجاه الكتابة باللغة العربية حتى لا تظهر اللغة العربية بحروف غريبة) تقبل تحياتي

الحلول المقدمة ممتازة ولكنها لا تفي بالغرض بالفعل الحلول المقدمة ممتااااااااااااااازة جداً وخصوصاً معادلة الصفيف للأخ خالد فهي تقوم بالمطلوب بدون أعمدة مساعدة ... الحلول ممتازة (أنا براجع الكلمات بس عشان أتأكد) ... وكيف تكون ممتازة وهي لم تؤدي الغرض ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ أخي الفاضل ..وجب عليك قراءة التوجيهات من هذا الرابط الأمر لن يكلفك أكثر من 5 دقائق لتتعرف كيفية التعامل مع المنتدى بشكل جيد اضغط ملفك الأصلي الذي تود العمل عليه بعد ضغطه لابد أن تتضح الأمور كي لا يضيع وقت وجهد الآخرين هباءً

أخي الكريم أيمن إبراهيم شوف مشاركة الأخ الفاضل خالد الرشيدي رقم 2 وشوف مشاركتك رقم 3 ركز على الجزء اللي فيه كلمة "أعجبني هذا" هتلاقي إنك معملتش إعجاب للأخ الحبيب خالد مع إنه يستاهل ، وهو عمل إعجاب على ردك اللي بتشكره فيه (عجبت لك يا أستاذنا أيمن ... متفوتش عليك دي) تقبلوا وافر تقديري واحترامي

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

أخي الكريم طائع الملحوظة ليست في محلها جربت الكود مرة أخرى ووضعت بيان الـ غ في خلايا مختلفة في الأعمدة التي يتعامل معها الكود والكود يضع دوائر حمراء بها يرجى مراجعة النتائج بشكل جيد

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