طارق محمود

السلام عليكم إخواني الأعزاء الأفاضل : أبو آدم / أحمد زمان / bouallam جزاكم الله خيرا علي مروركم العطر وكلماتكم الطيبة

السلام عليكم بالمرفق الملف يحتوي علي كود الترحيل فقط إضغط الزر الأحمر نموذج.rar

تفضل فاتورة جديدة3.rar

السلام عليكم أخي الكريم بدلها بهذه =SUMPRODUCT(--(MOD($B$2:$B$19,3)=0),$B$2:$B$19)

السلام عليكم أولا : أهلا ومرحبا بك أخي الفاضل أحمد السيد ثانيا ماحدش قال اول ماتضغط قلنا دبل كليك وتأكد طبعا قبل ذلك ان الماكرو مُفّعّل عندك وأن أمان الماكرو أقل مايمكن

السلام عليكم أخي الكريم راجع الرابط التلي http://www.officena.net/ib/index.php?showtopic=41986&hl=&fromsearch=1

السلام عليكم أخي الكريم تفضل المرفق فاتورة جديدة2.rar

إن كنت تعني تكرار رؤوس الأعمدة (العنواين) عند النقل فيمكنك إضافة السطر التالي في آخر الكود Sheets(shName).Cells(LR, 1).EntireRow.Delete Shift:=xlUp

السلام عليكم لم أفهم أين الخطأ الذي يظهر ، لاأراه

السلام عليكم لابأس أخي لاداعي للإستئذان جزاك الله خيرا أخي / star knights تفضل أيضا المرفق وبه التصليح للسابق مستودع1.rar

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

السلام عليكم أخي الكريم لغيت الأزرار وجعلت لك ماتريد فقط دبل كليك علي الخلية التي بها الشهر بمعني أن الخلية A3 التي بها شهر1 ، إذا ضغطت عليها دبل كيك بالماوس سيخفي جميع الأعمدة ويظهر فقط تلك التي تخص هذا الشهر تفضل المرفق مستودع.rar

السلام عليكم أخي العزيز بالضغط علي الزر يتم حفظ الورقة "ORDER FORM" كصورة JPG في نفس الفولدر الذي تحفظ به الملف (لذلك لابد من حفظ الملف أولا) ويكون اسم ملف الصورة بنفس رقم الـ ORDER NO الموجود بالخلية A2 تفضل المرفق حفظ كصورة.rar

السلام عليكم شرح مفصل لكود الترحيل أولا يتم تحديد المطلوب كالتالي: في الورقة Data يوجد 10 أعمدة (B:K) تحتاج لنقل البيانات إليها من الورقة (Invoice) من الخلايا التالية بالترتيب كما يلي البيانات الخمسة الأولي البيان 01 وبه - رقم الفاتورة - بالخلية E7 البيان 02 وبه - التاريخ - بالخلية D8 البيان 03 وبه - اسم العميل - بالخلية D9 البيان 04 وبه - كود العميل - بالخلية F9 البيان 05 وبه - العنوان - بالخلية D10 أما البيانات الخمسة التالية فيتم التعامل معها طريقة أخري ، لأنها ليست في خلية واحدة أوعدد ثلبت من الخلايا البيان 06 إذن التسليم ، وحسب شكل الفاتورة قد يكون هناك أكثر من إذن تسليم واحد البيان 07 البيان ، وهذا أيضا محتمل أن يكون أكثر من واحد البيان 08 الكمية ، وهذه أيضا مثلهما البيان 09 السعر ، وهذا كذلك البيان 10 القيمة ، وهذه أيضا ثانيا للتعامل مع هذه البيانات الخمسة الأخيرة فلابد من معرفة كم صنف في هذه الفاتورة وأدق عمود لهذا الغرض هو عمود الكمية ، إذ يتم تحديد عدد الأصناف أو البيانات عن طريق أنه من الخلية E30 مثلا بالقفزللأعلي حتي يجد خلية بها بيانات وتكون هذه هي آخر كمية بالفاتورة فيسجل رقم هذا السطر LR إختصارا لـ Last Row ثم يبدأ في نقل البيانات الخمسة الأخيرة من السطر 12 إلي هذا السطر LR ثم يخيرك في مسح بيانات الفاتورة أم لا هذا هو الكود Sub Tarheel() 'قراءة البيانات الخمسة الأولي Dim d(5), x(5, 30) d(1) = [E7]: d(2) = [D8]: d(3) = [D9]: d(4) = [F9]: d(5) = [D10] 'نقل البيانات الخمسة الأولي للورقة داتا With Sheets("Data") DR = .[H10000].End(xlUp).Row + 1 'آخر صف بيانات جاهز لاستلام بيانات جديدة بالورقة داتا For i = 1 To 5 .Cells(DR, i + 1) = d(i) Next i End With LR = [E30].End(xlUp).Row 'قراءة ونقل البيانات الأربعة الأخيرة Range("C12:G" & LR).Copy Sheets("Data").Select Range("G" & DR).Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False [F2].Select Sheets("Invoice").Select Reply = MsgBox("تم ترحيل الفاتورة بحمد الله" & Chr(10) & "هل تريد مسح البيانات منها", vbYesNo) If Reply <> 6 Then Exit Sub Range("C12:F" & LR).ClearContents [E7] = [E7] + 1 Range("D8:D10, F9").ClearContents End Sub مرفق الملف وبه الجزء الأول (كود الترحيل) ولاحقا إن شاء الله كود الإستدعاء فاتورة جديدة .rar

السلام عليكم أنا لاأعلم عنه شيئا ولكن في اعتقادي أنه لابد له من درايفر وتنصيب شأن اي جهاز ملحق للكمبيوتر مثلا السكانر (أقرب الأجهزة له) يسألك عند التنصيب عن فورمات المستند المخرج منه (صورة JBG أو PDF أو ...) كما أنه يوجد برامج قارئ الباردكود لأجهزة الموبايل والايفون والله أعلم

السلام عليكم تفضل المرفق بصيغة 2003 مفكرة بالدين.rar

السلام عليكم تفضل المرفق وبه المطلوب فلتره1.rar

السلام عليكم أود ان أذكر أن أسباب كثيرة قد تؤدي لهذا ، منها مثلا (1) التحديث بأنواعه ، كما أفاد به أخونا العزيز / الشهابي، سواء كان من رباط لينك / هايبرلينك أو ببيانات من علي النت مثلا (2) أن يكون ضمن أحد خلايا الملف علاقة وقت مثل الدالة today() أو time() (3) بعض أكواد الحدث (حدث الملف / حدث الورقة) ، قد تكون بالملف

السلام عليكم أخي الكود كالتالي Sub TRANS() 'هذا يأتي بآخر عمود بالصف1 وفي حالتنا LC = [IV1].End(xlToLeft).Column ' Last Column For c = 5 To LC Step 4 'معناه أن نبدأ عملية النقل من العمود الخامس r = (Int((c - 4) / 4) + 1) * 6 + 1 'لنقله الي الصف r الذي يتم حسابه بمعلومية الرقم 4 وهو عدد الأعمدة Range(Cells(1, c), Cells(1, c).Offset(5, 3)).Cut (Cells(r, 1)) Next c End Sub يعني الرقم بعد Step هو عدد الأعمدة For c = 5 To LC Step 4 وكذلك المرتين للرقم 4 في السطر r = (Int((c - 4) / 4) + 1) * 6 + 1

السلام عليكم مرفق ملف أخونا الغالي أحمد زمان بالمشاركة #7 بعد تحويله 2003 مشتريا ومبيعات_أحمد.rar

السلام عليكم أخي العزيز مرفق تعديل في نطاق التنسيق الشرطي Book1_TAREQ.rar

السلام عليكم أخي الكريم بعد إذن أخي الفاضل/ أبوحنين قد يكون ماتحتاجه بسيط كما بالمرفق عليك بتسجيل البيانات الحقيقية أولا في الجدول مع مراعاة أن البيان الواحد إما دائن أو مدين ، يعني لو فيه مناسبة أخذت وأعطيت في نفس الوقت فتسجلها في سطرين بنفس التاريخ فإذا أخطأت سيتلون أوتوماتيكيا كلا منهما بالأحمر لينبهك لهذا كما بالسطر 10 إسم04 المعادلة بالعمود F تجلب رصيد هذا الشخص دائن أو مدين حتي يوم البيان المعادلة بالعمود G تجلب رصيدك أنت دائن أو مدين حتي يوم البيان ثم لمعرفة التفاصيل لإسم معين مثلا إسم01 فعليك بالتصفية (الفلتر) بالعمود B تفضل المرفق مفكرة بالدين.rar

السلام عليكم تفضل المرفق النقاط.rar

السلام عليكم تفضل المرفق فلتره.rar

السلام عليكم تفضل المرفق ، حجم فونطات الفورم كبيير دليل المرتبات7.rar