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

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

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

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

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

أخي الكريم أبو فادي .. رغم أن موضوعك من المفترض أن يكون سهل وبسيط إلا أنه يحتاج لمزيد من التفصيل ..والبيانات في الملف المرفق غير كافية للعمل عليها ينبغي عند إرفاق ملف أن توضع فيه بيانات لا تقل عن 10 صفوف لتجربة المعادلات عليها والتفصيل يكون كالتالي : الفرق من يوم لعشرة أيام .. الفرق من 11 لـ 20 يوم الفرق أكثر من 20 يوم (اللي التاريخ انتهي أصلاً من زمن زي مثلاً 1/6/2016) ولو كان اليوم هو نفس يوم تاريخ انتهاء الصلاحية (هتتعامل معاه إزاي) يعني خلاصة الكلام إحنا بين 4 احتمالات الاحتمال الأول الفرق بين تاريخ اليوم وتاريخ الصلاحية ( 1 : 10 ) الاحتمال الثاني الفرق بين تاريخ اليوم وتاريخ الصلاحية ( 11 : 20) الاحتمال الثالث الفرق بين تارخ اليوم وتاريخ الصلاحية (أكثر من 20 يوم ..منتهي على الإطلاق) الاحتمال الرابع أن يكون تاريخ اليوم هو نفسه تاريخ الصلاحية الاحتمال الخامس ألا يكون هناك فرق بين التاريخين يعني مثلاً 1/10/2016

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

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

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

الحمد لله أن تم المطلوب على خير أخي الكريم تحيا مصر وربنا يجازيك خير على دعواتك الطيبة المباركة ، ولك بمثلها إن شاء المولى وأي حاجة تحتاجها هنا هتلاقي إخوانك وعيلتك التانية .. تقبل تحياتي

كلمة السر saf ..أما حماية أوراق العمل فهذا أمر بسيط جداً وأي حد ممكن يساعدك في هذه النقطة

حظك حلو إن كلمة السر قصيرة وإلا كان الموضوع هيكون صعب وشبه مستحيل إليك الملف المرفق غير محمي على الإطلاق وتحيا مصر ، وعاشت مصر حرة مستقلة Unprotected.rar

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

أخي الكريم ضع الكود التالي في موديول عادي من هنا Sub Test() Dim myFile As String Dim lRow As Long Sheets("Sheet1").Range("A5:E25").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets("Sheet1").Range("C1:C2"), CopyToRange:=Sheets("Sheet2").Range("A6:E6"), Unique:=False myFile = "D:\Print\" & Sheets(2).Range("G4").Text & "-" & Sheets(1).Range("L3").Text & ".pdf" lRow = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1 Sheets(2).ExportAsFixedFormat Type:=xlTypePDF, Filename:=myFile MsgBox "Done...", 64 End Sub ثم ضع الكود التالي في حدث الفورم Private Sub CommandButton1_Click() Test End Sub تقبل تحياتي

أخي الكريم فايز راجع موضوع التوجيهات :: العنوان غير مناسب للمطلوب .. قسم المطلوب لطلب واحد فقط في كل موضوع لتجد استجابة أسرع .. أرجو من الأخوة الكرام مراعاة التوجيهات !! تقبل تحياتي

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

تحيا مصر تحيا مصر تحيا مصر لازم 3 مرات .. أخي الكريم الملف المرفق غير موجود يرجى إعادة رفعه مرة أخرى لعل وعسى أن تجد من يقدم لك يد المساعدة (أو حتى صوباع مش لازم ايد يعني ) تقبل تحياتي

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

لم أقصد التقليل من مساهمتك أخي وحبيبي أبو عيد أود أن أعرف ما قمت بعمله في الملف ..؟ أليست النتائج الخاصة بعدد الشاحنات الفائضة والناقصة موجودة بالفعل؟ ما هي فكرة الحل الذي قدمته؟ هذا هو سؤالي

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

عوداً حميداً أخي الكريم كله على الله ..المنتدى نور بوجودك تقبل تحياتي

وعليكم السلام لله الأمر من قبل ومن بعد .. أين الملف المرفق أخي الكريم خير الإيمان؟ بالملف المرفق تجد استجابة أسرع وفقك الله

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

أخي الكريم وائل عز الدين لقد أتعبني ملفك بسبب الرموز الخاصة الموجودة في العمود الثاني .. والحمد لله تغلبت على المشكلة بإزالة الرموز الخاصة أثناء تسمية المصنف أو ورقة العمل قم بإنشاء مجلد في نفس مسار المصنف باسم Output ثم ضع الكود التالي في موديول عادي ثم نفذ الكود .. Sub Export_Workbooks_Using_Filter() Dim A, I As Long, Dic As Object Const colNo As Long = 2 'Column Number Const sSheet As String = "MySheet" 'Sheet Name Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets.Add before:=Sheets(1) Set Dic = CreateObject("Scripting.Dictionary") Dic.CompareMode = 1 With Sheets(sSheet).[A1].CurrentRegion .Columns(colNo).Value = Application.Trim(.Columns(colNo).Value) A = .Value .Parent.AutoFilterMode = False For I = 2 To UBound(A, 1) If Not Dic.exists(A(I, colNo)) And Not IsEmpty(A(I, colNo)) Then Dic(A(I, colNo)) = Empty .AutoFilter colNo, A(I, colNo) .Copy Sheets(1).Cells(1) Sheets(1).Copy With ActiveWorkbook With Sheets(1) .Name = AlphaNumericOnly(CStr(A(I, colNo))) .DisplayRightToLeft = False .Columns.AutoFit End With .SaveAs ThisWorkbook.Path & "\Output\" & AlphaNumericOnly(CStr(A(I, colNo))) & ".xlsx" .Close End With Sheets(1).Cells.Clear .AutoFilter End If Next End With With Application Sheets(1).Delete .DisplayAlerts = True .ScreenUpdating = True End With MsgBox "Done...", 64 End Sub Function AlphaNumericOnly(strSource As String) As String Dim I As Integer Dim strResult As String For I = 1 To Len(strSource) Select Case Asc(Mid(strSource, I, 1)) Case 48 To 57, 65 To 90, 97 To 122, 32 strResult = strResult & Mid(strSource, I, 1) End Select Next I If Len(strResult) > 31 Then strResult = Mid(strResult, 1, 31) AlphaNumericOnly = Application.WorksheetFunction.Trim(strResult) End Function تقبل تحياتي

الحمد لله أن تم المطلوب على خير .. وأصبح الموضوع لا علاقة له بالأكواد ولا البرمجة إنما بتصميم ورقة العمل تقبل تحياتي

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