استفسار عن تنسيق الجدول

[فريدة العصر]

أساتذة المنتدى الكرام

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

مشاركة مكررة ..... تــم بالفعل حذف المشاركة الأخرى

بيانات طلاب.xlsm

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

للمرة 100 بعد الالف (عدم ادراج ضفوف كثيرة جداً حوالي 3000 صف ) مثال بسيط من 10 الى 15 صف تكفي

الملف كيف يجب ان يبدو في دون الوان فاقعة   الصورة

يمكن ان تعدل في الكود اذا كان هناك احطاء لاني كنبته على وجه السرعة

الكود

Private Sub CommandButton1_Click()
 Dim sh As Worksheet
 Dim i%, BoL1 As Boolean, BoL2 As Boolean
 Dim AR_T()
 Dim AR_C()
 
 AR_T = Array(1, 2, 3, 4, 5, 6)
 AR_C = AR_T

 For i = 0 To 5
  If Me.Controls("TextBox" & AR_T(i)) = "" Then
   BoL1 = True
   Exit For
   End If
 Next
 
 For i = 0 To 5
  If Me.Controls("ComboBox" & AR_C(i)) = "" Then
   BoL2 = True
   Exit For
   End If
 Next
 
 If BoL1 Or BoL2 Then
    MsgBox Prompt:="يجب إكمال كافة البيانات", Title:="خطأ"
    Exit Sub
 End If
  Set sh = Sheets("data")
 Dim EndRow As Long
  EndRow = sh.Cells(Rows.Count, "b").End(3).Row + 1
   With sh.Cells(EndRow, 1)
    .Value = EndRow - 1
    .Offset(, 1) = TextBox1.Value 'OK
    .Offset(, 2) = TextBox2.Value
    .Offset(, 4) = ComboBox1.Value
    .Offset(, 9) = ComboBox3.Value
    .Offset(, 10) = ComboBox2.Value
    .Offset(, 13) = ComboBox4.Value
    .Offset(, 15) = TextBox6.Value
    .Offset(, 16) = ComboBox5.Value
    .Offset(, 17) = TextBox3.Value
    .Offset(, 18) = TextBox4.Value
    .Offset(, 19) = TextBox5.Value
   End With
  
    For i = 1 To 6
      Me.Controls("TextBox" & i) = ""
      Me.Controls("ComboBox" & i) = ""
    Next

   MsgBox Prompt:="تمت عملية ترحيل البيانات بنجاح", Title:="رسالة تأكيد"


End Sub

الملف مرفق

 

fATHI.xlsm

[فريدة العصر]

استاذنا الفاضل سليم حاصبيا 

دائما معين لكل من يطلب العون وحظى السعيد أن يكون دائما طلبى بالمساعدة بين يديكم وتكون الإجابة سريعة وشافية شكرا لحضرتك وشكرا للقائمين على المنتدى