رجب جاويش

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

السلام عليكم تفضل أخى Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B6:B26")) Is Nothing Then If Target.Count > 1 Then Exit Sub If Target - Target.Offset(-1) <> 1 Then ansr = MsgBox("أنت تتجاوز الرقم التسلسلى هل تريد الإستمرار", vbYesNo) If ansr = vbNo Then Application.EnableEvents = False Target = "" Target.Select Application.EnableEvents = True Exit Sub End If End If End If End Sub تجاوز الرقم التسلسلى.rar

أخى الفاضل / محمد جزاك الله كل خير

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

أخى الحبيب / محمود الشريف جزاك الله كل خير أخى الحبيب على هذه الكلمات الطيبة بالنسبة لاٍستدعاء الخلية النشطة داخل الفورم ( داخل تكست بوكس مثلا ) يكون الكود كالآتى Private Sub ComboBox2_Click() If ComboBox1.ListIndex = -1 Then Exit Sub For Each cl In Range("A5:A13") If cl = ComboBox1.Value Then x = cl.Row Exit For End If Next For Each cll In Range("c4:N4") If cll = ComboBox2.Value Then y = cll.Column Exit For End If Next Me.TextBox1 = Cells(x, y).Value End Sub ويمكن أيضا التعديل على قيمة الخلية النشطة كما ذكرت أنت أخى الحبيب تحديد الخلية النشطة.rar

السلام عليكم تفضل أخى الجزء الأول الخاص بالمسلسل شيت كوبي.rar

أخى الفاضل / محمد جرب المرفق دوائر2.rar

أخى الفاضل ايهاب الغريب جزاك الله كل خير

السلام عليكم أخى الفاضل هل تقصد هكذا Book1.rar

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

أخى الفاضل / ابو هايدي ملف ممتاز تسلم ايديك

أخى الفاضل / أبو حنين جزاك الله كل خير

أخى الفاضل / أب مارية جزاك الله كل خير

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

أخى الحبيب / سليم صدقت أخى الحبيب

إخوتى الأفاضل أ / أم عبد الله أ / جمال عبد السميع أ / سليم حاصبيا ينفع كده كل ما جهز حل ألقى حد فيكم يسبقنى بنفس الحل على العموم ألحق أنزل الحل التالى واياك حد يسبقنى طبعا شرف لى المشاركة مع إخوتى الأفاضل 15455.rar

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

السلام عليكم هل تقصد هكذا table.rar

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

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

أخى الفاضل / طارق زكريا جزاك الله كل خير

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

السلام عليكم بعد إذن إخوتى الأفاضل هذا كود آخر Sub ragab() Application.ScreenUpdating = False [C2:G11].ClearContents For i = 2 To 11 MyArr = Trim(Cells(i, 2)) For Each cl In [c1:G1] x = UBound(Filter(Split(MyArr, ","), cl)) + 1 If x > 0 Then Cells(i, cl.Column) = cl Next Next Application.ScreenUpdating = True End Sub

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

السلام عليكم تفضل أخى تحديد الخلية النشطة.rar