اضافة البيانات في الرو عند منتصف الشيت (صورة توضيحة مرفقة مع الملف)

[Alaaq3]

عند فتح اليزرفروم والبدء بملأ بيانات المظف اريد ان يقوم البرنامج باضافتها الى منتصف الشيت اي بعد اخر حقل فيه الرقم القومي . لان الي داي يصير عندي هو اضافة اسم مكان اسم (اي يستبدل الاسم الجديد ماكان اسم قديم بالشيت)

انتبه من فضلك ... مشاركة مكررة تـــم بالفعل حذف المشاركة الأخرى
الكود

Private Sub CommandButton2_Click()

If ComboBox2.Value = "" Then
MsgBox "يرجى إختيار اسم الشيت المرحل إليه", vbCritical
Exit Sub
End If

lrw = Sheets(ComboBox2.Value).Cells(Rows.Count, 2).End(xlUp).Row

ListBox1 = ""
For j = 1 To 26
         
         Sheets(ComboBox2.Value).Cells(lrw + 1, j) = Controls("TextBox" & j).Text
       
Next j
MsgBox "تمت عملية الترحيل بنجاح"
For i = 1 To 26
             Controls("TextBox" & i).Text = ""
Next i
ListBox1.AddItem
 ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(ComboBox2.Value).Cells(lrw + 1, 2).Value
  ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1
  TextBox1.Value = Application.WorksheetFunction.Max(Sheets(ComboBox2.Value).Range("A2:A10000")) + 1
TextBox2.SetFocus
End Sub

اضافة البيانات مباشرة بعد الحقل الفارغ من الرقم القومي مع الحفاظ على التسلسل.xlsm

[حسين مامون]

جرب المرفق

اضافة البيانات مباشرة بعد الحقل الفارغ من الرقم القومي مع الحفاظ على التسلسل.xlsm

[Alaaq3]

الاخ العزيز : الكود يعمل . ولكن اريد الاسم الذي اضيف له الرقم القومي يصعد اسفل الاسماء التي تحتوي على الرقم القومي . والاسم الذي لايحتوي على الرقم القومي ينزل اسفل الاسماء التي لاتحتوي على الرقم القومي مع الحفاظ على التسلسل

 

[حسين مامون]

ارفع صورتين

الاولى قبل تغير شيء

والثانية بعد الاضافة مع تلوين البيانت الجديدة بلون اخر

[Alaaq3]

[حسين مامون]

السلام عليكم

اخي الكريم لم اغير شيء في الكود لاني وجدت ان التعديل الملون بالبني في صورتك هو نفس ما يقوم به الكود 

انظر الصورتين 

لما طلبت منك رفع صورتين يعني تشرح فيهم ما تريد بعد تنفيذ الكود ( كيف تظهر البيانات بعد اضافتها في الرو باخر خلية فارغة في العمود B)

الصورة بعد اصافة البيانات الملونة بالاخضر

الكود يضيف صف فارغ ويصدر اليه البيانات المعبأة في التكستات

[Alaaq3]

الاخ الكريم : اريد ان تكون اضافة البيانات بهذا الترتيب بحيث يكون ادخال الاسم الذي يحتوي على رقم قومي اسفل الاسماء التي تحتوي على رقم قومي , اما الاسم الذي لايحتوي على رقم قومي يكون اسفل الاسماء التي لاتحتوي على رقم قومي . (كما مؤسر بالصورة) مع الحفاظ على التسلسل اثناء الاضافةث

[حسين مامون]

تفضل 

اضافة البيانات مباشرة بعد الحقل الفارغ من الرقم القومي مع الحفاظ على التسلسل.xlsm