رجب جاويش

بجد رائعة تسلم ايديك أخى الحبيب محمود :fff: :fff:

تفضل أخى جرب هذا الكود فى حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer, cl As Range, cll As Range LR = [A1000].End(xlUp).Row '========================================================== If Target.Count > 1 Then Exit Sub If Target.Column <> 1 Or Target = "" Then Exit Sub For Each cl In Range("A2:A" & LR) If Application.WorksheetFunction.CountIf(Range(Cells(cl.Row, 1), Cells(LR, 1)), cl) > 1 Then For Each cll In Range("A2:A" & LR - 1) If Target = cll Then arr = arr & cll.Address & "," End If Next m = MsgBox("هذا الاسم مكرر فى الخلية" & Chr(10) & arr & Chr(10) & "هل تريد السماح بتكرار هذا الاسم", vbYesNo, "اسم مكرر") If m = vbYes Then Exit Sub Target = "": Target.Select: Exit Sub End If Next End Sub منع تكرار الاسم.rar

تفضل أخى تنسيق شرطى.rar

أخى الفاضل /سيد تيجر جرب الكود التالى Sub ragab() Application.ScreenUpdating = 0 [D8:O29].ClearContents For i = 4 To 15 For ii = 8 To 29 Randomize 1 x = Int((11 - 1 + 1) * Rnd + 1) Cells(ii, i) = x y = Application.WorksheetFunction.CountIf(Range(Cells(8, i), Cells(29, i)), Cells(ii, i)) If y > 2 Then GoTo 1 Next Next Application.ScreenUpdating = 1 End Sub ساقية.rar

أخى الحبيب / محمود جزاك الله كل خير على المجهود الجبار

أخى الفاضل / محمود رواس شكرا جزيلا أخى الفاضل على الثقة الغالية والكلمات العطرة

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

أخى الفاضل / ابو جاد الله جزاك الله كل خير أخى الفاضل على هذا المرور العطر والكلمات الطيبة

تفضل أخى ملف رائع وعبقرى من اعداد أخى الحبيب المبدع ( :fff: أبو حنين :fff: ) سن المعاش.rar

أخى الفاضل / إسلام الشيمي يكفينى شرفا هذا المرور الكريم لتقديم تهنئة عطرة من أخ محترم مثلك

أخى الفاضل هذا كود مبدئى لدمج العمودين وان كنت تريد تعديل بشكل آخر أخبرنى Sub ragab() Dim cl As Range For Each cl In [L4:L16] If cl = "" And cl.Offset(0, -4) <> "" Then cl.Value = cl.Offset(0, -4).Value End If Next End Sub دمج عمودين.rar

أخى الفاضل /mohame_shaban3 جزاك الله كل خير أخى الفاضل على هذه التهنئة الرقيقة والمرور العطر

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

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

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

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

أخى الفاضل / ايمن ابو علام بعد التحية السبب الأساسى فى عدم عمل الكود هو أولا : عدم وجود الصفحتين ( ناجحون وراسبون ) الموجودتين فى الكود ليتم الترحيل اليهما ثانيا : بعض التعديلات الأخرى البسيطة فى الكود واليك الملف بعد التعديل المطلوب شيت الصف الأول.rar

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

أخى الفاضل سبب حدوث هذه المشكلة هو ادخال التاريخ بصورة غير صحيحة جرب ادخال التاريخ بصورة صحيحة مثل 17/9/2009 مثلا سوف يعمل الكود بطريقة صحيحة ان شاء الله

أخى الفاضل / جروان شرف كبير لى أخى الفاضل هذه الكلمات العطرة والمرور الكريم جزاك الله كل خير

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

عذرا أستاذى الفاضل / طارق تم ارفاق الملفين فى وقت واحد تقريبا

بعد اذن الأستاذ الفاضل / طارق هذا هو الحل بالمعادلات تاريخ أول وأخر تعامل.rar

الأخ والأستاذ الفاضل / أبو خليل شرف كبير لى مرورك العطر وجزاك الله كل خير

أخى الحبيب / إبراهيم ابو ليله شكرا جزيلا أخى الحبيب على كلماتك الرقيقة وجزاك الله كل خير أخى الفاضل /goodlife جزاك الله كل خير أخى الفاضل على هذه الكلمات الطيبة