طارق محمود

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

السلام عليكم تفضل أخي الملف المرفق به الكود مشروح ولو أردت زيادة في الشرح فلاتتردد شرح الكود2.rar

السلام عليكم أخي العزيز بعد إذن أخي الحبيب / رجب الكود بعد تنظيم قليل سيكون كالتالي Sub rajab() Dim ws As Worksheet Dim cl As Range Range("B3:H50").ClearContents For Each ws In ThisWorkbook.Worksheets For Each cl In ws.[F3:F136] If cl = [O13] And cl.Offset(0, 3).Value = [P13].Value Or (cl = [P13] And cl.Offset(0, 3) = [O13]) Then cl.Offset(0, -3).Resize(1, 7).Copy Range("B" & [E1000].End(xlUp).Row + 1).PasteSpecial xlPasteValues End If Next Next Application.CutCopyMode = False [A9].Select End Sub قد يسهل هذا التنظيم عملية متابعة الكود حدد مالم تفهمه بالكود أم أنك مازلت تريد شرحه كله

السلام عليكم أخي الحبيب تفضل الملف وبه الكود Suppliers2012_2.rar

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

السلام عليكم أخي العزيز شاهد الفيديو المرفق Text_2_Column.rar

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

السلام عليكم أخي إبراهيم تفضل المرفق وبه شرح الكود بالتفصيل شرح الكود.rar

السلام عليكم هذا هو الكود في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub Range("D1:D" & [D10000].End(xlUp).Row).ClearContents [D3] = " " 5 LR = [D1000].End(xlUp).Row For Each ce In [A4:A150] If ce.Value = "" Then GoTo 10 For r = 4 To LR If ce.Value = Cells(r, "D").Value Then GoTo 10 Next r Cells(LR + 1, "D").Value = ce.Value: GoTo 5 10 Next ce End Sub تفضل أخي أيضا المرفق وبه الكود المطلوب استخراج الاسماء الجديده.rar

السلام عليكم أخي الكريم تفضل الكود التالي Sub chooose() 5 LR = [D1000].End(xlUp).Row For Each ce In [A4:A150] If ce.Value = "" Then GoTo 10 For r = 4 To LR If ce.Value = Cells(r, "D").Value Then GoTo 10 Next r Cells(LR + 1, "D").Value = ce.Value: GoTo 5 10 Next ce End Sub

السلام عليكم أخي / رعد بالنسبة للجزء الأخير من طلبك "توضيح الامر لي خطوة بخطوة ( من فتح محرر الاكواد وكتابة الكود والحفظ) يفضل ان يكون هناك فيديوا صغير يوضح ذلك " أرجو أن تبحث في المنتدي فستجد الكثير من الدروس والكورسات المرتبة والتي ستساعدك لتكون من عمالقة الأكواد قريبا بإذن الله فأنا أشعر بنهم كبير في سؤالك ، وفقك الله لما فيه الخير وكمساعدة في البحث، تفضل هذ الرابط لأخونا العزيز أبو هاجر المصري ، حفظه الله http://www.officena....يك وهذا رابط آخر للعملاق أباتامر ، حفظه الله http://www.officena....يك وهنا رابط ثالث لأستاذنا الجليل هادي ، حفظه الله http://www.officena....يك

السلام عليكم أخي / رعد لايوجد مرفق أرفقت لك أنا صورة بها أشكال الأيكونات للإمتدادات المختلفة من إكسل 2007 ، 2012 الإطار الأخضر للإمتداد xlsx والإطار الأزرق للإمتداد xlsm والإطار الأحمر للإمتداد xlsb

السلام عليكم أخي الحبيب / محمود لاإستأذان في الخير لكني تسرعت بالرد الأول ولكن الرد الثاني إن شاء الله مضبوط الأخ / رعد مرفق أيضا فيديو قصير للغرض نفسه XLSM.rar

السلام عليكم معذرة أخي عند حفظ الملف إحفظ بإسم Save As - F12 ثم إختر الإمتداد xlsm بدلا من xlsx

السلام عليكم أخي العزيز الرسالة تعني أن الماكرو غير مُفعًل أي أن مستوي أمان الماكرو لابد ان يتم ضبطه لأقل مايمكن راجع الصورة المرفقة بالمشاركة رقم 29 من الموضوع التالي http://www.officena.net/ib/index.php?showtopic=37047&st=20&hl=+%D9%85%D8%B3%D8%AA%D9%88%D9%8A%20+%D8%A3%D9%85%D8%A7%D9%86#entry197648 أو الصورة المرفقة بالمشاركة رقم 5 من الموضوع التالي http://www.officena.net/ib/index.php?showtopic=31255&hl=+%D9%85%D8%B3%D8%AA%D9%88%D9%8A%20+%D8%A3%D9%85%D8%A7%D9%86#entry158878

السلام عليكم أخي العزيز يرجي مراجعة الرابط http://www.officena.net/ib/index.php?app=downloads&showfile=99 أو http://www.officena.net/ib/index.php?showtopic=32359

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

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

السلام عليكم أخي العزيز حسب فهمي لفكرة الباركود انه عبارة عن تحويل الأرقام إلي ثنائية إما 0 أو 1 أنظر المرفق (حسب فهمي) إذا كان مضبوط أكمل معك أنا أو من أراد المشاركة من الأعضاء وإلا حاول تقربه أكثر لمن أراد المساعدة يوجد مشكلة في رفع الملف تفضل الملف علي الرابط: http://www.4shared.com/rar/x9cr4cwx/_online.html

أخي العزيز هذه المشكلة الأولي في إعدادات الملف الإكسل (الهوامش) وصفحة الطباعة ، لابد ان تكون مطابقة لأبعاد الشيك أما هذه المشكلة الثانية فهي إعدادات الطابعة نفسها ويتوقف حسب نوعها ولكن مبدئيا من print Setup أو Printer Proprieties

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

السلام عليكم تفضل أخي المرفق المكافئة.rar

السلام عليكم أخي الكريم أنظر الحل المرفق بالجداول المحورية Exg101_2.rar

السلام عليكم أخي العزيز أبوجادالله أنت عضو قديم يا أخي الكريم ولابد من الإلتزام بقواعد المشاركة ولكن سأغير العنوان لك ونتمني ألا تتكرر المخالفة قواعد المشاركة فى الموقع و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. بالنسبة لحل المطلوب في الملف المرفق فقط بدل المعادلة في الخلية BO6 بالتالية =IF((G6*7.5/1000)>=0.5,(G6*7.5/1000)-0.5,0) وانسخها لباقي العمود BO

السلام عليكم أخي العزيز الآن أحمل المرفقات وبالطبع كما يبدو من الطلبات تحتاج وقت صبر جميل