Hello,
I am working on a userform and I am using this code to extract the data. I've named each section on the form and then I want the information to go into the next empty row when I hit submit. It was working at one point and now it is not. It bugs at the first Cell(erow,2)=.... and says I need an object? Please help...
ActiveWorkbook.Sheets("Reqs").Activate
Erow = Sheets("Reqs").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(Erow, 2) = REQ_TXTBX_REQNUM.Text
Cells(Erow, 5) = REQ_LISTBX_DATERCD_M.Text
Cells(Erow, 6) = REQ_LISTBXDATERCD_D.Text
Cells(Erow, 3) = REQ_LIST_POD.Text
Cells(Erow, 4) = REQ_LIST_RECRUITER.Text
Cells(Erow, 11) = REQ_LIST_JOBTITLE.Text
Cells(Erow, 12) = REQ_TXTBX_CITY.Text
Cells(Erow, 13) = REQ_LIST_STATE.Text
Cells(Erow, 14) = REQ_LIST_HIRINGMANAGER.Text
Cells(Erow, 15) = REQ_LIST_DEPT.Text
Cells(Erow, 16) = REQ_LIST_BUNIT.Text
Cells(Erow, 17) = REQ_LIST_SBAND.Text
Cells(Erow, 18) = REQ_LIST_SALGRD.Text
Cells(Erow, 19) = REQ_LIST_CAT.Text
Bookmarks