احمدزمان

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

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

السلام عليكم و رحمة الله وبركاته ‏‏الاحد‏، 16‏/12‏/1429هـ. الموافق ‏14‏/12‏/08م اخي ابو عزوز هذه ليست شرطين هذه شروط كثيرة وفعلا حاولت عمل المطلوب ولم استطع ان شاء الله يكون هناك حل لدى احد مع التحية

اخي الفاضل لقد تم وضع الحل ب 3 طرق مختلف وتم تجربته وهو شغال 100×100 ولقد تم وضعة في موضوع جديد لتعم الفائدة على الجميع اضغط هنا للوصول الى الموضوع وبة الحل المطلوب http://www.officena.net/ib/index.php?s=&am...st&p=125447 مع التحية و التقدير

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

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

السلام عليكم و رحمة الله وبركاته ‏‏الاحد‏، 16‏/12‏/1429هـ. الموافق ‏14‏/12‏/08م الموضوع الأصلي على الرابط http://www.officena.net/ib/index.php?s=&am...st&p=125095 الطريقة الأولى باستخدام المعادلات في الإكسل و تعتمد على تسمية النطاقات - ويتم جمع المتغيرارت في عمود مستقل ثم يتم الوصول اليها بموجب رقم الصف ويتم نقل البيانات المطلوبة و الموجودة في مقابلها بموجب رقم الصف شاهدو المرفق ______________________1.rar

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

السلام عليكم و رحمة الله وبركاته ‏السبت‏، 15‏/12‏/1429هـ. الموافق ‏13‏/12‏/08م اخي الفاضل ابو محمد تم تعديل الكود بحيث يتم نقل الرقم الموجود امام الإسم الى الخلية AP1 قبل عملية الطباعة ثم تتم الطباعة فضلا جرب المرفق واعلمني هل هذا المطلوب او لا مع التحية و التقدير KH_MH5.rar

السلام عليكم و رحمة الله وبركاته ‏السبت‏، 15‏/12‏/1429هـ. الموافق ‏13‏/12‏/08م وهذا حل آخر وهو باستخدام الكود و من وجهة نظري هذا افضل _______.rar

هنا المرفق _______.rar

السلام عليكم و رحمة الله وبركاته ‏السبت‏، 15‏/12‏/1429هـ. الموافق ‏13‏/12‏/08م اخي الفاضل اهلا و مرحبا بك الحلالمرفق على السريع باستخدام المعادلات فضلا قم بتجربته و اذاكان يفي بالغرض اعلمني من فضلك مع التحية و التقدير

السلام عليكم و رحمة الله وبركاته ‏السبت‏، 15‏/12‏/1429هـ. الموافق ‏13‏/12‏/08م هذا الملف بعد التعديل KH_MH.rar

السلام عليكم و رحمة الله وبركاته ‏السبت‏، 15‏/12‏/1429هـ. الموافق ‏13‏/12‏/08م معليش ياعم سامحنا جل من لايخطيء سبحانة وتعالى استبدل الكود بالكود التالي الذي تم تعديلة Sub ØÈÇÚÉ_ÇáÓÌáÇÊ_ÇáÊÏÑíÈí_ÇáãÍÏÏÉ() 'ÊÇÈÚ áÓÌá ÇáÊÏÑíÈí If Range("DD73") = 0 Then MsgBox "ÃÎÊÑ ÇáØÇáÈ Ãæ ãÌãæÚÉ ÇáØáÇÈ ÇáÐíä ÊÑíÏ ØÈÇÚÉ ÓÌáÇÊ ÇáÊÏÑíÈ áåã æÃÖÛØ Úáì ÇáÒÑ ãÑÉ ÃÎÑì " Exit Sub End If [AP1] = 1 For AH = 80 To 999 If Cells(AH, "DG") = True Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If [AP1] = [AP1] + 1 Next Range("A1").Select End Sub آمل تجربته واخباري بالنتيجة مع التحية و التقدير

تسلم الأيادي اخي الفاضل ابو اسامة 100 × 100

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير اخي الفاضل اذا تكرمت جرب المرفق ان شاء الله يكون هذا المطلوب وان كان غير ذلك فضلا ولو تكرمت اعلمني هنا لنتمكن من التعديل مع التحية و التقدير احمد يعقوب زمان KH_MH.rar KH_MH.rar

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير الأخ علي الطائي اهل الكرم و الجود منذ زمن حاتم الطائي اهل الشمال نحن في الخدمة جرب المرفق تم اضافة سطرين للكود [كود] .Cells(N, 7) = Cells(E, 5) .Cells(N, 8) = Cells(E, 6) [/كود] آمل تجربته و اعلامي بالنتيجة __________AY.rar

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير اخي الفاضل AAH-AAH2008 ردك جميل و كلامك بالفعل صحيح مية في المية هو هذا السؤال من اين نبدأ الأخ الفاضل ابو اسامة شكرا جزيلا لك على الرابط

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير http://www.ahlalhdeeth.com/vb/showthread.php?t=127698 شكرا لك اخي فهيد جزاك الله كل خير موسوعة رائعة جدا

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير الأخ الفاضل المرفق به حل ولكن بطريقة اخرى و باستخدام CONCATENATE و COUNTIF تم اضافة عمود للصفحة الأولى آمل ان يكون هذا المطلوب INSANTEF.rar

اخي العزيز الفاضل شكرا لك ايضا على جميل عباراتك مازال لدينا فرصة لعمل ما ذكر اعلاه

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير تم استخدام المعادلة التالية =IF(MATCH(A1;منطقة;0);INDEX(اسم;MATCH(B1;عميل;0);1);0) وهي كالتالي اولا تم تسمية النطاقات التالية اسم =Sheet3!$C$1:$C$83 عميل =Sheet3!$B$1:$B$83 منطقة =Sheet3!$A$1:$A$83 ثم =IF(MATCH(A1;منطقة;0) اذا كان القيمة الموجودة في A لها مقابل في قائمة المنطقة موجود INDEX(اسم;MATCH(B1;عميل;0);1) انقل القيمة الموجودة في الصف المقابل للقيمة في العمود B من من قائمة الأسماء للعمود رقم 1 للمجال المسمى اسم مع التحية آمل ان يكون واضح

شوف الرابط التالي http://www.officena.net/ib/index.php?s=&am...st&p=119411 واذا لم يفلح الحل معك فضلا اعلمني لنقوم بعملة

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير اخي الفاضل في الماكرو الموجود عندك لإخفاء اشرطة الأدوات تقوم بتغيير السطر الأول من ()اخفاء SUb الى Sub auto_open() والذي سوف يقوم بتشغيل الماكرو هذا تلقائيا في كل مرة يتم فيها تشغيل الملف مع التحية

السلام عليكم و رحمة الله وبركاته كل عام وانتم بخير استاذي الفاضل القدير هادي سالم الف تحية وتقدير و كل عام وانته بخير اخي ali_altaaiy جرب المرفق وبه الترحيل بكود آخر آمل ان يكون هذا طلبك حيث ان الكود السابق صعب علي ولم استطع فهمه _____2.rar