تحويل معادلة بدالة Subtotal الي كود للترقيم التلقائي ( عنوان معدل )

[أبو صاصا]

ارجو من حضراتكم تحويل المعادلة التالية الي كود 

   

                                                                           =IF(جديد!C7="";"";SUBTOTAL(3;جديد!$C$7:$C7))

بحيث لوكتبت ف c اوd يكتب الترقيم تلقائي في الخلية b

ولكم مني وافر الاحترام وعظيم الشكر

[أبو حنــــين]

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 3 Or Target.Column = 4 And Target <> "" Then _
Cells(Target.Row, 2) = Application.WorksheetFunction.Subtotal(3, Range("$B:$B"))


End Sub

[حمادة عمر]

السلام عليكم

الاخ الكريم / فتحي سلام

بارك الله فيك

اولا ... هنيئاً لك حل الاستاذ الحبيب /  أبو حنين ... جزاه الله خيرا

 

برجاء ملاحظة عناوين المواضيع الخاصه بك

حيث ان عنوان الموضوع مخالف لقواعد المشاركات بالمنتدي

وبرجاء الاطلاع علي هذه القواعد

 

 

قواعد المشاركة فى الموقعاضغط هنـــــــــامن فضلك لقراءة القواعد كاملة
و بصفة خاصة نؤكدعلى ما يلي
1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة
2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد.
3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال.
4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا.....
5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.
ومخالفة ذلك تعرض الموضوع للحذف

 

 

==============

الادارة

==============

[بن علية حاجي]

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

 

أخي الحبيب أبو حنين أعتقد أن الكود يقوم بالترقيم لكل حجز في العمودين C و D...

 

أخوكم بن علية

تم تعديل مارس 7, 2014 بواسطه بن علية حاجي

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

اخى ابوحنين

كود رائع جدا

بارك الله فيك

[أبو حنــــين]

اخي ابراهيم

 

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

*************************

اخي بن عليه

 

اعتقد ان السائل طلب الترقيم عند الكتابة في احد العمودين هذا حسب فهمي و الله اعلم

و السلام عليكم

[أم عبد الله]

الأستاذ / فتحي سلام

 

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

 

بعد إذن أستاذنا الكبير /أبو حنين جزاك الله خيراً ولإثراء الموضوع يمكن الحل بالمعادلة إن كان الكتابة في العمود C أو B فقط لأن حاولت عملها إذا كانت الكتابة في العمودين معاً ترقم كل عمود على حدى.

Book55.rar