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

اخي عيد اليك هذا الحل ارجو منك نجربته Private Sub Worksheet_Change(ByVal Target As Range) For Each cell In UsedRange If IsNumeric(cell) Then r = Mid(cell, (InStr(cell, ".") + 1), 10) If Len(r) > 2 Then MsgBox " عدد الاحرف أكثر من المسموح به" cell.Value = "" End If Next End Sub

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

يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ. ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَّرْضِيَّةً. فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي أتقدم وأبنائي بخالص العـــزاء والمواســـــاه لأخينا الحبيب سعيد بيرم لوفاة والده. ونسأل الله العظيم رب العرش العظيم أن يغفر له ويرحمه، وان يسكنه فسيح جنانه ، وأن يوسع عليه قبره ويجعله روضة من رياض الجنة ، وان يبدله داراً خيراً من داره وأهلاً خيراً من أهله . وأن يلهم ذويه الصبر والسلوان انه ولى ذلك والقادر عليه وإنا لله وإنا اليه راجعون

استودعكم الله الانطلاق بعد ساعتين

تفضل اخي عيد هذا تعديل للكود السابق Private Sub Worksheet_SelectionChange(ByVal Target As Range) For Each cell In UsedRange If IsNumeric(cell) Then r = cell - Int(cell) If Len(r) > 4 Then MsgBox " عدد الاحرف اكثر من المسموح به" cell.Value = "" End If Next End Sub

أحسنت اخي محمد

شكراً لكم اخواني الكرام

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

أستاذنكم أخواني بالغياب لمدة 10 أيام إعتباراً من تاريخ 21/03/2012 لاني بإذن الله سأذهب لاداء مناسك العمرة. ابواحمد

اخي الكريم اذهب الى بيانات ثم التحقق من الصحة (طبعاً وانت في الخانة G10) ستجد هذه المعادلة =COUNTIF($G$10:$G$126;G10)=1 استبدلها بهذه =COUNTIF($G$10:$G$1500;G10)=1 ثم اسحبها الى السطر G1500

النشرة الدورية العدد الرابع عشر - مارس 2012 رابط العدد من هنا * سيتم توزيع الوصلة بالبريدعلى جميع الاعضاء من قبل الاستاذ محمد طاهر. *ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى وسيكون هناك أعداد خاصة لبعض أعمال رواد منتدى أوفيسنا. news 14.pdf

مشاركة ممتازة وان شاء الله نرك اخي محمد متفاعلاً اكثر

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

الاخ الفاضل ابو نصار عمل مميز احسنت

السلام عليكم جرب المرفق تامينات (1).rar

السلام عليكم الاستاذ الفاضل طارق محمود هذا حل بالاكواد Private Sub Worksheet_Change(ByVal Target As Range) Dim cl As Range If Not Intersect(Target, [I2]) Is Nothing Then For Each cl In Range("B1:B" & [B10000].End(xlUp).Row) If cl = Target Then K = cl.Offset(0, 1): L = cl.Offset(0, 5) Next [K2] = K: [L2] = L End If End Sub أحدث سعر بيع.rar

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

تم تثبيت الموضوع لعموم الفائدة

جرب هذا التعديل على الكود Private Sub ComboBox1_Change() TextBox1.Value = "" For i = 2 To 7 For r = 1 To Len(Cells(i, 5)) If Mid(Cells(i, 5), 1, r) = ComboBox1.Value Then TextBox1.Value = Cells(i, 5).Offset(0, -4) Exit For End If Next Next End Sub

ماذا لو تشابهت الاسماء

جرب هذ الكود Sub Abu_Ahmed() For i = 1 To 1000 If Cells(i, 7) = 0 Then Cells(i, 7).EntireRow.Delete Next End Sub

{وَبَشِّرِ الصَّابِرِينَ الَّذِينَ إِذَا أَصَابَتْهُمْ مُصِيبَةٌ قَالُوا إِنَّا لِلَّهِ وَإِنَّا إِلَيْهِ رَاجِعُونَ أُولَئِكَ عَلَيْهِمْ صَلَوَاتٌ مِنْ رَبِّهِمْ وَرَحْمَةٌ وَأُولَئِكَ هُمُ الْمُهْتَدُونَ} [البقرة: 155-157]. رحم الله ميتكم اللهم طيب ثراها و اكرم مثواها واجعل الجنة مستقرها و مأواها

السلام عليكم اخي الفاضل هذا الشرح كما وعدتك

جرب هذا الكود ضعه في اكواد اليوزر فورم 2 Private Sub ComboBox1_Change() For i = 2 To 7 If Cells(i, 5) = ComboBox1.Value Then TextBox1.Value = Cells(i, 5).Offset(0, -4) Exit For End If Next End Sub

ما شاء الله عليك استاذنا الخالدي تمكن كبير في تطويع المعادلات