بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
وسؤال احد الاصدقاء
وكان السؤال كالاتى
لدى جدول به 5 اعمدة واريد ان اخر قيمة يتم ترحلية الى الجدول تظهر تلقائيا فى اليوزرفورم
نريد فى هذا المثال ان تظهر اخر قيمة فى العمود رقم 1 والعمود رقم 2 فى اليوزرفورم بعد الترحيل مباشرة
هنعمل الكلام دة ازاى او حاجة هنعرف متغير وليكن lr
ونضع زر ترحيل على اليوزرفورم ونضع فية هذا الكود
Dim lr As Integer
lr = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lr, 1) = TextBox1.Value
Cells(lr, 2) = TextBox2.Value
Cells(lr, 3) = TextBox3.Value
Cells(lr, 4) = TextBox4.Value
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5.Value = Cells(lr, 1).Value
TextBox6.Value = Cells(lr, 2).Value
من خلال هذا الكود يقوم بترحيل البيانات وايضا ظهار اخر قيمة فى العمود الاول والثانى على اليوزرفورم