اضافة على كود الترقيم التلقائي في الفورم

[KI50NG]

السلام عليكم . 

انا عملت فورم وعملت فيه ترقيم تلقائي يتبع اخر ترقيم . 

ولكن المشكلة لمن اكون على صفحة الصادر فرضا ً يديني الترقيم , ولمه ما اكون عليه يديني 0 يبداء الترقيم من 0 . 

هاذا الكود .

Private Sub TextBox2_Change()
If TextBox2.Value <> "" Then
ks = WorksheetFunction.CountA(Range("a1:a50000"))
TextBox1.Value = ks
Else
TextBox1.Value = ""
End If
End Sub

المطلوب . اضافة امر يتبع احداثات الشيت المطلوب الية . 

 

[خالد الرشيدى]

السلام عليكم

اخي الكريم مبدئيا لم افهم المطلوب تماما ولكن

انظر معى الى هذا الجزء من الكود 

CountA(Range("a1:a50000"))

هذا النطاق لاي ورقة عمل -- حضرتك لم تحدد  -- اقصد مثلا لو انه لشيت واحد لكان شكله هكذا --

CountA(Sheet1.Range("a1:a50000"))

( ان لم تحدد سيتعرف الاكسيل تلقائي على هذا النطاق وكأنه للصفحه النشطه اياً كانت ) بعد هذا ان لم تصل الى الحل ارفق النموزج للعمل عليه 

تقبل تحياتى

[KI50NG]

تسلم يالغالي . دا المطلوب كان . 

الحين معايا سؤال . انا الحين بدي اسوي اختيار في الفورم يجلبلي صورة في او PDF بحيث يكون مثل الارتباط التشعب لمن اختار يطلعلي صورة ادوس عليها يعرضلي الصورة او المف ومش عارف من وين احصلها هل في شرح معين للموضوع 

[خالد الرشيدى]

السلام عليكم

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

والمهم هو ادراج نموزج ليس شرطاإ ان يكون نموزج عملك اى نموزج مبسط مشروح فيه الفكره بشي من التفصيل

وان شاء الله تجد المساعده منى او من احد اساتذتي بالمنتدي

تقبل خالص تحياتى 

[ياسر خليل أبو البراء]

أعتقد الموضوع مكرر ..

عموماً أخي الكريم يفضل أن يكون الموضوع لطلب واحد فقط ، حيث أن المشاركات الفرعية لا يلتفت إليها الكثير من الأعضاء

بارك الله فيك أخي الغالي خالد الرشيدي على متابعتك الرائعة لمشكلات الأعضاء

تقبلوا تحياتي