عبدالله المجرب

الملفات في المرفق منقولة للفائدة وهي بخصوص الشهر الفضيل اعاده الله علينا بالخير والبركة ابواحمد ملفات رمضانية.rar

اخي الفاضل تم عمل الجزاء الاول من المطلوب (بخصوص الترحيل تم عمل جزئين من 1-40 ومن 41- 80 )اذا كان هذا المطلوب فسيتم استكمال باقي الاسماء يرجى منك ابداء الراي هل هذا هو المطلوب والله اعلم مشروع محو الامية.rar

جرب المرفق ان شاء الله هذا ما تريده منع التكرار في عمود.rar

كيف نستقبل رمضان د/عبدالرحمن بن عبدالعزيز السديس الحمد لله الذي منّ علينا بمواسم الخيرات، وخصّ شهر رمضان بالفضل والتشريف والبركات، وحثّ فيه على عمل الطاعات، والإكثار من القربات، أحمده سبحانه على نعمه الوافرة؛ وأشكره على آلائه المُتكاثرة. وأصلي وأسلم على أفضل من صلى وصام، وأشرف من تهجّد وقام، وصلى الله وسلم وبارك عليه وعلى آله وصحبه البررة الكرام، والتابعين ومن تبعهم بإحسان ما تعاقب النور والظلام، أما بعد: فإن الله تعإلى هيأ لنا من المناسبات العظيمة، التي تصقُلُ الإيمان في القلوب، وتُحرّك المشاعر الفيّاضة في النفوس، فتزيد في الطاعات وتُضيّق مجالات الشر في المجتمعات، وتعطي المسلمين دروسا في الوحدة والإخاء، والتضامن والصفاء، والبرّ والصلة والهناء، والطُهر والخير والنقاء، والصبر والشجاعة والإباء، إنها منهل عذب، وحمى أمين وحصن حصين للطائعين، وفرصة لا تُعوّض للمذنبين المفرّطين، ليجددوا التوبة من ذنوبهم، ويسطّروا صفحة جديدة بيضاء ناصعة في حياتهم، مفعمة بفضائل الأعمال ومحاسن الفعال، ومكارم الخصال. فضل رمضان وإن من أجلّ هذه المناسبات زمناً، وأعظمها قدراً، وأبعدها أثراً: شهر رمضان الكريم الذي نرتوي من نميره، ونرتشف من رحيقه، ونشمّ عاطر شذاه، شهر مضاعفة الحسنات، ورفعة الدرجات، ومغفرة الذنوب والسيئات، وإقالة العثرات، قد تفتّح أبواب الجنة، وتغلق أبواب النار، وتصفّد الشياطين، من صامه وقامه إيمانا واحتسابا، غفر له ما تقدم من ذنبه؛ كما صحّ بذلك الحديث عن رسول الله ؛ فعن أبي هريرة عن النبي قال: { من صام رمضان إيماناً واحتساباً، غفر له ما تقدّم من ذنبه } [متفق عليه]، و { من قام رمضان إيماناً واحتساباً، غفر له ما تقدم من ذنبه } [متفق عليه]. إخواني المسلمين: فرحة كُبرى تعيشها الأمة الإسلامية هذه الأيام، فها هي إزاء دورة جديدة من دورات الفلك، تمرّ الأيام وتمضي الشهور، ويحلّ بنا هذا الموسم الكريم، وهذا الشهر العظيم، هذا الوافد الحبيب، والضيف العزيز، وذلك من فضل الله سبحانه على هذه الأمة، لما له من الخصائص والمزايا، ولما أُعطيت فيه هذه الأمة من الهبات والعطايا، وخصّت فيه من الكرامات والهدايا، كما في حديث أبي هريرة أن النبي قال: { إذا جاء رمضان فُتّحت أبواب الجنة، وغُلّقت أبواب النار، وصفّدت الشياطين } [متفق عليه]. فيا لها من فرصة عظيمة، ومناسبة كريمة تصفو فيها النفوس، وتهفو إليها الأرواح، وتكثر فيها دواعي الخير؛ تفتّح الجنات، وتتنزل الرحمات، وترفع الدرجات، وتغفر الزلات. في رمضان تهجُّد وتراويح، وذكر وتسبيح، في رمضان تلاوة وصلوات، وجُود وصدقات، وأذكار ودعوات، وضراعة وابتهالات. حاجتنا إلى رمضان إخواني المسلمين: إذا كان الأفراد والأمم محتاجين إلى فترات من الصفاء والراحة؛ لتجديد معالم الإيمان، وإصلاح ما فسد من أحوال، وعلاج ما جدّ من أدواء، فإن شهر رمضان المبارك هو الفترة الروحية التي تجد فيها هذه الأمة فرصة لإصلاح أوضاعها، ومراجعة تاريخها، وإعادة أمجادها، إنه محطة لتعبئة القُوى الروحية والخُلُقية، التي تحتاج إليها كل أمة، بل تتطلع إليها الأفراد والمجتمعات المسلمة، إنه مدرسة لتجديد الإيمان، وتهذيب الأخلاق، وشحذ الأرواح، وإصلاح النفوس، وضبط الغرائز، وكبح الشهوات. في الصيام: تحقيق للتقوى، وامتثال لأمر الله وقهر للهوى، وتقوية للإرادة، وتهيئة للمسلم لمواقف التضحية والفداء والشهادة؛ كما أن به تتحقق الوحدة والمحبة والإخاء والأُلفة، فيه يشعر المسلم بشعور المحتاجين، ويحس بجوع الجائعين، الصيام مدرسة للبذل والجود والصلة؛ فهو حقاً معين الأخلاق، ورافدُ الرحمة، من صام حقاً: صفت روحه، ورقّ قلبه، وصلحت نفسه، وجاشت مشاعره، وأُرهفت أحاسيسه، ولانت عريكتُه. فما أجدر الأمة الإسلامية اليوم أن تقوم بدورها، فتحاسب نفسها عند حلول شهرها، وما أحوجها إلى استلهام حكم الصيام، والإفادة من معطياته، والنهل من معين ثمراته وخيراته. كيف نستقبل رمضان أيها الإخوة: إن استقبالنا لرمضان يجب أن يكون - أولاً - بالحمد والشكر لله جل وعلا، والفرح والاغتباط بهذا الموسم العظيم، والتوبة والإنابة من جميع الذنوب والمعاصي؛ كما يجب الخروج من المظالم وردّ الحقوق إلى أصحابها، والعمل على استثمار أيّامه ولياليه صلاحاً وإصلاحاً؛ فبهذا الشعور والاحساس تتحقق الآمال، وتستعيد الأفراد والمجتمعات كرامتها، أما أن يدخل رمضان ويراه بعض الناس تقليداً موروثاً، وأعمالاً صورية محدودة الأثر ضعيفة العطاء، بل لعلّ بعضهم أن يزداد سوءاً وانحرافاً - والعياذ بالله - فذلك انهزام نفسي، وعبث شيطاني، له عواقبه الوخيمة على الفرد والمجتمع. فلتهنأ الأمة الإسلامية بحلول هذا الشهر العظيم، وليهنأ المسلمون جميعاً في مشارق الأرض ومغاربها بهذا الموسم الكريم، إنه فرصة للطائعين للاستزادة من العمل الصالح، وفرصة للمذنبين للتوبة والإنابة، كيف لا يفرح المؤمن بتفتيح أبواب الجنان؟! وكيف لا يفرح المذنب بتغليق أبواب النيران؟! يا لها من فرص لا يحرمها إلا محروم! ويا بشرى للمسلمين بحلول شهر الصيام والقيام! فالله الله - عباد الله - في الجد والتشمير، دون استثقال لصيامه، واستطالة لأيامه، حذار من الوقوع في نواقضه ونواقصه، وتعاطي المفطرات الحسية والمعنوية!! حقيقة الصيام لقد جهل أقوام حقيقة الصيام؛ فقصروه على الإمساك عن الطعام والشراب؛ فترى بعضهم لا يمنعه صومه من إطلاق الكذب والبهتان، ويطلقون للأعين والآذان الحبل والعنان؛ لتقع في الذنوب والعصيان، وقد قال : { من لم يدع قول الزور والعمل به والجهل، فليس لله حاجة في أن يدع طعامه وشرابه } [رواه البخاري]. ولله درّ القائل: إذا لم يكن في السّمع مني تصاون *** وفي بصري غضّ وفي منطقي صمت فحظي إذن من صومي الجوعُ والظمأ *** فإن قلتُ إني صُمتُ يوماً فما صُمتُ رمضان وحال الأمة إخواني الصائمين: إنه ليَجدُر بالأمة الإسلامية التي تعيش اليوم مرحلة من أشد مراحل حياتها: أن تجعل من هذا الشهر نقطة تحوُّل، من حياة الفرقة والاختلاف، إلى الاجتماع على كلمة التوحيد والائتلاف، وأن يكون هذا الشهر مرحلة تغيّر في المناهج والأفكار والآراء، في حياة الأمم والأفراد؛ لتكون موافقةً للمنهج الحق الذي جاء به الكتاب والسنة، وسار عليه السلف الصالح - رحمهم الله - وبذلك تُعيد الأمة مجدها التليد، وماضيها المشرق المجيد، الذي سطّره تاريخ المسلمين الزاخرُ بالأمجاد والانتصارات في هذا الشهر المبارك؛ وما غزوة بدر الكبرى، وفتح مكة، ومعركة حطين، ووقعة عين جالوت، وغيرها إلا شواهدُ صدق على ذلك. إخوة الإسلام: يحل بنا شهرنا الكريم، وأمّتنا الإسلامية لا زالت تعاني جراحات عُظمى، وتُعايش مصائب كبرى. فبأي حال يستقبل المسلمون في الأرض المباركة من جوار الأقصى المبارك هذا الشهر الكريم، وهم لا زالوا يُعانون صَلَفَ الصهاينة المجرمين؟! بأي حال يعيش إخوانكم المبعدون المشرّدون عن ديارهم وأهليهم وأموالهم؟! وما استمرار قضية أولى القبلتين، ومسرى سيد الثقلين، وثالث المسجدين الشريفين، ما استمرار تلك القضية المأساوية إلا تحدّ سافر من إخوان القردة والخنازير، لكل مبادئ الدين والعقل، والحق والعدل، والسلام والأمن. بأي حال يستقبل إخوانكم المسلمون في أماكن كثيرة من العالم هذا الشهر الكريم وهو يعانون أبشع حرب إبادة عرفها التاريخ المعاصر؟! ويعانون حياة الجوع والتقتيل والتشريد؟! رمضان مدرسة الأجيال إخواني الصائمين: في رمضان تتربى الأمة على الجدّ، وأمة الهزل أمة مهزومة، في رمضان يتربّى أفراد الأمة على عفة اللسان، وسلامة الصدور، ونقاء القلوب، وتطهيرها من أدران الأحقاد والبغضاء، والحسد والغلّ والشحناء، ولا سيّما من طلبة العلم، والمنتسبين إلى الخير والدعوة والإصلاح؛ فتجتمع القلوب، وتتوحّد الجهود، ويتفرّغ الجميع لمواجهة العدو المشترك، ونتخلى جميعاً عن تتبع السقطات، وتلمّس العثرات، والنفخ في الهنّات، والحكم على المقاصد والنيات. في رمضان: يطلب من شبابنا تحقيق دورهم، ومعرفة رسالتهم، وقيامهم بحق ربهم، ثم حقوق ولاتهم ووالديهم ومجتمعهم. في رمضان: تتجسد ملامح التلاحم بين المسلمين رعاتهم ورعاياهم، علمائهم وعامّتهم كبيرهم وصغيرهم؛ ليكون الجميع يداً واحدةً، وبناءً متكاملاً؛ لدفع تيارات الفتن، وأمواج المحن؛ أن تخرق السفينة، وتفوّض البناء، ويحصل جرّاءها الخلل الفكريّ والاجتماعي. في رمضان: تكثر دواعي الخير، وتقبل عليه النفوس؛ فهو فرصة اادعاة والمصلحين، وأهل الحسبة والتربويين: أن يصلوا إلى ما يريدون من خير للأمة بأحسن أسلوب وأقوم منهاج؛ فالفرصة مؤاتية، والنفوس مقبلة. فاتقوا الله - عباد الله - وأدركوا حقيقة الصوم وأسراره، وتعلموا آدابه وأحكامه، واعمروا أيامه ولياليه بالعمل الصالح، وصونوا صومكم عن النواقض والنواقص، وجدّدوا التوبة وحققوا شروطها؛ لعل الله أن يتجاوز عن ذنوبكم، ويجعلكم من المرحومين المعتقين من النار بمنّه وكرمه. هدي الرسول في رمضان لقد كان أجود الناس، وكان أجود ما يكون في رمضان؛ يقول ابن القيّم رحمه الله: ( وكان هديه فيه عليه الصلاة والسلام أكمل هدي وأعظمه تحصيلاً للمقصود، وأسهله على النفوس، وكان من هديه في شهر رمضان: الإكثار من أنواع العبادة، وكان جبريل يدارسه القرآن، وكان يكثر فيه الصدقة والإحسان، وتلاوة القرآن، والصلاة، والذكر والاعتكاف، وكان يخصّه من العبادات بما لا يخصّ به غيره ). وقد سار على ذلك السلف الصالح - رحمهم الله - حيث ضربوا أروع الأمثلة في حسن الصيام، وإدراك حقيقته، وعمارة أيامه ولياليه بالعمل الصالح. واعلموا - إخواني المسلمين - أنكم كما استقبلتم شهركم هذا ستودعونه عما قريب، وهل تدري يا عبدالله هل تدرك بقية الشهر أو لا تكمله؟! إننا _ والله - لا ندري، ونحن نصلي على عشرات الجنائز في اليوم والليلة: أين الذين صاموا معنا فيما مضى؟! إن الكيّس اللبيب من جعل من ذلك فرصة لمحاسبة النفس، وتقويم إعوجاجها، وأطرها على طاعة ربّها قبل أن يفجأها الأجل، فلا ينفعها - حينذاك - إلا صالح العمل، فعاهدوا ربكم - يا عباد الله - في هذا الشهر المبارك على التوبة والندم، والاقلاع عن المعصية والمأثم، واجتهدوا في الدعاء لأنفسكم وإخوانكم وأمتكم. وصلى الله وسلم على نبينا محمد وعلى آله وصحبه وسلم.

ملف خاص عن صلاة التراويح صلاة التراويح أو صلاة القيام رمضان هي صلاة في الإسلام للرجال والنساء تؤدى في كل يوم من أيام شهر رمضان بعد صلاة العشاء ويستمر وقتها إلى قبيل الفجر وقد حث الرسول صلى الله عليه وسلم على قيام رمضان فقال (من قام رمضان إيماناً واحتساباً غفر له ما تقدم من ذنبه). وقد صلاها رسول الله صلى الله عليه وسلم في جماعة ثم ترك الاجتماع عليها مخافة أن تفرض على أمته، كما ذكرت ذلك عنه أم المؤمنين عائشة رضي الله عنها. (تعريف التراويح ) هي الصلاة التي تصلى جماعة في ليالي رمضان، والتراويح جمع ترويحة، سميت بذلك لأنهم كانوا أول ما اجتمعوا عليها يستريحون بين كل تسليمتين، كما قال الحافظ ابن حجر، وتعرف كذلك بقيام رمضان. وفي بعض البلاد الإسلامية تقليد في استراحة بين ركعات القيام تلقى موعظة وتذكرة على المصلين ليتفقهوا في أمور دينهم وتذكرة من باب وذكر فإن الذكرى تنفع المؤمنين وصلاة التراويح ترقى بروحانيات المؤمن وتحصنه من وسوسة الشيطان. عدد ركعات صلاة التراويح؛؛ لم يثبت في حديث النبي شيء عن عدد ركعات صلاة التراويح ، إلا أنه ثبت من فعله عليه الصلاة والسلام أنه صلاها إحدى عشرة ركعة كما بينت ذلك أم المؤمنين عائشة حين سُئلت عن كيفية صلاة الرسول في رمضان، فقالت: " ما كان رسول الله يزيد في رمضان ولا في غيره على إحدى عشرة ركعة، يصلي أربعًا فلا تسأل عن حسنهن وطولهن ثم يصلي أربعًا، فلا تسأل عن حسنهن وطولهن، ثم يصلي ثلاثاً " متفق عليه ، ولكن هذا الفعل منه صلى الله عليه وسلم - لا يدل على وجوب هذا العدد ، فتجوز الزيادة, فقد قال شيخ الإسلام ابن تيمية: " له أن يصلي عشرين ركعة، كما هو مشهور من مذهب أحمد و الشافعي, وله أن يصلي ستا وثلاثين، كما هو مذهب مالك, وله أن يصلي إحدى عشرة ركعة، وثلاث عشرة ركعة. ثم استمر المسلمون، بعد ذلك يصلون صلاة التراويح كما صلاها الرسول ، وكانوا يصلونها كيفما اتفق لهم ، فهذا يصلي بجمع، وذاك يصلي بمفرده، حتى جمعهم عمر بن الخطاب على إمام واحد يصلي بهم التراويح، وكان ذلك أول اجتماع الناس على قارئ واحد في رمضان عائشة سئلت: كيف كانت صلاته صلى الله عليه وسلم في رمضان؟ فقالت: ما كان يزيد في رمضان ولا في غيره عن إحدى عشرة ركعة، يصلي أربعاً11 فلا تسأل عن حسنهن وطولهن، ثم يصلي أربعاً فلا تسأل عن حسنهن وطولهن، ثم يصلي ثلاثاً". ؛ حكمها ؛ سنة، وقيل فرض كفاية ، وهي شعار من شعارات المسلمين في رمضان لم ينكرها إلا مبتدع، قال القحطاني في نونيته:وصيامنا رمضان فرض واجب وقيامنا المسنون في رمضـان إن التراويـح راحـة في ليله ونشاط كل عويجز كسلان ؛ فضلها ؛ لقد حث رسول الله صلى الله عليه وسلم وحض على قيام رمضان ورغب فهي ولم يعزم، وما فتئ السلف الصالح يحافظون عليها، فعلى جميع المسلمين أن يحيوا سنة نبيهم وألا يتهاونوا فيها ولا يتشاغلوا عنها بما لا فائدة منه، فقد قرن صلى الله عليه وسلم بين الصيام والقيام، فعن أبي هريرة رضي الله عنه قـال: "سمعت رسول الله صلى الله عليه وسلم يقول لرمضان من قامه إيماناً واحتساباً غفر له ما تقدم من ذنبه". ( ما يقرأ فيها ) لم تحد القراءة فيها بحد، وكان السلف الصالح يطيلون فيها واستحب أهل العلم أن يختم القرآن في قيام رمضان ليسمع الناس كل القرآن في شهر القرآن، و كره البعض الزيادة على ذلك إلا إذا اجتمع جماعة على ذلك فلا بأس به. من فاته العشاء؟؟ إذا دخل الإنسان المسجد ووجد الناس قد فرغوا من صلاة العشاء وشرعوا في القيام، صلى العشاء أولاً منفرداً أومع جماعة وله أن يدخل مع الإمام بنية العشاء فإذا سلم الإمام قام وأتم صلاته، واختلاف لا يؤثر، لصنيع معاذ وأقره الرسول صلى الله عليه وسلم حيث كان يصلي العشاء مع الرسول صلى الله عليه وسلم ويأتي فيصلي بأهل قباء العشاء حيث تكون له هذه الصلاة نافلة، وليس له أن يشرع في التراويح وهو لم يصل العشاء. القنوت في قيام رمضان !! ذهب أهل العلم في القنوت في الوتر مذاهب هي: قال ابن القيم رحمه الله: ولم يصح عن النبي صلى الله عليه و سلم في قنوت الوتر قبل ـ أي الركوع ـ أو بعده شيء. وقال الخلال: أخبرني محمد بن يحيى الكحال أنه قال لأبي عبد الله في القنوت في الوتر؟ فقال: ليس يروى فيه عن النبي صلى الله عليه و سلم شيء ، ولكن كان عمر يقنت من السنة إلى السنة. إلى أن قال: والقنوت في الوتر محفوظ عن عمر وابن مسعود والرواية عنهم أصح من القنوت في الفجر والرواية عن النبي صلى الله عليه وسلم في قنوت الفجر أصح من الرواية في قنوت الوتر، والله أعلم). صيغة القنوت في رمضان !!! أصح ما ورد في القنوت في الوتر ما رواه أهل السنن24 عن الحسن قال: علمني رسول الله صلى الله عليه وسلم كلمات أقولهن في الوتر : "اللهم اهدني فيمن هديت، وعافني فيمن عافيت، وتولني فيمن توليت، وبارك فيما أعطيت، وقني شر ما قضيت إنك تقضي ولا يقضى عليك، إنه لا يذل من واليت تباركت ربنا وتعاليت". وروي عن علي رضي الله عنه أن رسول الله صلى الله عليه وسلم كان يقول في آخر وتره: "اللهم إني أعوذ برضاك من سخطك، وبمعافاتك من عقوبتك وأعوذ بك منك، لا أحصي ثناءاً عليك أنت كما أثنيت على نفسك

اخي ابو عبير راجع الرابط http://www.officena.net/ib/index.php?showtopic=26346 لعل فيه الفائدة ابواحمد

الشكر لله الحمدلله ان هذه المعادلة ادت المطلوب

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

الاستاذ ياسر ابو الحارث عمل ممتاز تسلم الايادي ابواحمد

اخي تفضل المرفق ولو ان المعادلة كبيرة بس ان النتيجة هي المطلوبه (نتمنى من الاستاذ يحيى ان كان لديه معادلة اصغر ان يتحفنا بها) والله اعلم 22 (2).rar

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

اخي العزيز كل شي بفضل الله ممكن ولكن قبل عمل المعادلة هل ممكن تبين لي ما هي الحالات التي لا يتم التقريب فيها والافضل ان ترفق ملف فيه الارقام وناتج التقريب في كلتا الحالتين (التي تقرب والتي لا تقرب) بالنسبة لمعادلة الاستاذ ملك المعادلات يحيى حسين جرب المعادلة التالية =CEILING(A3;1) والله اعلم ابواحمد

اخي الكريم الميكرو تم تسجيله لاظهار واخفاء صفوف محددة في الكود لاستبدال الصفوف بالاعمدة استبدل هذه الجملة في الكود للاخفاء للصفوف Selection.EntireRow.Hidden = False والاظهار للصفوف Selection.EntireRow.Hidden = True بهذه الدالة على الاعمدة (لكن حدد الاعمدة التي تريد ظهورها واخفاءها كما هو معمول مع الصفوف) للاخفاء Selection.EntireColumn.Hidden = False للاظهار Selection.EntireColumn.Hidden = True ملاحظه تعريف الصفوف التي يتم اخفائها او اظهارها في الكود Rows("1:745").Select والتي تعني ان الصفوف من 1 الى 745 سيتم اظهارها او اخفاءها وتعريف الاعمدة في الكود كالتالي Columns("IR:IS").Select والتي تعني ان العمودين IR & IS سيتم اخفاءها او اظهارها حسب الاختيار والله اعلم

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

اخي اعتيازي تفضل المرفق فيه مقطع شرح عالسريع اتمنى ان تستفيد منه ابواحمد الشرح1.rar

اكواد جميلة في التسلسل بتكرار معين من اعداد الاستاذين الكبيرين كيماس والحسامي في الرابط http://www.officena.net/ib/index.php?showtopic=37767

كود رائع يا ابو عمر سلمت الايادي :clapping: حل اخر بعد اذن الاستاذ ابو عمر (بدون اكواد) قد يتم الاستفادة منه والله اعلم التسلسل-kemas.rar

كود لحذف الخلايا الفارغة في عمود بيانات من اعدادي حسب طلب احد الاخوة Sub حامل_المسك() Range("B1:C1000").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete Range("A1").Select End Sub

كود لنقل البيانات من اعمده الى صفوف بتكرار معين (من اعداد الاستاذ الفاضل ابو عمر (كيماس)) Sub Macro2() ' ' Dim k As Long ' Application.ScreenUpdating = False Range("d6:g500").ClearContents Range("B6:B16").Copy Range("E6").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True k = 7 For i = 1 To 1000 Step 11 Range("C" & i + 5 & ":C" & i + 15).Select Selection.Copy Range("E" & k).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=True k = k + 1 Next i Application.CutCopyMode = False Range("a1").Select Application.ScreenUpdating = True End Sub

الكشف اليومي.rar

اخي الفاضل ضع هذه المعادلة فب الخلية B1 بفرض ان الرقم المراد تقريبه سيكون في الخلية A1 =IF(OR(TRUNC(A1;2)-TRUNC(A1;1)>=0.05;TRUNC(A1;1)-TRUNC(A1;0)>=0.5);TRUNC(A1;0)+1;TRUNC(A1;0))

اخي الكريم ضع هذه المعادلة في الخلية G2 =IF(AND(D2>=A2;D2<=DATE(2011;8;30));F2*10*0;IF(AND(D2>=DATE(2011;9;1);D2<=DATE(2012;2;28));F2*10*(E2/180))) والله اعلم

اخي الفاضل بخصوص التعديل المباشر بعد البحث جرب الفورم الذي اعده الاستاذ خبور على الرابط http://www.officena.net/ib/index.php?showtopic=36882

لا داعي للاحراج فانا تحت الخدمة بما استطيع اخي حامل المسك ضع هذا الكود في زر امر Sub حامل_المسك() Range("B1:C1000").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireRow.Delete Range("A1").Select End Sub