كود الترقيم التلقائي بالجملة

[aspiran]

السلام عليكم أحبابي أعضاء ورواد المنتدى

 

أطلب من  رواد المنتدى مساعدتي في إيجاد كود يقوم بالترقيم التلقائي مباشرة في العمود "A" بعد لصق مجموعة من الكلمات في العمود

"B

 

شكرامسبقا

[كرتوتي]

السلام عليكم اخي جرب المرفق التالي اتمنى ا يكون هو المطلوب

Classeur1.rar

[حسين العصلوجى]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
    For x = 2 To Range("b65536").End(xlUp).Row
        If Cells(x, "b") <> "" Then
        Cells(x, "A") = Cells(x - 1, "A") + 1
        End If
    Next
End If
End Sub

 

اثراءا للموضوع حل اخر بالاكواد لتجنب كتابة المعادلات في كل خلية

لعله يفى بالغرض

 

H-Classeur1.rar

تم تعديل مارس 12, 2013 بواسطه حسين العصلوجى

[شوقي ربيع]

كود جميل ببساطته شكرا اخي حسين

[إبراهيم ابوليله]

اخى الحبيب حسين

بارك الله فيك

ولكن اسمح لى

هذا تعديل بسيط

على الكود تفاديا لحدوث الاخطاء

فى حالة ترك خليه فارغهH-Classeur1.rar

[عمر أبو صهيب]

جزاكم الله خيرا

كارتوني

حسن العصلوجي

ابراهيم أبو ليله

زيدونا علما

[حسين العصلوجى]

جزاك الله خيرا علي مجهودك بس لاحظت وجود خطأ فالكود فعند ترك خلية فارغة يقوم بعمل ترقيم خاطئ فهو يبدأ من 1 وليس من اخر رقم

 

ان شاء الله باعدل الكود اللي انت حطيته عشان نتلاشي هذا الخطأ وتعم الفائدة

[aspiran]

شكرا للجميع والله أحسن منتدى سجلت فيه منذ أن تعلمت البحث في الأنترنيت

 

جزاكم الله خيرا وزادكم علما *****آمين****

[جلال محمد]

جزاك الله خيرا أخي حسين واخي ابراهيم

جميل جدا

وان شاء الله في انتظار التعديل

[إبراهيم ابوليله]

اخى الكريم

تفضل

ارجو ان يفى الكود بالغرض

H-Classeur1.rar

[أبو محمد أشرف]

وإثراء للموضوع 

http://www.officena.net/ib/index.php?showtopic=45904&hl=

[aspiran]

شكرا للجميع فقط أستاذ/

أبو محمد أشرف

أشكرك على كل ماتقدمه فهل ممكن المرفقات تكون بالأوفيس 2003

[أبو محمد أشرف]

وبناء على طلب الأخ الكريم 

aspiran

فقد حولت الملف لأوفيس 2003

ومرحبا بك أخي بين أعضاء المنتدى 

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

كود 3ترقيم تلقائي 2003.rar

[aspiran]

بارك الله فيك أستاذ

أبو محمد أشرف و أشكرك على الإستضافة

لكن لدي إستفسار لو سمحت هل تحويل الملفات من 2007 أو.....إلى 2003 يكون ببرنامج أم ماذا لأني لم أعمل بالإصدارات الأخيرة

 

وجزاك الله خيرا

[أبو محمد أشرف]

تفضل أخي الحبيب هذا المرفق شرح حفظ ملف 2007 أو 2010 بتنسيق 2003

وعذرا على التأخر لمشاكل عندي في الانترنت

http://www.4shared.com/rar/1sHPlrVF/___2007__2010___2003.html

[أبو محمد أشرف]

تفضل أخي الحبيب هذا الرابط شرح حفظ ملف 2007 أو 2010 بتنسيق 2003

وعذرا على التأخر لمشاكل عندي في الانترن

http://www.4shared.com/rar/1sHPlrVF/___2007__2010___2003.htmlت