اظهار أخر رقم في نموذج الادخال

[الصادق ـ ح]

اريد ان يظهر أخر رقم  في العمود A في الخانة المطلوبة والموجدة في نموج الإدخال حسب الملف المرفق ... وشكرا

https://www.mediafire.com/file/fefzkr31kfps51d/برنامج-تسيير-الموظفين2028+__.xlsm/file

[عبدالله بشير عبدالله]

السلام عليكم

استبدل هذا

 Private Sub UserForm_Initialize()
Call showinlistbox
End Sub

بهذا

Private Sub UserForm_Initialize()
TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value)
Call showinlistbox
End Sub

TextBox25 = Val(Sheets("table").Cells(Rows.Count, 1).End(xlUp).Value)

[الصادق ـ ح]

شكرا استاذي عبدالله بشير عبدالله وبارك الله فيك على المساعدة