احمد عبد الحميد قام بنشر سبتمبر 14, 2018 مشاركة قام بنشر سبتمبر 14, 2018 (معدل) 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 بواسطه احمد عبد الحميد رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر سبتمبر 15, 2018 مشاركة قام بنشر سبتمبر 15, 2018 أهلا بك اخ كريم فى المنتدى تم التعديل والتنظيم للفورم Userform.xlsm رابط هذا التعليق شارك More sharing options...
sayed_973 قام بنشر يناير 14, 2019 مشاركة قام بنشر يناير 14, 2019 مشكور رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.