ارجو من الساده اساتذة المنتدي الكرام توضيح ذلك

[أبو صاصا]

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

فكيف يمكن التغلب علي هذه المشكلة ويتم اضافة الكود الثاني وتمكينه من اداء مهمته 

 

 

وكم مني جزيل الشكر

[أحمد فؤاد]

أرجو إرفاق ملف لكي نعرف تساعدك

[محمد ابو البـراء]

السلام عليكم ورحمة الله وبركاته

وبعد اذن الاستاذ الفاضل // أحمد فواد

حضرتك كل كود بيبدا ب

sub الاسم ()

فغير هذا الاسم سواء بالعربي او الانجليزي

بمعنى اذا كان الاكواد تاخذ نفس الاسم مثلاً

كهكذا

sub braa ()

غير الاسم braa واجعله braa1

sub braa1 ()

او اي اسم اخر كــ ahmed او fathy او اي اسم تعرف ان هذا هو الخاص بالكود لتمييزه

والسلام عليكم ورحمة الله وبركاته

[أبو صاصا]

الاستاذ احمد فؤاد هذا هو الملف ال حضرتك طلبته مطلوف فيه كتابة التالريخ في b سواء كتبت في a او c اي منهما سواء وفقت الكودين يعملو مع بعضهم او كود تاني زي ماتحب وعايز ده مع الترقيم التلقائي 

واسف علي الاطاله ولك ولاساتذة المنتدي الافاضل عظيم شكري

Book1.rar

Book1.rar

Book1.rar

[أحمد فؤاد]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
     If Not Intersect(Target, Range("a2:a10000")) Is Nothing Then
      VBA.Calendar = vbCalGreg
      If IsEmpty(Target) Then
         Target(1, 2).ClearContents
    Else
         With Target(1, 2)
               .Value = Date
               .EntireColumn.AutoFit
           End With
       End If
End If
If Not Intersect(Target, Range("c:c")) Is Nothing Then
     If Target.Offset(0, 1) = "" Or Not IsNumeric(Target.Offset(0, 1).Value) Then
         Cells(Target.Row, 5) = Date
     End If
End If
End Sub

[أبو صاصا]

شكرا جزيلا اخي الفاضل وجزاك الله خير جزاء