زياد علي قام بنشر نوفمبر 29, 2009 قام بنشر نوفمبر 29, 2009 السلام عليكم عيدكم مبارك تستطيع أن تقوم من خلال هذا الكود بعمل ترقيم تلقائي لعمود معين ... تفضلوا المرفق الترقيم التلقائي.rar
أبو جديد قام بنشر نوفمبر 29, 2009 قام بنشر نوفمبر 29, 2009 أخي / زياد علي أحسنت والله يعطيك العافية وإلى الأمام
سالم شباني قام بنشر نوفمبر 29, 2009 قام بنشر نوفمبر 29, 2009 السلام عليكم ما شاء الله عليك أستاذ زياد مبدع كعادتك لقد أضفت كودا لأحد الأعضاء يقوم بالترقيم التلقائي أيضا في الورقة 2 وأضفت طريقة أخرى في الورقة 3 باستخدام if أرجو أن يكون مفيدا . الترقيم التلقائي.rar
زياد علي قام بنشر نوفمبر 29, 2009 الكاتب قام بنشر نوفمبر 29, 2009 السلام عليكم اخي مزلزل جزاك الله خيراً على هذه الكلمات الطيبة اخي سالم شيباني بالتأكيد المرفق مفيد بارك الله فيك اخي الحبيب الله يبارك في اعماركم ويرزكم الحلال الطيب تحياتي ايها الاحباب
خالد القدس قام بنشر نوفمبر 30, 2009 قام بنشر نوفمبر 30, 2009 السلام عليكم إبداع وعطاء ونشاط ألف شكر أستاذي الفاضل زياد وجزاك الله خيرا أستاذ مزلزل تسعدني معرفة وكلما أرى أسمك أتذكر مشاركتك الرائعة والفريدة في ربط ملف الاكسيل بملف البوربوينت وقد استفدت منها كثيرا فجزاك الله خيرا أستاذي الكريم سالم اشتقت لك كثيرا وإلى لمسات الإبداعية جزاكم الله عنا خير الجزاء وأوفاه
زياد علي قام بنشر نوفمبر 30, 2009 الكاتب قام بنشر نوفمبر 30, 2009 السلام عليكم الاخ badico اشكرك جزيل الشكر ،،، وتقبل تحياتي العطرة لك اخي الحبيب خالد القدس لك مني كل الاحترام والتقدير تحياتي
زياد علي قام بنشر ديسمبر 2, 2009 الكاتب قام بنشر ديسمبر 2, 2009 السلام عليكم اخي zizoo_2021 وفيك بارك الله منور يا اخي الحبيب تحياتي
زياد علي قام بنشر ديسمبر 6, 2009 الكاتب قام بنشر ديسمبر 6, 2009 السلام عليكم اخي العزيز انت الممتاز والله بهذا المرور الكريم تقبل تحياتي
munaf قام بنشر ديسمبر 7, 2009 قام بنشر ديسمبر 7, 2009 السلام عليكم بارك الله فيك اخي زيد وجزاك الله خيرا مجهود رائع ومعلومات قيمة
خالد الشاعر قام بنشر ديسمبر 7, 2009 قام بنشر ديسمبر 7, 2009 استاذ زيد عمل ممتاز تسلم ايدك ولكن هل ممكن يقوم بالترقيم عند وجود اسم واذا كانت الخلية فارغة لا يعطى رقم وليس بمعادلة If لان If عند الاستخدام و عمل قطع و لصق مع المعالة لا تعمل جيداً برجاء بالماكرو ولك كل الشكر
ابو اسامة العينبوسي قام بنشر ديسمبر 7, 2009 قام بنشر ديسمبر 7, 2009 السلام عليكم هنا طريقه من انتاجنا المحلي "اوفسينا" 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
خالد الشاعر قام بنشر ديسمبر 7, 2009 قام بنشر ديسمبر 7, 2009 استاذ ابو اسامة اشكرك على سرعة الرد بهذا الكود الجميل ولكن عند لصق اسمماء فى عمود b يعطى مشكلة فى الماكرو فهل ممكن حل هذه المشكلة الف شكر يا استاذ اسامة
زياد علي قام بنشر ديسمبر 8, 2009 الكاتب قام بنشر ديسمبر 8, 2009 السلام عليكم اخي العزيز khhanna تفضل المرفق AUTONUM2.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.