My objective is to list user requests from different worksheets on a Status worksheet. (Not all worksheets are required to be entered by users.)
Example worksheets: Create, Update, Extend, Delete.
The program I came up with gets the value from Create but once the Update value is filled it overwrites the one from Create.
Sub commit()Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim count As IntegerSheet1.Range("M1").Value = "=counta(F5:F8)+3"Sheet4.Range("A1").Value = "=counta(E3:E100)+2"Sheet13.Range("A1").Value = "=counta(E3:E100)+2"count = WorksheetFunction.CountA(Sheet24.Range("A:A"))For b = 3 To Sheet4.Range("A1").Value Sheet24.Range("XFD1").Value = "=counta(a2:a100)+2" a = Sheet24.Range("XFD1").Value c = Sheet1.Range("M1").Value d = Sheet13.Range("A1").Value'create Sheet24.Range("A" & count).Value = Sheet4.Range("B" & b).Value Sheet24.Range("C" & count).Value = Sheet4.Range("D" & b).Value Sheet24.Range("D" & count).Value = Sheet4.Range("F" & b).Value Sheet24.Range("E" & count).Value = Sheet4.Range("J" & b).Value Sheet24.Range("G" & count).Value = Sheet1.Range("F" & c).Value'update-description Sheet24.Range("A" & count + 1).Value = Sheet13.Range("B" & d).Value 'maintenance request code Sheet24.Range("C" & count + 1).Value = Sheet13.Range("D" & d).Value 'line number Sheet24.Range("D" & count + 1).Value = Sheet4.Range("F" & b).Value 'mattype code Sheet24.Range("E" & count + 1).Value = Sheet4.Range("G" & b).Value