تعديل على فورم إضافة

[ابوصلاح]

بعد اذنكم طلب بسيط اريد تعديل الفورم لكي يكتب بيانات للاسفل وجزاكم الله خيرا

حسين.rar

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

السلام عليكم

زر الاضافة يصبح بهذا الكود

Private Sub CommandButton1_Click()
Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1

      Cells(Lr, 2) = TextBox1.Value
      Cells(Lr, 3) = TextBox2.Value
   TextBox1 = ""
   TextBox2 = ""
End Sub

[رجب جاويش]

أخى الحبيب / أبو حنين

سلمت يداك

جزاك الله كل خير

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

أخي الحبيب : رجب جاويش

جزاكم الله خيرا على المرور

[الجموعي]

كود أخر يصلح لذلك

lr = Cells(Rows.Count, "a").End(xlUp).Row
ActiveSheet.Cells(1, 1).Value = Me.TextBox1.Value
ActiveSheet.Cells(1, 2).Value = Me.TextBox2.Value

[ابوصلاح]

 

السلام عليكم

زر الاضافة يصبح بهذا الكود

Private Sub CommandButton1_Click()
Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1

      Cells(Lr, 2) = TextBox1.Value
      Cells(Lr, 3) = TextBox2.Value
   TextBox1 = ""
   TextBox2 = ""
End Sub

شكرا استاذنا ومعلمنا الكبير