الصـقر

الاخ الحبيب جرب المرفق هل هو طلبك تم عمل زر واحد فقط للسريل والحدود ان شاء الله ينال اعجابك هذا هو الكود المستخدم Sub hossam() Columns("A:E").Select Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone Dim Lr As Integer Lr = Cells(Rows.Count, "B").End(xlUp).Row With Sheets("وقة 2").Range("A3:a100000") .ClearContents End With [a2] = 1 hh = Application.WorksheetFunction.CountA(Sheets("ورقة 2").Range("b2:b100000")) If hh > 1 Then With Sheets("ورقة 2").Range("A3:a" & Lr) .Formula = "=sum(A2+1)" .Value = .Value End With End If Range("A1:E" & Lr).Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlDashDotDot .ThemeColor = 4 .TintAndShade = 0.399945066682943 .Weight = xlMedium End With With Selection.Borders(xlEdgeTop) .LineStyle = xlDashDotDot .ThemeColor = 4 .TintAndShade = 0.399945066682943 .Weight = xlMedium End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlDashDotDot .ThemeColor = 4 .TintAndShade = 0.399945066682943 .Weight = xlMedium End With With Selection.Borders(xlEdgeRight) .LineStyle = xlDashDotDot .ThemeColor = 4 .TintAndShade = 0.399945066682943 .Weight = xlMedium End With With Selection.Borders(xlInsideVertical) .LineStyle = xlDash .ThemeColor = 4 .TintAndShade = 0.399945066682943 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlDash .ThemeColor = 4 .TintAndShade = 0.399945066682943 .Weight = xlThin End With End Sub اللهم اجعلنا ممن يقيم حدودك و لا تجعلنا ممن يضيعها تقبل تحياتى has.zip

الاخ الكريم راجع الرابط التالى للقدير/ هانى بدر ستجد ما تريد وزياده http://www.officena.net/ib/topic/60609-ليبل-ينبض-اثناء-تنفيذ-امر-الماكرو/ تقبل تحياتى

اخى الكريم جرب المرفق ان شاء الله به طلبك تقبل تحياتى mmmm.zip

حضرتك لازم تقول ما هى نقطه الاختبار بمعنى عايز الماكرو يبحث عن الاسم مثلا لو موجود لا يقوم بعمليه الترحيل ؟ برجاء مزيد من التوضيح

اخى الكريم جرب المرفق هل هو ما تريد تقبل تحياتى C1.zip

الاخ الكريم يفضل ارفاق الملف حتى يتثنى للاساتذه مساعدتك تقبل تحياتى

اخى الحبيب جرب الرابط التالى http://www.officena.net/ib/topic/63491-وداعا-لكل-أسئله-الترحيل/ تقبل تحياتى

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

تواصلت مع الاخ الحبيب ياسر خليل وعلمت انه مريض شويه وهذا سبب غيابه نسالكم الدعاء له بالشفاء

حديث لرسول الله -صلى الله عليه وسلم-، يقول: عن أبي هريرة -رضي الله عنه- أن رسول الله -صلى الله عليه وسلم- قال: إذا مات ابن آدم انقطع عمله إلا من ثلاث: صدقة جارية، أو علم ينتفع به، أو ولد صالح يدعو له، رواه مسلم راحل عنا امس العلامه القدير الاستاذ عماد الدين الحسامى وترك لنا علم ينتفع به حبيب اذكركم ببعض ما ترك لنا من اعمال وعلم ينتفع به أسال الله تعالى ان تكون جميع اعماله فى ميزان حسناته ممكن حضرتك تدخل على مكتبه الاستاذ عماد ونشوف اعماله من صفحته الشخصيه بالمنتدى الحسامى.zip الحسامى 2.zip شرح الفورم.zip نظام الحسامي للمخازن.zip واجهه كنترول للاستاذ الحسامي.zip شجرة الحسابات-عماد الحسامي.zip

تفضل اخى الحبيب المرفق انا لقيت بس مشكله فى تاريخ محدد بالخليه A353 والسبب الخطأ فيها كان انك عامل تاريخ 30-2-2004 وشهر 2 اخر يوم فيه هو 28 لا يوجد شهر فبراير 30 يوم نهائيا فهنا حدث خطأ فى المعادله وطبعا الافضل تخلى تنسيق الخلايا اللى بها تواريخ يكون التنسيق تاريخ غربى تقبل تحياتى كشف ا.zip

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