Hello,

I was wonder if someone could take a quick glance to see if the way that I am coding saving data once the user data on the user form has been changed is efficient since it takes a long time to save the record (my user's will not have to patience to wait 10 seconds for it to save).. I was thinking maybe there is a better way...


Worksheets("Job Number List").Cells(lCurrentRow, 1).Value = IDChange
Worksheets("Job Number List").Cells(lCurrentRow, 3).Value = txtJobNumber.Text
Worksheets("Job Number List").Cells(lCurrentRow, 4).Value = txtAdjNo.Text
Worksheets("Job Number List").Cells(lCurrentRow, 5).Value = txtDateReceived.Text
Worksheets("Job Number List").Cells(lCurrentRow, 6).Value = txtDateRequired.Text
Worksheets("Job Number List").Cells(lCurrentRow, 7).Value = txtCompany.Text
Worksheets("Job Number List").Cells(lCurrentRow, 8).Value = txtPONumber.Text
Worksheets("Job Number List").Cells(lCurrentRow, 9).Value = txtJobDescription.Text
Worksheets("Job Number List").Cells(lCurrentRow, 10).Value = txtWeight.Text
Worksheets("Job Number List").Cells(lCurrentRow, 11).Value = txtDateCompleted.Text
Worksheets("Job Number List").Cells(lCurrentRow, 12).Value = txtRTNo.Text
Worksheets("Job Number List").Cells(lCurrentRow, 13).Value = txtCrossRef1.Text
Worksheets("Job Number List").Cells(lCurrentRow, 14).Value = txtCrossRef2.Text
Worksheets("Job Number List").Cells(lCurrentRow, 15).Value = txtShrink.Text
Worksheets("Job Number List").Cells(lCurrentRow, 16).Value = txtResinType.Text
Worksheets("Job Number List").Cells(lCurrentRow, 17).Value = txtDesignerName.Text
Worksheets("Job Number List").Cells(lCurrentRow, 18).Value = txtComments.Text
Worksheets("Job Number List").Cells(lCurrentRow, 19).Value = txtExpectedDesignStartDate.Text
Worksheets("Job Number List").Cells(lCurrentRow, 20).Value = txtExpectedDesignCompletionDate.Text
Worksheets("Job Number List").Cells(lCurrentRow, 21).Value = txtActualCompletionDate.Text
Worksheets("Job Number List").Cells(lCurrentRow, 22).Value = txtTeamLeader.Text
Worksheets("Job Number List").Cells(lCurrentRow, 23).Value = txtExpectedShopStartDate.Text
Worksheets("Job Number List").Cells(lCurrentRow, 24).Value = txtExpectedShopCompletionDate.Text
Worksheets("Job Number List").Cells(lCurrentRow, 25).Value = txtActualShopCompletionDate.Text

'Customer Details
Worksheets("Job Number List").Cells(lCurrentRow, 26).Value = txtPODate.Text
Worksheets("Job Number List").Cells(lCurrentRow, 27).Value = txtLeadTime.Text
Worksheets("Job Number List").Cells(lCurrentRow, 28).Value = txtCustMouldRefNo.Text
Worksheets("Job Number List").Cells(lCurrentRow, 29).Value = txtContactPerson.Text
Worksheets("Job Number List").Cells(lCurrentRow, 30).Value = txtEmail.Text
Worksheets("Job Number List").Cells(lCurrentRow, 31).Value = txtDimensions.Text
Worksheets("Job Number List").Cells(lCurrentRow, 32).Value = txtContactPhoneNo.Text
'Worksheets("Job Number List").Cells(lCurrentRow, 33).Value= txtPackingSlipNo.Text

'Mould Type

If chkMouldTypeProduction = True Then
Worksheets("Job Number List").Cells(lCurrentRow, 34).Value = "Production"
Else
Worksheets("Job Number List").Cells(lCurrentRow, 34).Value = ""
End If
If chkMouldTypePrototype = True Then
Worksheets("Job Number List").Cells(lCurrentRow, 35).Value = "Prototype"
Else
Worksheets("Job Number List").Cells(lCurrentRow, 35).Value = ""
End If
If chkMouldTypeStripperPlate = True Then
Worksheets("Job Number List").Cells(lCurrentRow, 36).Value = "Stripper Plate"
Else
Worksheets("Job Number List").Cells(lCurrentRow, 36).Value = ""
End If
If chkMouldTypeConventional = True Then
Worksheets("Job Number List").Cells(lCurrentRow, 37).Value = "Conventional"
Else
Worksheets("Job Number List").Cells(lCurrentRow, 37).Value = ""
End If
If chkMouldTypeVertical = True Then
Worksheets("Job Number List").Cells(lCurrentRow, 38).Value = "Vertical"
Else
Worksheets("Job Number List").Cells(lCurrentRow, 38).Value = ""
End If
If chkMouldTypeOther = True Then
Worksheets("Job Number List").Cells(lCurrentRow, 39).Value = "Other"
Worksheets("Job Number List").Cells(lCurrentRow, 40).Value = txtMouldTypeOther.Text
Else
Worksheets("Job Number List").Cells(lCurrentRow, 39).Value = ""
Worksheets("Job Number List").Cells(lCurrentRow, 40).Value = ""
End If

etc....

There is a total of 210 fields of information... and although it works.. i think i am doing something not as well as it could be...

Thanks for any input...