طلب اضافة على الكود

[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

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

 

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

قم بالإشارة لورقة العمل قبل هذا الجزء

Range("a1:a50000")

بهذا الشكل

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

حيث Sheet1 هو اسم ورقة العمل ...