Multiple Users Unable to Input Data Via a Userform into a Shared Workbook Due to Overwriting Conflicts

12 views
Skip to first unread message

Nina Manns

unread,
Apr 12, 2016, 12:07:54 PM4/12/16
to excel vba
Wondering if ANYONE can possibly help me find a solution, please.

I have created a shared workbook containing a userform that has VBA code to transfer input data to a worksheet. However, when multiple users enter data a Resolve Conflict dialog box is displayed as follows:

Your changes on sheet "SrOfcSpc" changed cell A4 from '' to '4/15/2016' Conflicting changes by John Doe -- 4/11/16 3:44PM changed cell A4 from '' to '4/11/2016'

How can I prevent this from happening so that multiple users can input at the same time but data is written to separate lines without overwriting the previous user? Below is a snippet of my existing code. Thank you.

lrCD4 = Sheets("SrOfcSpc").Range("A" & Rows.Count).End(xlUp).Row
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "A").Value = TextBox43.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "B").Value = TextBox44.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "C").Value = TextBox25.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "D").Value = TextBox26.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "E").Value = TextBox27.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "F").Value = TextBox31.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "G").Value = TextBox23.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "H").Value = TextBox24.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "I").Value = TextBox29.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "J").Value = TextBox30.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "K").Value = TextBox195.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "L").Value = TextBox196.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "M").Value = TextBox204.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "N").Value = TextBox203.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "O").Value = TextBox200.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "P").Value = TextBox199.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "Q").Value = TextBox198.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "R").Value = TextBox197.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "S").Value = TextBox202.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "T").Value = TextBox201.Text
Sheets("SrOfcSpc").Cells(lrCD4 + 1, "U").Value = TextBox205.Text
Reply all
Reply to author
Forward
0 new messages