اكواد اليوزر فورم

[احمد عبد الحميد]

if textbox1.value <> "" and textbox2.value<>"" and textbox3.value <> "" and textbox4.value <> "" and textbox5.value <> "" and textbox5.value <> ""  then sheetes (1).activate
1row = range("d" & raws.count) .end (x1up) .row
range ("d" & 1row + 1) .value = textbox1 .value
range ("d" & 1row + 1) .offset (0, 1) .value = textbox2 .value
range ("d" & 1row + 1) .offset (0, 2) .value = textbox3 .value
range ("d" & 1row + 1) .offset (0, 3) .value = textbox4 .value
range ("d" & 1row + 1) .offset (0, 4) .value = textbox5 .value
range ("d" & 1row + 1) .offset (0, 5) .value = textbox6 .value
 textbox1 .value = ""
 textbox2 .value = ""
 textbox3 .value = ""
 textbox4 .value = ""
textbox5 .value = ""
textbox6 .value = ""
else
msgbox ("يرجي التاكد من ادخال كل البيانات")
end if

مش عارف ليه مش راضي يقبله مني لما اجي اتست عليه

Book1.xlsm

تم تعديل سبتمبر 14, 2018 بواسطه احمد عبد الحميد

[Ali Mohamed Ali]

أهلا بك اخ كريم فى المنتدى

تم التعديل والتنظيم للفورم

 

Userform.xlsm

[sayed_973]

مشكور