الصـقر

اخوتى فى هذا الصرح العلمى الكبير اعتذر لكل الاعضاء بالمنتدى عن كل شئ سئ صدر منى فى اى وقت وفى اى ظرف منذ اشتراكى فى هذا الصرح بتاريخ 26-4-2014م والى اخر مشاركة لى بالمنتدى الان بما فيهم الاخ العرب نت فلكل شئ بدايه ونهايه اسال الله تعالى لكم التوفيق والسداد وكل عام وانتم بخير بحلول رمضان المبارك واتمنى لا تنسونا من صالح دعائكم لى بالهديه فأنا احوج ما يكون لها تقبلوا جميعا تحياتى وحبى وتقديرى لكل عضو بالمنتدى منذ نشأته

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

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

الاخت الفاضله بخصوص طلبك الاول زر التبديل جربى تغير اتجاه الفورم وذالك بالدخول الى شاشة الخصائص للفورم رقم 2 ومن الخاصيه Right to left غيريها من False الى True ---- وبخصوص طلبك الثانى والثالث جربى المرفق هل هو طلبك تقبل تحياتى نسخة من الهنوف.zip

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

اخى الكريم والله انا بحاول فهم طلبك واخير فهمته بصعوبه وذالك لان الطلب غريب كيف يكون للطالب الواحد اكثر من درجه !!!! المهم بدون دخول فى تفاصيل جرب المرفق هل هو ما تريد تقبل تحياتى تحويل المعادلة الى كود.zip

بسم الله الرحمن الرحيم " وَذَا النُّونِ إِذ ذَّهَبَ مُغَاضِبًا فَظَنَّ أَن لَّن نَّقْدِرَ عَلَيْهِ فَنَادَىٰ فِي الظُّلُمَاتِ أَن لَّا إِلَٰهَ إِلَّا أَنتَ سُبْحَانَكَ إِنِّي كُنتُ مِنَ الظَّالِمِينَ (87) فَاسْتَجَبْنَا لَهُ وَنَجَّيْنَاهُ مِنَ الْغَمِّ ۚ وَكَذَٰلِكَ نُنجِي الْمُؤْمِنِينَ (88)" سورة الانبياء فإن لقول العبد: "لا إله إلا أنت سبحانك إني كنت من الظالمين" فضلًا عظيمًا وخيرًا كثيرًا؛ فقد قال رسول الله صلى الله عليه وسلم: دَعْوَةُ ذِي النُّونِ إِذْ دَعَا وَهُوَ فِي بَطْنِ الْحُوتِ لَا إِلَهَ إِلَّا أَنْتَ سُبْحَانَكَ، إِنِّي كُنْتُ مِنَ الظَّالِمِينَ، إِنَّهُ لَمْ يَدْعُ بِهَا مُسْلِمٌ فِي شَيْءٍ قَطُّ إِلَّا اسْتَجَابَ اللَّهُ لَهُ بِهَا. رواه أحمد في المسند, والحاكم في المستدرك وغيرهما, وصححه تفضل اخى الكريم الحل من خلال الفورم مباشرة تقبل تحياتى تحويل المعادلة الى كود.zip

جزاكم الله خيرا اخى الحبيب محمد الريفى تقبل تحياتى

تفضل الكود Sub abd() Application.ScreenUpdating = False For Each f In Range("d2:d10000") If f <> "" Then x = f.Value Union(Range(f.Offset(0, -3), f.Offset(0, -1)), Range(f.Offset(0, 1), f.Offset(0, 1))).Copy ir = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row Sheets(x).Range("a" & ir + 1).PasteSpecial xlPasteValues Range(f.Offset(0, 2), f.Offset(0, 2)).Copy Sheets(x).Range("f" & ir + 1).PasteSpecial xlPasteValues End If Next f Application.CutCopyMode = False Range("a2:f100000").ClearContents Sheets(1).Activate Application.ScreenUpdating = True End Sub تقبل تحياتى

اخى الكريم على حسب فهمى لطلبك ولو انك برأى مصعب الامور على نفسك المهم ادخل على الموديول رقم 3 استبدل الكود الموجود بالتالى Sub abd() Application.ScreenUpdating = False For Each f In Range("d2:d10000") If f <> "" Then x = f.Value Union(Range(f.Offset(0, -3), f.Offset(0, -1)), Range(f.Offset(0, 1), f.Offset(0, 1))).Copy ir = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row Sheets(x).Range("a" & ir + 1).PasteSpecial xlPasteValues Range(f.Offset(0, 2), f.Offset(0, 2)).Copy Sheets(x).Range("f" & ir + 1).PasteSpecial xlPasteValues End If Next f Sheets(1).Activate Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتى

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

اخى الكريم انس أهنئك بهذا العمل اللى اكيد هيكون روعه ويسعدنى اكون اول المهنئين جزاكم الله خيرا والى الامام دائما تقبل تحياتى

اخى الكريم جلال مشكور على مرورك الكريم تقبل تحياتى

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

هبعتلك نجار يزيته تسلم يا غالى ربنا ما يحرمنا منك تقبل تحياتى