اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

AutoNumber column


الردود الموصى بها

السلام عليكم

ما شاء الله عليك أستاذ زياد مبدع كعادتك

لقد أضفت كودا لأحد الأعضاء يقوم بالترقيم التلقائي أيضا في الورقة 2

وأضفت طريقة أخرى في الورقة 3 باستخدام if

أرجو أن يكون مفيدا .

الترقيم التلقائي.rar

رابط هذا التعليق
شارك

السلام عليكم

اخي مزلزل جزاك الله خيراً على هذه الكلمات الطيبة

اخي سالم شيباني بالتأكيد المرفق مفيد بارك الله فيك اخي الحبيب

الله يبارك في اعماركم ويرزكم الحلال الطيب

تحياتي ايها الاحباب

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

السلام عليكم

هنا طريقه من انتاجنا المحلي "اوفسينا"


Private Sub Worksheet_Change(ByVal Target As Range)

Dim x As Long

x = Application.WorksheetFunction.CountA(Range("B2:B" & Target.Row))

If Target.Column = 2 And Target.Row > 1 Then

   If Target.Value <> "" Then

      Target.Offset(0, -1).Value = "-" & x

      Else

      Target.Offset(0, -1).Value = ""

    End If

End If

End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim x As Long

x = Application.WorksheetFunction.CountA(Range("B2:B" & Target.Row))

If Target.Column = 2 And Target.Row > 1 Then

   If Target.Value <> "" Then

      Target.Offset(0, -1).Value = "-" & x

      Else

      Target.Offset(0, -1).Value = ""

    End If

End If

End Sub

My-Method FOR Counting.rar

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information