طارق محمود

السلام عليكم تفضل أخي الملف به ماطلبت فاتورة2.rar

إضغط الملف أي اعمل منه نسخة مضغوطة باستخدام winrar أو winzip مثلا وارفع النسخة المضغوطة

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

السلام عليكم أخي العزيز استخدم في التنسيقات المخصصة التنسيق B2ddd;@ أو انظر المرفق Arabic Days.rar

السلام عليكم يمكنك استخدام المدي الديناميكي لاستبدال الفورميلا الطويلة بأقصر منها مثلا =IF(AND(BB,MID(L8,1,2) ... بدلا من =IF(AND(MID(D22,1,2)="MH",MID(L8,1,2) .... بعد تعريفك للمتغير BB بنفس المعامل وهذا أيضا يسهل عليك الإنشاء للمعادلة وعلي غيرك تتبع المنطق فيها الفيصل هو طول الفورميلا وليس عدد الشروط أنظر المرفق وأكمل أنت IF Function2.rar

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

السلام عليكم أخي العزيز تفضل المرفق به ماطلبت فقط اضغط الزر "ترحيل وطباعة" TRHIL&PRINT2.rar

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

السلام عليكم أهلا ومرحبا أخي الكريم الموضوع بسيط وميسر بإذن الله (مجاني) إبدأ أولا بالبحث والإطلاع في هذا المنتدي وإليك بعض الروابط لدورات أو مواضيع ذات صلة وستجد غيرها الكثير بالبحث إن شاء الله http://www.officena.net/ib/index.php?showtopic=39323 http://www.officena.net/ib/index.php?showtopic=29207&hl=%D8%AF%D9%88%D8%B1%D8%A9 http://www.officena.net/ib/index.php?showtopic=33308

السلام عليكم وضعت من عندي بعض البيانات الافتراضية أكثر من 200 إسم وطبعا ستزيد مدة التنفيذ إذا كانت الأعداد كبيرة تفضل أخي الملف به المطلوب N Excel2.rar

السلام عليكم أخي العزيز / عبد الرحمن =============== لو ترسل الملف به بيانات ولو غير حقيقية ليسهل علينا تخيل المعالجة للملف من حيث الأصناف واكوادها ورصيد اول المدة والسعر الحالي يعني إملأ بعض البيانات وأعد إرسال الملف

السلام عليكم أخي العزيز عدلت قليلا علي الملف وباستخدام كود صغير في حدث الورقة والذي يتم تفعيله أوتوماتيكيا مع النقر مرتين (دبل كليك) Double Click علي الخلايا المقصودة بمعني أنك إنقرت مرتين بالماوس علي أي من خلايا ساعة الدخول أو ساعة الخروج سيتم تسجيل وقت نفس اللحظة في الخلية التي تقف عندها ولن يحدث هذا إلا عند خلايا ساعة الدخول أو ساعة الخروج هذا هو الكود c = Target.Column r = Target.Row LR = [C9999].End(xlUp).Row If c <> 5 And c <> 7 Then Exit Sub If r < 4 And r > LR Then Exit Sub Target.Value = Time تفضل الملف eee2.rar

السلام عليكم أخي الكريم "كونك محتاج لترقيم صف المجاميع" طبعايمكنك عمل تعديل الشرط ليكون علي خلايا بها بيانات مثل C أو D . بالنسبة لترقيم صف المجاميع تستطيع ان تجعله نصف Auto بخطوات قليلة أولا تنشط الفلتر كما فعلت وتختار صفوف المجاميع (مثلا من أعمدة بها بيانات مثل C أو D ، تختار الفارغ) ثانيا تقف علي أول خلية في صفوف المجاميع وفي حالتنا هذه هي A12 وتكتب فيها يدويا : =A11 أي تساوي ماتعلوها ثم تعلم (تظلل) الخلايا المشابهة [A12:A29] "وأنت مازلت في حالة الفلتر" وأخيرا إضغط Ctrl-D هذا الأمر ينسخ الخلايا الظاهرة فقط

لايوجد ملف مرفق

أخي الحبيب / إبراهيم ابوليله جزاك الله خيرا شاكرا مرورك الجميل ===================== أخي الحبيب / ياسر خليل أخي الحبيب / محمد لطفي جزاكما الله خيرا علي حسن الظن والكلمات الطيبة لو تيسر الوقت سأفعل إن شاء الله ​

السلام عليكم أرجو أن أكون فهمت المطلوب تفضل المرفق CUM2.rar

السلام عليكم إذا اعتمدنا علي أن العمود الأول من الجدول لن يكون به بيانات في حالة أن يكون الصف تجميعي يمكنك عمل تنسيق شرطي كالتالي =$A11="" وتضع ماتشاء من تلوين وتكبير وخلافه حين يتحقق الشرط انظر المرفق aaaa2.rar

السلام عليكم أخي العزيز السطر التالي من الكود يتم تنفيذه أثناء تنشيط الورقة الأولي "فاتورة بيع" Dt = [J12]: BillN = [F14]: Tr_C = [J14]: Clnt = [J15]: n = LR - 17 وهو عبارة عن 5 أوامر مجتمعة يكافيء التالي Dt = [J12] BillN = [F14] Tr_C = [J14] Clnt = [J15] n = LR - 17 وكل جزء يأخذ قيمة من الورقة ويسجلها لنقلها فيما بعد للورقتين التاليتين أما الجزء n = LR - 17 بالتحديد فهو يعتمد علي أن أول بيانات مكتوبة بالورقة ستكون بالصف 18 فإذا لم يكتب بالفاتورة غير صنف واحد فيكون آخر صف LR = 18 وستأخذ n القيمة n = 18 - 17 =1 وهكذا فالمتغير n يعبر عن عدد الأسطر في الفاتورة ======================= الشق الثاني nr + n - 1 وهذا يحدث في الورقتين الأخريتين بعد أن تكون نسخت البيانات وسجلتها كما سبق ولفهم هذه الجزئية لترجع قليلا في الكود ستجد الأوامر كالتالي nr = [F9999].End(xlUp).Row + 1 أي أن nr سيأخذ قيمة رقم الصف الجديد الجاهز للبيانات في تلك الورقات new row وعند الخلية التي بهذا السطر الجديد وتكون بالعمود F يتم لصق قيم لماسبق نسخه Cells(nr, "F").PasteSpecial Paste:=xlPasteValues ثم بفرض أن عدد أسطر الفاتورة التي يتم نقلها 3 إذن الصيغة التالي Range("E" & nr & ":E" & nr + n - 1) = Clnt تضع قيمة العميل Clnt في الأسطر الثلاثة بالعمود E والتي تبدأ من الصف الجديد الجاهز للبيانات مثلا إذا آخر الصف الجديد الجاهز للبيانات =20 وعدد أسطر الفاتورة التي يتم نقلها = 3 إذن Range("E" & nr & ":E" & nr + n - 1) = Clnt تعني Range("E" & 20 & ":E" & 20 + 3 - 1) = Clnt أي Range("E20:E22") = Clnt

بارك الله فيك أخي الحبيب الغالي / ياسر خليل مرورك الكربم شرف عظيم

السلام عليكم تفضل أخي الملف وبه ماطلبت فاتورة ويومية مبيعات2.rar

تفضل الملف به الشرح مشاكل نموذج الدوائر الاولي3.rar

السلام عليكم شاكر لكم جميعا مروركم العطر وكلماتكم الطيبة ================================= الأخ الفاضل / aysar_0078 تجد بالمرفق أخي شيت جديد لشرح الحل تفضل تجربة2.rar

أنا بالفعل عدلت بعض الأشياء لتوحيد الأسماء تفضل الملف بعد الحل نموذج الدوائر الاولي2.rar

السلام عليكم أخي الكريم بداية لابد من توحيد الألفاظ ليتعرف عليها الأكسل مثلا في الورقة الأولي "قتل" والثانية "قتـــل" لن يتساويا في الاكسل ثانيا سأرد عليك قريبا إن شاء الله

السلام عليكم أخي الكريم 1- سأغير عنوان الموضوع ليكون ملتزما بقواعد المشاركة أرجو الالتتزام في المستقبل 2- تفضل المرفق به ماطلبت وأكثر تجربة.rar