أضافة سطر جديد

[احمد زعل]

السلام عليكم

أخواني لدي ملف اكسل يحتوي على جدول

و اريد أن أدخل المعلومات من خلال شاشة VBA

وأستطع أن أضيف سطر جديد و لكن لا اعرف كيف أضيف البيانات بداخله

المثال في المرفقات

هل لدى أحدم فكرة 

 

الملف في المرفقات

qw.zip

[أبو حنــــين]

استعمل هذا الكود

Private Sub CommandButton1_Click()
Dim Lr As Long
Sheet1.Cells(Cells(Rows.Count, "C").End(xlUp).Row + 1, 3) = TextBox1
End Sub

[احمد زعل]

شكرا لك أخي أبو حنين ولكن أصبح يدرج البيانات ليس ضمن الجدول 

أي أن السطر الاول من الجدول يتركه فارغ و يدرج الارقام ضمن الحقول التي تليه

 

وشكرا لك على الرد

[احمد زعل]

على كل حال أجريت بعض التعديلات عليه و لقد عمل و لكن أن كان هنالك طريقة أخرى فأرجوا الافادة

 

Dim x As Long

 

Dim Lr As Long
If Cells(2, "C").Value = "" Then
x = Cells(Rows.Count, "C").End(xlUp).Row - 1
Else
x = Cells(Rows.Count, "C").End(xlUp).Row
End If

Sheet1.Cells(x + 1, 3) = TextBox1