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

أخي الحبيب الغالي مختار مشكور على مرورك العطر .. بس للعلم كانت الولادة طبيعية ، بقولك داية دااااااااااااااية وركز ، مفيش داية بتولد قيصري !! (فاتتك دي المرة دي) تقبل تحياتي

السلام عليكم ورحمة الله وبركاته إخواني الأحبة في المنتدى الأغر إليكم معادلة بسيطة جداً تقوم بتوليد تواريخ عشوائية بين تاريخين .. بفرض أن تاريخ البداية في الخلية A2 وتاريخ النهاية في B2 فإن المعادلة تكون بهذا الشكل : =RANDBETWEEN(DATE(YEAR($A$2),MONTH($A$2),DAY($A$2)),DATE(YEAR($B$2),MONTH($B$2),DAY($B$2))) الدالة Randbetween تقوم بتوليد أرقام (شغالة داية ..بس الحكومة بتطاردها) .. وبما إن التواريخ عبارة عن أرقام تسلسلية في الأساس ، فإنه يمكن استخدام الدالة لتوليد تواريخ عشوائية بين تاريخين. الدالة لها عدد 2 بارامتر : البارامتر الأول عبارة عن البداية (Bottom) أو الحد الأدنى أو القاع (كل الترجمات مقبولة .. المهم المعنى يكون واضح) والبارامتر الثاني عبارة عن النهاية (Top) أو الحد الأعلى أو القمة (وهقول مرة تانية كل الترجمات مقبولة ، والحمد لله مقبولة اتجوزت وعندها عيال على وش جواز) المهم .. ما بين البداية والنهاية ، تقوم الدالة بعملية التوليد .. وإن شاء الله العملية تنجح (ونضحي بالأم والجنين عشان الداية تعيش) هنا تم استخدام الدالة Date والتي لها ثلاثة بارامترات الأول خاص بالسنة والثاني خاص بالشهر والثالث خاص باليوم .. أرجو أن تكون الدالة مفيدة لكم كان معاكم أخوكم أبو البراء (من بيت الحاجة أم عنايات الداية ...) دمتم على طاعة الله Random Dates Between Two Dates.rar

الأخ الفاضل أبو مريم يرجى فيما بعد الاكتفاء بطلب واحد فقط .. كما يرجى مراجعة التوجيهات إليك الكود التالي Sub Tarhil() Dim WS As Worksheet, SH1 As Worksheet, SH2 As Worksheet Dim Rng1 As Range, Rng2 As Range, Rng3 As Range Dim LRSH1 As Long, LRSH2 As Long Set WS = Sheets("SalesForm"): Set SH1 = Sheets("SalesInvH"): Set SH2 = Sheets("SalesInvT") Set Rng1 = WS.Range("B1:B7"): Set Rng2 = WS.Range("E1:E6"): Set Rng3 = WS.Range("G1:G6") LRSH1 = SH1.Cells(Rows.Count, 1).End(xlUp).Row + 1 LRSH2 = SH2.Cells(Rows.Count, 1).End(xlUp).Row + 1 Application.ScreenUpdating = False Rng1.Copy SH1.Range("A" & LRSH1).PasteSpecial xlPasteValues, , , True Rng2.Copy SH1.Range("H" & LRSH1).PasteSpecial xlPasteValues, , , True Rng3.Copy SH1.Range("N" & LRSH1).PasteSpecial xlPasteValues, , , True WS.Range("B11:J11").Copy SH2.Range("G" & LRSH2).PasteSpecial xlPasteValues WS.Range("B1:B5").Copy SH2.Range("B" & LRSH2).PasteSpecial xlPasteValues, , , True SH2.Range("A" & LRSH2).Value = LRSH2 - 1 Application.CutCopyMode = False Application.ScreenUpdating = True End Sub بالنسبة للطلب الثالث غير مفهوم ، لأنك لم توضح ورقة العمل المطلوب العمل عليها .. Sales Tax V5.rar

يا حبذا لو أرفقت بعض النتائج ليسهل العمل على الملف

أخي الحبيب ياسر فتحي فينك مشغول عننا ليه اليومين دول . لعله خير مشكور على مرورك العطر تقبل ودي واحترامي

هذا الموضوع مشابه تماماً لموضوع الأخ مختار http://www.officena.net/ib/index.php?showtopic=60923 فوجب عليا الاعتذار .. للأخ الحبيب الغالي مختار .. وربنا يكفيني ويكفيه شر النار .. ويجعلنا من الصالحين الأبرار .. ويديم علينا نعمه ليل ونهار .. ويبعد عننا الأشرار .. ودلوقتي بقا فيه موضوعين عشان محدش يحتار ..ويكون الموضوع منتهي وبعديها مفيش أعذار .. والحمد لله القوي الجبار .. وفي الختام سلامي لإخواني الأحرار .. عجبتني القافية فقلت أكمل يا عبد الستار تقبلوا تحياتي

لو كان عندي ويندوز 64 بت كنت جربته من غير ما تقول يا مخ ..إنت حبيبي وغالي على قلبي بس إن شاء الله يشتغل مع الناس اللي عندهم 64 بت تقبل تحياتي

الأخ الفاضل أحمد مرجان جرب الملف التالي وإن شاء المولى يفي بالغرض Grab Data From CLosed Workbook YasserKhalil.rar

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

بارك الله فيك أخي مختار أيوا افتكرتك النهاردة لما جه في بالي الكود ده بس بصراحة نسيت عنوان الموضوع عشان أبحث عنه راجع الرابط ده عشان تتأكد إني افتكرتك http://www.officena.net/ib/index.php?showtopic=60900 والحمد لله بعد ما نصحتني أشتغل على 2010 خدت بنصيحتك واشتغلت على 2013 ومشكور على النصيحة أخي الحبيب مختار تقبل تحياتي

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

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

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

افتح الفورم واعمل دبل كليك على كلمة "بحث" هتلاقي في آخر الكود الخاص بزر الأمر هذا الجزء With Me.ListFind For Counter = 0 To .ListCount - 1 SumResult = SumResult + .Column(3, Counter) Next Counter End With TextBox1.Value = SumResult هذا الجزء تمت إضافته بحيث يحقق طلبك أما بخصوص استفسارك عن رقم العمود .. يبد أالعد من الصفر ، وبالنظر إلى الـ ListBox ستجد أن رقم العمود المراد جمعه هو العمود الرابع أي أنه رقم 3 حيث أن العد كما قلت يبدأ من الصفر ولا تنسى أخي الكريم ان تحدد الإجابة التي أعجبتك كأفضل إجابة ليظهر الموضوع مجاب تقبل تحياتي

الرجاء الصبر جاري العمل على الملف لكنه سيستغرق بعض الوقت وقول ربنا يسهل

أخي الفاضل أكرم جلال راجع الرابط http://www.officena.net/ib/index.php?showtopic=60147 التوجيه السادس إليك الملف المرفق عله يكون المطلوب Search UserForm Magic.rar

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

بالمناسبة أخ وليد إذا كانت هناك أكثر من إجابة أعجبتك فعليك بعمل مرفق يجمع بين الإجابتين وإرفاقه وتحديد المشاركة التي فيها الملف المرفق الذي يجمع الإجابتين كأفضل إجابة ليسهل على الباحث فيما بعد التعامل مع الموضوعات راجع التوجيه الثامن على الرابط http://www.officena.net/ib/index.php?showtopic=60147

الأخ محمد أبو البراء كلنا هنا نتعلم من بعضنا البعض بارك الله فيك وجزاك الله خيرا الأخ وليد يرجى تحديد الإجابة التي أعجبتك كأفضل إجابة ليظهر الموضوع منتهي وجاب التزم بالتوجيهات

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

الأخ الحبيب محمد أبو البراء بارك الله فيك وعذراً أني لم ألحظ مشاركتك حيث أن الانترنت اليوم بطيء جداً

الأخ الفاضل وليد إليك الملف التالي عله يفي بالغرض (مع العلم أن الملف المرفق من قبلك به مشكلة من نوع ما ...لا أدر ما هي) عموما جرب التالي Mod Function.rar

السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى الأغر إليكم الكود التالي الذي يقوم بإغلاق المصنف دون حفظ التغييرات ثم يقوم الكود بإعادة فتح المصنف مرة أخرى. قم بإدراج موديول جديد وضع فيه الكود بهذا الشكل Sub MyClose() Application.OnTime Now + TimeValue("00:00:01"), "DoneMessage" ThisWorkbook.Close False End Sub Sub DoneMessage() MsgBox "Done!" End Sub وتم تعيين مفتاح ctrl + z ليقوم بتنفيذ الكود كاختصار للتنفيذ تم تعيين المفتاح عن طريق الضغط على Alt + F8 ثم النقر على Options خيارات ثم من النافذة نكتب حرف الـ z فقط بدون الضغط على الزر Shift ...ثم أوك أتمنى أن تستفيدوا من الكود وإليكم الملف المرفق دمتم بود أخوكم أبو البراء Close Without Save & Reopen Workbook.rar

ولو العناوين هي لأيام السنة فرضا ..لأيام السنة كلها فكيف يصل عدد الأعمدة إلى 546 عمود ..المفروض يكون 365 أو 366 + الثلاثة أعمدة الأساسية اعذرني للتدقيق في الملف فهذا من شأنه أن يساعد على تحسين الأداء إذا أردت ولكي يسهل على من يريد المساعدة ..

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