اليوزر فورم وترحيل البيانات من اليوزر فورم الى ورقة العمل بكل سهولة - اكسيل-2

برنامج السهل المفيد للمخازن والمبيعات والمشتريات مع الشرح نسخه كامله ومجانيه 100% ومفتوحة المصدر (جديد)
https://www.youtube.com/edit?o=U&video_id=9w-IXc7sYxw
--------------------------------------------------------------------------------------------
رابط تحميل الملف المستخدم فى الشرح بالاكواد
http://www.mediafire.com/file/omcqpgctyms99m7/%D8%B9%D8%AF%D9%85+%D8%AA%D8%B1%D8%AD%D9%8A%D9%84+%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA+%D8%A7%D9%84%D8%A7+%D8%A8%D8%B9%D8%AF+%D8%A7%D8%B3%D8%AA%D9%83%D9%85%D8%A7%D9%84+%D8%A7%D9%84%D8%A8%D9%8A%D8%A7%D9%86%D8%A7%D8%AA+%D8%A7%D9%84%D9%85%D9%88%D8%AC%D9%88%D8%AF%D8%A9+%D8%AF%D8%A7%D8%AE%D9%84+%D8%A7%D9%84%D9%81%D9%88%D8%B1%D9%85+%D9%81%D9%82%D8%B7.xlsm
اليوزر فورم وترحيل البيانات من اليوزر فورم الى ورقة العمل بكل سهوله - اكسيل
الكود المستخدم فى الترحيل عشان خاطر عيونكم

نضغط دبل كليك على CommandButton1 ثم نضع فيه الكود التالى
Private Sub CommandButton1_Click()
Dim lastrow As Integer
lastrow = [a100].End(xlUp).Row + 1
Cells(lastrow, 1).Value = Me.TextBox1.Value
Cells(lastrow, 2).Value = Me.TextBox2.Value
Cells(lastrow, 3).Value = Me.TextBox3.Value
MsgBox "تم الترحيل بنجاح"
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox1.SetFocus

End Sub
كود الاغلاق او الانتهاء وغلق الفورم نضغط دبل كليك على CommandButton2 ونضع فيه الكود التالى
Private Sub CommandButton2_Click()
Unload Me
End Sub
يمكن ترك اى تعليق او استفسار وساقوم بالرد عليه
وسنقوم بعمل برنامج حسابات محاسب المبيعات والمشتريات والمخازن وحسابات العملاء والموردين ومسئولى الخزينة خطوة خطوة فى برنامج رائع وقوى وجميل جدا
تابعونا على مدونة Khaled TV وإضغط لايك وSubscribe ليصلك كل جديد لتكون كالمحترفين

Видео اليوزر فورم وترحيل البيانات من اليوزر فورم الى ورقة العمل بكل سهولة - اكسيل-2 канала KHALED ABOUZAID TV