تعديل بسيط بكود الترقيم التلقائي

[محمود أبوالدهب]

نرجوا من الخبراء الافاضل عزهم الله الاطلاع على هذا الفديو فبة المطلوب وبه رجاء لو بالامكان نظره سريعة على العمل لانه اول عمل لى تعلمته من الساده الخبراء الافاضل من موضيع قديمة ومن سؤالهم هناالمصنف2.rar

وشكرا لكم جميعا

المصنف2.rar

تم تعديل يوليو 19, 2017 بواسطه محمود أبوالدهب

[محمود أبوالدهب]

يظهر طلبي مكنش وواضح بالفديو سف للاطالة

المطلوب انه في textbox2 موجود فيه كود ترفيم 

اروجو تعديل الكود واضافة كود جديد في comndbotton ( سجل جديد) بحي انى بمجرد ما اضغط على سجل جديد فيقوم الكود الخاص بالترقيم ببدء ترقيم جديد 

مثال على ذالك 

وصلت الى رقم وليكن 60 واريد اضافة سجل جديد بعدها بمجرد الضغط على سجل جديد يقوم الكود باضافة كلمة سجل جديد ( 2 او 3 او 4 على حسب ما قبله يعنى لو الى قبله سجل 4 يكتب سجل جديد 5 وهكذا ) وبعد اضافة كلة سجل جديد يبدأ الترقيم من جديد 1 و 2 و 3و 4و5و6و7و8و9و10 وهككذا 

اتمنى ان الامر يكون وضح

ملحوظة  textbox2  موضوع تحت textbox5 والاتنين تحت مسمي (مسلسل) 

وايضا تم تير اسم الشيت الى sh1 و sh2 وهكذا 

وايضا كود الترقيم بالاخر تحت مسمي sub text 

وشكرا لكم جميعا

 

[محمود أبوالدهب]

ارجوا التعديل على هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 Then
  '  ActiveSheet.Unprotect Password:=""
    If Target.Value <> "" Then
      With Cells(Target.Row, Target.Column - 1)
        .FormulaR1C1 = _
          "=IF(COUNTA(RC[1]:RC[1])=1,COUNTA(R2C[1]:RC[1]),"""")"
      End With
    Else
      Cells(Target.Row, Target.Column - 1).ClearContents
    End If
  End If
 ' ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

فكرة عمله انه يقوم بترقيم العمود a تلقائيا اذا كان العمود  ("" <> b) ولو تم حذف عمود او اضافة عمود يقوم باعادة الترتيب التلقائي ثانيتا 

فبرجاء التعديل عليه ليصبح 

اذا ما كان ما بالعمود b  c  d  e  f  g  يساوى بعض يبدء التؤقسم من جديد 

يعنى اذافة شرط اف 

مثلا كنت بالف 50 وكان الترقيم بالعموم a الى الصف 50 مظبوط وعند الصف 51 كان الادخال بالعموم b و c و d و  e و f  بهم كلمت مسلسل او محمود اى جمله شبة بعض يبد من جديد

في العموم a52 الترقيم من 1 ثم 2 وهكذا 

وشكرا لكم واسف على الاطالة 

[محمود أبوالدهب]

للرفع

[محمود أبوالدهب]

للرفع

[محمود أبوالدهب]

للرفع رفع الله شأنكم واطال عمركم 

[محمود أبوالدهب]

؟

[محمود أبوالدهب]

عملت تعديل لمعظم الطلبات الى طلبتها في الفديو بالاعلى ومقتصر طلبي الان على الترقيم التلقائي فقط بشروط لو امكن ياريت يتم تعديلها 

مرفق فديو جديد لشرح الطلب واسف لسوء شرحي 

 

[محمود أبوالدهب]

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

بنتظار اى تعليق

 

[ياسر خليل أبو البراء]

الله المستعان ..

لربما تجد الحل إن شاء الله .. المهم الصبر والمثابرة

يمكنك طرح موضوع جديد تطلب فيه جزئية بسيطة .. لربما كان ما تطلب صعباً أو يستغرق وقتاً طويلاً

حاول تتحدث بلغة الإكسيل أكثر .. لأن هذه اللغة يفهمها الجميع هنا .. وفقك الله أخي الكريم محمود

[محمود أبوالدهب]

اشكرك اخى وملعمى الكريم ياسر جارى انشاء موضوع جديد