اظهار اول صف ( فارغ) داخل الليست بوكس

[Mohmad83]

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

ارجو من الاخوة الكرام اساتذة واعضاء تعديل المرفق لاضهار الادخال الاخير في الليست بوكس مباشرتاً بعد ضغط زر الادخال واظهاره بشكل تلقائي . او بتعبير ثاني اظهار اول صف فارغ داخل الليست بوكس الغاية من ذلك مشاهدة الادخال الجديد داخل الليست وكذلك عند فتح الفورم يظهر اول صف فارغ.

مع الشرح ان امكن

جزاكم الله خيراً على كل ماقدمتوه وستقدموه…  تحياتي للجميع .

اضهار اول صف فارغ.xlsm

تم تعديل يناير 5, 2020 بواسطه Mohmad83

[سليم حاصبيا]

اختصار للأكواد (يمكنك التعامل مع الشيت حتى ولو كان اليوزر ظاهراً)

Private Sub CommandButton1_Click()
Sheets(1).Activate
lrow = Range("a" & Rows.Count).End(xlUp).Row
For k = 1 To 5
  With Range("a" & lrow + 1)
    .Offset(, k - 1).Value = Me.Controls("TextBox" & k)
     Me.Controls("TextBox" & k) = vbNullString
  End With
 Next
MsgBox "New Record Has Added in Row :" & lrow + 1

TextBox1.Value = lrow + 2
TextBox2.SetFocus
End Sub
'=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=

Private Sub UserForm_Initialize()
Me.ListBox1.ColumnCount = 6
Srow = Range("a" & Rows.Count).End(xlUp).Row
Me.ListBox1.RowSource = Range("a2:f" & Srow).Address

TextBox1.Value = Srow + 1
TextBox2.SetFocus
End Sub

الملف مرفق

MY_User.xlsm

[Mohmad83]

استاذي القدير الاخ سليم 

اشكر الجهد الذي تقدمه وحلولك الجذرية المميزة 

لكن اانا  متأسف لاني لم اوفق في توضيحي بالشكل المطلوب هو ان الفورم الذي انا بصدد انشاءه سوف يشغل جميع مساحة الشاشة ولذا كنت اطمح ان استغني عن اظهار الشيت واعتمد على الفورم 

[احمد بدره]

بعد إذن أستاذنا الفاضل سليم

جرب هذا لعله يفي الغرض

اضهار اول صف فارغ.xlsm

[احمد بدره]

أخي الفاضل Mohmad83  الإضافة التي كنت أضفتها هي وضع آخر سجل تم إضافته في الليست بوكس

و أيضا عند تحديد إي اسم من الليست بوكس يظهر في التكست بوكس

أما الذي تقصده حسب فهمي ممكن تحتاج إلى فرز تنازلي حسب رقم المسلسل داخل الشييت نفسه بعد عملية الإخال

جرب هذا

 

 

اضهار اول صف فارغ.xlsm

تم تعديل يناير 5, 2020 بواسطه احمد بدره

[Mohmad83]

شكرا استاذي العزيز على المجهود الذي تفضلت به تم حل المشكلة . جزاك الله خيرا