تكملة أكواد الفورم

[زهرة122]

لو سمحتوا الفورم ده لادخال قيمة واحدة قام بعمله اساتذتنا فى المنتدى  وانا عاوز ادخل كذا قيمة دفعة واحدة انا اضفت 5 تكست بوكس للفورم بس مش عارف اعمل الاكواد ولكم جزيل الشكر

الضغط على الإنتر بدلا من الزر2.xlsm

[حسين مامون]

انسخي هذا الكوذ الى الزر الذي تريدين وضعيه بين السطرين Private Sub CommandButton2_Click()
و end sub 

الكود بسيط يمكنك التعديل عليه حسب السكستبوكس او العمود المرحل اليه

اضيفي تسكستبوك الذي تريدين

Dim lr
lr = Cells(Rows.Count, 2).End(3).Row + 1
Range("b" & lr).Value = TextBox4.Value
Range("c" & lr).Value = TextBox5.Value
Range("d" & lr).Value = TextBox6.Value

TextBox4 = ""
TextBox5 = ""
TextBox6 = ""

 

تم تعديل فبراير 16, 2021 بواسطه حسين مامون

[زهرة122]

حاولت ادانى خطأ

 

[حسين مامون]

ارفعي صورة عن الخطأ واشرحي المطلوب بالظبط