احمدزمان

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

السلام عليكم اخي الكريم في المرفق تم ضم كل الجداول معا ادخل اسم Name يظهر لك المدخل فقط و كذلك بالنسبة No و Unit وفي خانة Surch اكتب اي حرف تبحث عنه تظهر لك كل الأسطر التي تحتوي على هذا الحرف يمكنك استخدام 3 متغيرات اسم و رقم و وحدة معا آمل ان يفيد المرفق 123.rar

السلام عليكم اخي عبدالفتاح الله يفتح عليك من واسع فضله هذا الموضوع ليس من اختصاص اكسل ولكن هو اختصاص VB فيجوال بيزك وخارج عن عمل الإكسل

استبدل sheets("MyData") ب sheets(D)

السلام عليكم اخي الكريم اتمنى ان يكون هذا المطلوب [color="#660066"]Sheets[/color][color="#666600"]([/color][color="#008800"]"MyData"[/color][color="#666600"]).[/color][color="#660066"]Cells[/color][color="#666600"]([/color][color="#660066"]EndRow[/color][color="#666600"],[/color] [color="#006666"]8[/color][color="#666600"]).[/color][color="#660066"]FormulaR1C1[/color] [color="#666600"]=[/color] [color="#008800"]"=Sheet3!RC"[/color]

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

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

HG<BR>السلام عليكم<BR>للأسف بحثت عن الملف الشرح عندي و لم اجدة<BR><BR>

السلام عليكم و رحمة الله<BR><BR>اخي الجزيرة شكرا لك <BR>و اجمل شيء هو رؤياكم<BR><BR>اخي هاشم<BR>يسعدني مرورك و اهتمامك جزاك الله كل خير<BR>

السلام عليكم شكرا لك اخي الفاضل خالد جزاك الله كل خير

<BR>السلام عليكم و رحمة الله بعد الشكر لأخي هشام شلبي أخي الجزيرة ابو عبدالله كما قالو - - لعيونك اتفضل المرفق<BR> Book555.rar

the file Print.rar

اخي الكريم حسب مافهمت من طلبك تم تعديل الكود لمرجع العمود الذي به الرقم 1 من CA الى CI Sub Print_All_PAY_SLIPS() For i = 9 To 500 If Sheets("&Egrave;&iacute;&Ccedil;&auml;&Ccedil;&Ecirc; &Ccedil;&aacute;&atilde;&Ntilde;&Ecirc;&Egrave;&Ccedil;&Ecirc; &Ccedil;&aacute;&Atilde;&Oacute;&Ccedil;&Oacute;&iacute;&Eacute;").Cells(i, "Ci") = 1 Then Sheets("&Egrave;&Oslash;&Ccedil;&THORN;&Eacute; &atilde;&Ntilde;&Ecirc;&Egrave;").Cells(1, "W") = Sheets("&Egrave;&iacute;&Ccedil;&auml;&Ccedil;&Ecirc; &Ccedil;&aacute;&atilde;&Ntilde;&Ecirc;&Egrave;&Ccedil;&Ecirc; &Ccedil;&aacute;&Atilde;&Oacute;&Ccedil;&Oacute;&iacute;&Eacute;").Cells(i, "B") Sheets("&Egrave;&Oslash;&Ccedil;&THORN;&Eacute; &atilde;&Ntilde;&Ecirc;&Egrave;").PrintOut End If Next End Sub

السلام عليكم بعد التحية و التقدير للأستاذ القدير الفاضل ابو عبدالله حيث ان لدي خلفية عن الموضوع في الملف المرفق فكرة بحث بااستخدام كل الأعمدة الأخ خالد أدخل في الخلية الصفراء أي جزء من : نوع ماركة الصنع رقم اللوحة السائق الشاسية اللوحة السابقة الملكية ملاحظات تظهر لك جميع الصفوف التي تحوي هذه المعلومة او اكتب منتهي في الخلية الصفراء تظهر لك السيارات النتهية استماراتها او اضغط Delet لتظهر لك كامل البيانات الورقة - يمكنك اخفاء العمود A الجمد لله مادمت وجدت الحل الله يوفقك دائما لكل مايحب و يرضى

السلام عليكم و رحمة الله اخي حاتم شكرا لك وجزاك الله كل خير اخي سيف شكرا لك هي الفكرة تعتمد على وجود اللأكواد داخل الملف حيث تشتمل على مراحل 1 اخفاء كل اوراق الملف عند اغلاق الملف 2 مطابقة كلمة المرور مع الإسم و الرقم 3 اظهار الأوراق الخاصة باسم المستخدم المحدد

السلام عليكم اخي مصطفى كمال شكرا لك على مرورك الكريم اخي هانكوك جزاك الله كل خير و شكرا لك

طيب يا اخونا هل شاهدت الحل المرفق سابقا و اكرر اذاكانت الخلية اصغر من واحد ماهو المطلوب في هذه الحالة

السلام عليكم خلية قيمة البيع لم اجدها و اذاكان خلية التخصيص قيمتها صفر او اقل ماهو الإجراء المطلوب شاهد الحل المرفق 77.rar

شكرا لكم اخواني <BR>يحياوي<BR>الجزيرة<BR><BR>تقبلو خالص تحياتي و تقديري<BR>

السلام عليكم و رحمة الله ممكن تضيف السطر التالي بعد امر الطباعة مباشرة و قبل End if i = i + 2

السلام عليكم و رحمة الله ممكن تضيف السطر التالي بعد امر الطباعة مباشرة و قبل End if i = i + 2

السلام عليكم و رحمة الله ممكن تضيف السطر التالي بعد امر الطباعة مباشرة و قبل End

السلام عليكم و رحمة&nbsp; الله<BR><BR>بارك الله فيكم جميعا اخواني الأفاضل على هذا التعاون الجميل<BR><BR>استكمالا لمشاركتي السابقة هنا في هذا الموضوع<BR><BR>=-=-=-=-<BR><BR>اذا اردت ان تكون الخلايا التي قيمتها صفر فارغة بدون رقم<BR>كما ذكرنا يجب استخدام الصفر للدوال الحسابية<BR>ثم تذهب الى<BR>&nbsp;ادوات Tools<BR>خياراتOptions<BR>وتلغي اختيار اظهار قيم الصفرDisplay Zerows<BR>ثم موافق<BR><BR>وهكذا سوف تظهر كل الخلايا التي ناتج حساباتها صفر فارغة<BR><BR>مع التحية و التقدير<BR>

السلام عليكم و رحمة الله وبركاته اخي الكريم تكمن المشكله في نقطتين 1- في الدوال التي تستخدم نتائج حسابية لا تستخدم علامة الفراغ وهي("") و يجب استخدام قيمة رقمية وهي الصفر0 2- حاول دائما او من الأفضل ان تستخدم الدالة SUM لعمليات الجمع و الطرح و القسمة فهي مفيدة جدا لهذه الحالات شاهد المرفق بيان_تعبئة.rar