احمدزمان

السلام عليكم و رحمة الله وبركاته

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

و عليكم السلام و رحمة الله وبركاته شكرا لك على الفائدة

السلام عليكم تمت الإضافة بالاستعانة بكود الأستاذ سليم جزاه الله خيرا Sub Mokarar() Dim Q1, FR, TR, TC, ER With Sheets(ActiveSheet.Name) ER = Application.CountA(.Range("C:C")) + 9 For FR = 5 To ER Q1 = .Cells(FR, 3) If Q1 = "" Then GoTo 7 For TR = FR + 1 To 9999 If .Cells(TR, 3) = Q1 Then For TC = 1 To 33 .Cells(TR, TC).Clear Next End If Next 7 Next End With End Sub

السلام عليكم و رحمة الله وبركاته هذا اسم سبهلله فضلا احترم عقول الأخرين

جزاك الله خيرا و احسن الله اليك وهذا لا يساوي شيء امام ابداعاتكم في المنتدى ان شاء الله لا مشكلة الآن انا في العمل مساء ان شاء الله

و عليكم السلام و رحمة الله وبركاته جرب هذا الكود Sub Mokarar() Dim Q1, FR, TR, TC For FR = 5 To 9999 Q1 = Cells(FR, 3) If Q1 = "" Then GoTo 7 For TR = FR + 1 To 9999 If Cells(TR, 3) = Q1 Then For TC = 1 To 33 Cells(TR, TC).Clear Next End If Next 7 Next End Sub ان شاء الله يكون به ماتريد

السلام عليكم و رحمة الله وبركاته هذا اقتراح لفكرة الحل في هذه الحالة يجب تعديل الدالة او المعادلة لعمود بدل نقدي بحيث تبحث عن بدل النقدي في ورقة او شيت بدل نقدي 1 اذا كانت القيمة موجودة هناك يعطينا هنا صفر 0 اذا لم نكن موجودة هناك يتم حسابها هل هذه هي الفكرة المطلوبة

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

و عليكم السلام و رحمة الله وبركاته اهلا بك اخا عزيزا على المنتدى

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

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

شكرا جزيلا اخونا الفاضل الكريم زيزو العجوز جزاك الله خيرا و احسن الله اليك

و عليكم السلام و رحمة الله وبركاته اخي الكريم صقر فضلا التوضيح اكثر اين يظهر اسم الملف في الدالة لن يظهر اسم الملف في الدالة الا اذاكانت الدالة مرتبطة بورقة اخرى في الملف القديم او مرتبطة باسم نطاق معين في الملف القديم حل مبدئي تذهب الى تحرير ثم ارتباطات ثم تضغط فصل الإرتباط

و عليكم السلام و رحمة الله وبركاته تواتي.xls

و عليكم السلام و رحمة الله وبركاته اولا و للعلم انا لا اقبل التحدي و انسحب فورا ثانيا

السلام عليكم و رحمة الله وبركاته بعد تحليل الموضوع عدة ايام وجدة فكرة ان شاء الله سوف اوافيك به اليوم hemnn.xls

السلام عليكم و رحمة الله وبركاته بعد تحليل الموضوع عدة ايام وجدة فكرة ان شاء الله سوف اوافيك به اليوم

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

السلام عليكم =IF(OR(MONTH(TODAY())=6;MONTH(TODAY())=12);$F$1;1)

وعليكم السلام قم بعمل حماية مصنف لن يتم حذف اي شيت من المصنف

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

السلام عليكم و رحمة الله وبركاته فضلا اخي هيثم اسمحلي بـ اقتراح ان تدمج عدد 2000 شيت في شيت واحد و من هذا الشيت تسخرح منه في شيت آخر واحد فقط استغلام يعطيك نتائج (كارتة الصنف) بمجرد ادخال اسم الصنف و كذلك يعطيك جميع النتائج المطلوبه للورقة Home تلقائيا هذا كله من شيت واحد كما يمكنك عمل استعلام لتاريخ محدد او استعلام لجهة صرف هذا من وجهة نظري الشخصية سوف يكون افضل و الله اعلم

السلام عليكم اخي الحبيب هذا يعني ان النسخة ويدوز او اوفيس لا يوجد بها ما يسمى باستخدام تقاويم بديلة في المشاركة السابقة رقم 4 تجد مجلد مضغوط Rar تفتحة وتجد به ملف وورد اسمه طريقة كتابة التاريخ الهجري في برنامج الإكسيل بالشكل الصحيح تفتحه وتنفذ الموجود به لننزيل الملف التنفيذي في مكانه الصحيح ثم جرب مرة اخرى

سيدي الفاضل السلام عليكم و رحمة الله وبركاته لم تضع الدالة المطلوبة في العمود E و التي ذكرتها برقم 2 هي =VALUE("a"&D7)+30 و سوف يظهر الناتج رقم 43202 نفس الخلية اعمل لها تنسيق تاريخ هجري فضلا جرب و اخبرني بالنتيجة