طارق محمود

السلام عليكم اخي الكريم لعمل ذلك ، أضف السطر التالي بعد أول 3 أسطر في الكود الثاني Range("A2", [M2000].End(xlUp)).ClearContents ليصبح Sub Shet_Collect() x = Worksheets.Count Worksheets("TOTAL").Select Range("A2", [M2000].End(xlUp)).ClearContents Range("B1").Select .. كما ارجو توضح هذا الكود وليش I ؟ يجوز وضع اي متغير وليس I بالتحديد ، المهم ألا تكون مستعملا لنفس الإسم في ذات الوقت والمهم طبعا أن تنهي دائرة For - Next لنفس الحلقة ، Loop يعني For i = ... .. ... Next i وليش Filename:=a ؟؟ لأن السطر الذي قبلها هو a = ThisWorkbook.Path & "\" & z(i) & ".xls" وطبعا ينفع أيضا اي متغير وليس a بالتحديد ، المهم ألا تكون مستعملا لنفس الإسم في ذات الوقت

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

الاخ طارق رائع فعلا عندى سؤال فى الموضوع دا لو عاوز البحث يكون فى عدد كبير من الشيتات او الورق عندى نفس المشكله بس اكتر من 100 شيت اكون شاكر ليك احترامى السلام عليكم أخي الكريم لن تنفع المعادلات في حالة كثرة الشيتات ولكن تنفع الأكواد مثلا هذا الكود Sub All_Sheets_search() x = Worksheets.Count For i = 1 To x Worksheets(i).Select SSSS Next i End Sub مع إستبدال SSSS يمعادلة أو برنامج البحث

بسيطة تغير المجال الذي بين علامات الدولار في المعادلة من =VLOOKUP($B13,ورقة2!$B$13:$F$34,D$11,0) إلي =VLOOKUP($B13,ورقة2!$B$13:$F$1034,D$11,0) الممارسة الصبر قراءة المشاكل وحلولها في المنتدي وطبعا تتخير المشاكل التي تتوافق مع ماتعمل به او ميولك

طبعا يمكن بأكثر من وسيلة أول وسيلة إضغط زر PRINT SCREEN ثم إعمل لصق او Past في ملف آخر حتي ولو لم يكن إكسل ثم قصقص وضبط قبل الحفظ وسيلة اخري أن تطبعها عل طابعة وهمية WIindos-Image غالبا ماتكون موجودة بنظام الويندوز

السلام عليكم أهلا ومرحبا بك اخي بين اخوتك تفضل المرفق وبه الشرح Book0-1.rar

في الرابط السابق ستجد أيضا مجموعة كتب أخري لنفس الناشر أنظر الفيديو المرفق excel-downloads.rar

تفضل http://www.4shared.com/get/1SMpiqz9/___Excel________.html;jsessionid=FE6AE8F024CF308FA8176528B8D16C25.dc211

السلام عليكم مرفق مثال مع الشرح الفكرة ان نظام الفوائد يعتمد علي حقيقة أن المبلغ الذي تتسلمه بعد زمن ولو شهر واحد يفقد جزء من قيمته لذلك عليك حساب القيمة الحالية لكل قسط بالمعادلة في العمود G ومن ثم تستطيع معرفة ماهي القيمة الفعلية لما يريد ان يدفع العميل وقت التصفية مثلا لو أراد العميل صاحب هذا المثال تصفية حسابه بعد سبعة أشهر بدلا من إكمال 36 شهر فيجب عليه دفع مبلغ X بعد سبعة أشهر حيث قيمة X هذه الآن = مجموع القيم الفعلية للباقي القسط والفائدة.rar

غير فقط السطر الوحيد في الكود من ActiveWorkbook.SaveAs Filename:=[I8].Value & ".xls" إلي ActiveWorkbook.SaveAs Filename:="F:\Invoices\" & [I8].Value & ".xls"

زر الحفظ يعمل جيدا عملت تعديل بسيط في الماكرو الكود أصبح سطر واحد Sub save_file() ActiveWorkbook.SaveAs Filename:=[I8].Value & ".xls" End Sub جرب مرة اخري مع هذا المرفق 4.rar

السلام عليكم أخي الكريم تفضل المرفق بعد طباعة الفاتورة (1) إضغط الزر الأخضر سيتكون رقم الفاتوره أوتوماتيكيا في الخلية A1 وسيكون عبارة عن رقم من 8 خانات تحتوي التاريخ والوقت مثلا 12100703 تعني 12 أكتوبر الساعة 7:03 صباحا أي بصيغة ddmmhhmm (2) ثم إضغط الزر الأحمر لحفظها بنفس الرقم الموجود في الخلية A1 وممكن إضافتهما معا في زر واحد طبعا لكني فضلتها هكذ للتوضيح وممكن ايضا إضافة سطر بإغلاق الملف بعد تخزينه 12101201.rar

السلام عليكم نصيحة لوجه الله إبتعد قدر المستطاع عن ذلك ولكن بعيدا عن الربا والفوائد والقروض فقط للعلم الدلة المستخدمة لذلك بالإكسل هي : =PMT(a,n,p) حيث a هي قيمة الفائدة (المتراكمة) في الفترة ، في هذه الحالة هنا الشهر n هي عدد الأقساط المتساوية ، في هذه الحالة هنا 36 p هي قيمة القرض

السلام عليكم المرفق به الحل بدالة countif بطريقتين تفضل إكتشاف المتكرر.rar

السلام عليكم إن أضفت عمود واحد سيكون آخر عمود عندك N وليس M فعليك تغيير كل العناوين في الكود من M إلي N مثلا m2000 تصبح N2000 ، m60000 تصبح N60000 وهكذا إن كنت ستزيد عمودين فيتغير كل العناوين في الكود من M إلي O m لأنها آخر عمود به بيانات وأعتقد أهمها لأنه يعطي حالة البيان و 2000 لأني لم اعتقد ان الموظف الواحد سيدخل بيانات لحد 2000 صف إن كان غير ذلك ممكن تزيدها لكن قبل الحد النهائي لإكسل 2003 (حيث أنك تستخدمه) هذه تستطيع انت عملها من عمود التاريخعن طريق فلتر أو ماشابه عذرا لضيق الوقت

السلام عليكم أخي الكريم الزر (1) لتجميع البيانات من الملفات (لو غير موجودة يعطي خطأ) الزر (2) لتجميع البيانات من الشيتات الموجودة (لو غير موجودة يعطي خطأ) قد يكون الأفضل تجميعهما في زر واحد ، لكني فضلت فصلهما ليسهل علي من يتابع فهم خطوات العمل الدالة Offset(a, b) تعمل عملية إزاحة من موضع الإختيار بمقدار a صفوف و b اعمدة وعلي هذا يكون السطر التالي Range("A2", [m60000].End(xlUp).Offset(0, -12)).Select يعني أنك تأمر الكود بالذهاب للخلية m60000 ثم يتجه منها لأعلي .End(xlUp) حتي يجد خلية بها بيانات بفرض أن m60000 ليس بها بيانات وهو الطبيعي حيث أنها بعيدة جدا عن مجال العمل العادي ولنفرض أن أول خلية بها بيانات في العمود m سيجدها في m22مثلا معني هذا أن المؤشر سيذهب إلي m60000 ومنها إلي m22 ثم سيتم إزاحة المؤشر 0 صفوف ، -12 عمود لليسار (أي نفس الصف ، 12عمود لليمين ) أي الخلية A22 فيكون معني السطر Range("A2", "A22").Select إذا لم يتم التعديل وكنت تستخدم إكسل 2007 أو 2010 فلابأس ولاداعي للتعديل أما إذا كنت تستخدم 2003 فستجد ان عدد الصفوف بالشييت محدود أي إذا ذهبت لأقصي صف بالأسفل ستجد أنه 65536 أو نحو ذلك لذلك يحتاج الكود للتعديل السابق مع إكسل 2003 وفي حالة اردت ان اضف اعمده جديده في اي كود اعدل بالاكواد ؟؟؟؟ لم أفهم هل تعني موظفين جدد أو أعمدة في الجدول في كلتا الأحوال تحتاج تعديل الكود إشرح لي ماتريد بالتحديد مرفق الملف وبه آخر التعديلات السابق ذكرها Jazea3.rar

السلام عليكم مرحبا بك ياباشمهندس بين إخوانك نعم يوجد ماتطلب رجاءا راجع الرابط التالي http://www.officena.net/ib/index.php?showtopic=32040

السلام عليكم أخي الكريم ، حسب مافهمت ممكن فقط الإشارة إلي البيانات في الفترة المرادة إذا كان كذلك فانظر المرفق بالتنسيق الشرطي SALES2.rar

السلام عليكم اخي العزيز لابد من تسمية النطاقين أولا قبل النسخ كما فعلت انا النطاقين هما الخليتين الخاصتين بالتاريخ ذات الفونط الأحمر وذات الفونط الأزرق N21,N22 أسهل طريقة لتسمية المجال أن تقف في عنوان الخلية وتغيرها أنظر الفيديو المرفق Range_Name.rar

السلام عليكم مازلت لم افهم أخي الكريم أجب ببساطة علي السؤال إذا كانت C2 = 20 ، E2=2 ثم تغير الشهر في التاريخ فسيكون E2=3 ولكن C2 ستظل 20 أم تزيد إلي 21 أم تبدأ من 1 أم ماذا

السلام عليكم المعادلة هي =SUMIF(B1:B4,1,A1:A4)

السلام عليكم مرحبا بك أختنا الفاضلة إن شاء الله تجدي في المنتدي ماتريدين وأكثر أنا لست مدرسا ولكن سأساعد قدر الإمكان بحثت لك عن مواضيع مشابهة في المنتدي (مثلا عن كلمة غياب) أرجو أن تقرأيها جيدا ثم تبحثي بنفسك وقد تجدي شيئا مطابقا لما تريدين ثم بالأخير إن لم تجدي أو وجدتي شيءا قريبا وتريدين مثلا التعديل عليه فسيكون الأمر أيسر علي الجميع تفضلي الروابط للمواضيع المشابهة http://www.officena.net/ib/index.php?showtopic=32657&st=40&p=169071&hl=%C7%E1%DB%ED%C7%C8&fromsearch=1&#entry169071 http://www.officena.net/ib/index.php?showtopic=32652&st=0&p=171184&hl=%C7%E1%DB%ED%C7%C8&fromsearch=1&#entry171184 http://www.officena.net/ib/index.php?showtopic=30886&st=0&p=155778&hl=%C7%E1%DB%ED%C7%C8&fromsearch=1&#entry155778 ويوجد غيرها الكثير أرجو أن تجدي فيها ما تريدين

أخي الكريم لن تنتهي المشكله هكذا فبعد الشهر 12 يكون الشهر التالي 1 ولكن السنة ايضا لابد أن تزيد ولاداعي لكل هذا فإمكانيات الإكسل في موضوع التاريخ مذهلة فأنت لم تتعرض مثلا إذا كان يوم السند 29/1/2010 فالشهر التالي ليس به 29/2/2010 فيجب أن يكون 1/3/2010 وهكذا ، للتغلب علي هذا إجعل خلية مستقلة للتاريخ وسيقوم الإكسل اوتوماتيكيا بتغطية مثل هذه الأمور أنظر المرفق كمبيالة.rar

السلام عليكم مازلت لم افهم إعطيني مثالا إذا كانت C2 = 20 ، E2=2 ثم تغير لشهر في التاريخ فما المفروض أن تكون كلا منهما هل سيكون C2 = 67 ، E2=3 أم ماذا

السلام عليكم كما توقعت ممكن إختصار المعادلة الطويلة =IF(E21=1,2,IF(E21=2,3,IF(E21=3,4,IF(E21=4,5,IF(E21=5,6,IF(E21=6,7,IF(E21=7,8,IF(E21=8,9,"")))))))) في الخلية E79 ببساطة إلي =E21+1 وإذا أردت مثلا شرط ضمان ان يكون E21 بين 1 ، 12 ممكن تكون كذلك =IF(AND(E21>0,E21<=12),E21+1)