Hi, I have am building a simple form that I have teams filling out for peoples schedules. I have a macro that pulls the data from the form and adds it to a basic data dumb on a different sheet.
I am wondering how to write it so my macro will ignore pulling lines of data that are left empty. Example, someone only works 2 days and leaves 3 of the days on the form blank. I'd want the macro to only pull the two days and not create new entries for the 3 empty days.
Below is my basic macro.
Sub data_input()
ws_output = "Data"
next_row = Sheets(ws_output).Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Sheets(ws_output).Cells(next_row, 1).Value = Range("Associate_ID").Value
Sheets(ws_output).Cells(next_row, 2).Value = Range("Div_Number").Value
Sheets(ws_output).Cells(next_row, 3).Value = Range("Store_Number").Value
Sheets(ws_output).Cells(next_row, 4).Value = Range("Zone_Number").Value
Sheets(ws_output).Cells(next_row, 5).Value = Range("Date_1").Value
Sheets(ws_output).Cells(next_row, 6).Value = Range("Start_Hour_1").Value
Sheets(ws_output).Cells(next_row, 7).Value = Range("Date_1").Value
Sheets(ws_output).Cells(next_row, 8).Value = Range("End_Hour_1").Value
next_row = Sheets(ws_output).Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Sheets(ws_output).Cells(next_row, 1).Value = Range("Associate_ID").Value
Sheets(ws_output).Cells(next_row, 2).Value = Range("Div_Number").Value
Sheets(ws_output).Cells(next_row, 3).Value = Range("Store_Number").Value
Sheets(ws_output).Cells(next_row, 4).Value = Range("Zone_Number").Value
Sheets(ws_output).Cells(next_row, 5).Value = Range("Date_2").Value
Sheets(ws_output).Cells(next_row, 6).Value = Range("Start_Hour_2").Value
Sheets(ws_output).Cells(next_row, 7).Value = Range("Date_2").Value
Sheets(ws_output).Cells(next_row, 8).Value = Range("End_Hour_2").Value
next_row = Sheets(ws_output).Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Sheets(ws_output).Cells(next_row, 1).Value = Range("Associate_ID").Value
Sheets(ws_output).Cells(next_row, 2).Value = Range("Div_Number").Value
Sheets(ws_output).Cells(next_row, 3).Value = Range("Store_Number").Value
Sheets(ws_output).Cells(next_row, 4).Value = Range("Zone_Number").Value
Sheets(ws_output).Cells(next_row, 5).Value = Range("Date_3").Value
Sheets(ws_output).Cells(next_row, 6).Value = Range("Start_Hour_3").Value
Sheets(ws_output).Cells(next_row, 7).Value = Range("Date_3").Value
Sheets(ws_output).Cells(next_row, 8).Value = Range("End_Hour_3").Value
next_row = Sheets(ws_output).Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Sheets(ws_output).Cells(next_row, 1).Value = Range("Associate_ID").Value
Sheets(ws_output).Cells(next_row, 2).Value = Range("Div_Number").Value
Sheets(ws_output).Cells(next_row, 3).Value = Range("Store_Number").Value
Sheets(ws_output).Cells(next_row, 4).Value = Range("Zone_Number").Value
Sheets(ws_output).Cells(next_row, 5).Value = Range("Date_4").Value
Sheets(ws_output).Cells(next_row, 6).Value = Range("Start_Hour_4").Value
Sheets(ws_output).Cells(next_row, 7).Value = Range("Date_4").Value
Sheets(ws_output).Cells(next_row, 8).Value = Range("End_Hour_4").Value
next_row = Sheets(ws_output).Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Sheets(ws_output).Cells(next_row, 1).Value = Range("Associate_ID").Value
Sheets(ws_output).Cells(next_row, 2).Value = Range("Div_Number").Value
Sheets(ws_output).Cells(next_row, 3).Value = Range("Store_Number").Value
Sheets(ws_output).Cells(next_row, 4).Value = Range("Zone_Number").Value
Sheets(ws_output).Cells(next_row, 5).Value = Range("Date_5").Value
Sheets(ws_output).Cells(next_row, 6).Value = Range("Start_Hour_5").Value
Sheets(ws_output).Cells(next_row, 7).Value = Range("Date_5").Value
Sheets(ws_output).Cells(next_row, 8).Value = Range("End_Hour_5").Value
Range("Dates_And_Times").ClearContents
MsgBox ("Form Submit")
End Sub