بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
وسؤال احد الاصدقاء
وكان السؤال كالاتى
لدى جدول به 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
من خلال هذا الكود يقوم بترحيل البيانات وايضا ظهار اخر قيمة فى العمود الاول والثانى على اليوزرفورم
احسنت وبارك الله فيك
ردحذفجزاك الله خير
حذفأزال المؤلف هذا التعليق.
ردحذفالسلام عليكم استاذنا الكريم انا احتاج نفس الطريقة ولكن انا لدي مدخول على مخزن نقود مثلاً اريد ظهور اخر قيمة ادخلتها طبعا جمع القيم السابقة و ظهورها في اليوزر فورم
ردحذف