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

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