ترحيل بيانات من يوزر فورم

[تيبازي]

نرجوا من الأساتذة الكرام المساعدة في كود ترحيل بسيط بحيث عند ترحيل عامل جديد لا يمحي سابقه،بمعني نزيد العامل الجديد في السطر الذي يلي العامل السابق و الشكر مسبقا

العمال.rar

[تيبازي]

أشكرك أستاذنا الكريم عبدالله باقشير على اهتمامك و جازاك الله عنا كل خير

[عبدالله باقشير]

السلام عليكم

جرب هذا الكود

Private Sub CommandButton1_Click()
Dim Lr As Integer, i As Integer
If Trim(Me.TextBox1) = "" Then Exit Sub
Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1
For i = 1 To 9
    Cells(Lr, i + 1).Value = Me.Controls("TextBox" & i).Value
Next
End Sub

تحياتي

[تيبازي]

شكرا على الإهتمام أستاذنا الفاضل،سأجرب 

[تيبازي]

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

[تيبازي]

لكن في حالة الترحيل الى شيت آخر كيف نغير في الكود مع الشرح استاذي الفاضل ان امكن حتى تتوضح الفكرة

 

تم تعديل ديسمبر 10, 2013 بواسطه تيبازي