تسجيل البيانات بالترتيب

[elsedik]

المطلوب كيفية تسجيل من text item فى الخلية

وعند الدخول مرة اخرى يتم تسجيل فى الخلية الاسفل

وهكذا فى اى ورقة عمل اريد

تسجيل البيانات بالترتيب

تسجيل.rar

تم تعديل فبراير 28, 2011 بواسطه elsedik

[طارق محمود]

السلام عليكم

إستبدل الكود بالتالي

Private Sub Bu1_Click()

[b1000].End(xlUp).Offset(1, 0) = tx1.Value


End Sub

[يحيى حسين]

السلام عليكم و رحمة الله و بركاته

جرب هذا الكود اخي

Private Sub Bu1_Click()

Dim LR As Long

LR = Sheets("sheet1").Range("b" & Rows.Count).End(xlUp).Row + 1

Sheets("sheet1").Range("b" & LR).Value = tx1.Value

Unload Me

End Sub