I am really hoping someone can help me with this as I have sifted through a lot of unanswered or unclear threads regarding this.
Basically, I work in a small team of 5 people, but each of us is very busy and get emails from our manager asking us to complete different tasks. I have made a userform in excel for our manager to create the tasks in and put all the details in sheet1. This creates each separate task on a separate row. Now I want each of my colleagues to log into the sheet and be able to retrieve a task with the same userform. I am giving each task it's own ID, so I want to be able to search by this and the userform will be populated with the task details. I also have combobox's with the status of each task (Completed, In progress etc.) I want to be able to change these in the userform too.
I would do this in access, but we don't have this on our work laptops.
My code for the userform up to now is:
Private Sub UserForm_Click() Private Sub CommandButton1_Click() Dim LastRow As Object Set LastRow = Sheet1.Range("b65536").End(xlUp) LastRow.Offset(1, 0).Value = ComboBox1.Text LastRow.Offset(1, 1).Value = ComboBox2.Text LastRow.Offset(1, 2).Value = ComboBox3.Text LastRow.Offset(1, 3).Value = ComboBox4.Text LastRow.Offset(1, 4).Value = TextBox2.Text LastRow.Offset(1, 5).Value = TextBox3.Text LastRow.Offset(1, 6).Value = TextBox4.Text LastRow.Offset(1, 7).Value = TextBox5.Text LastRow.Offset(1, 8).Value = TextBox6.Text LastRow.Offset(1, 9).Value = TextBox7.Text LastRow.Offset(1, 10).Value = TextBox8.Text LastRow.Offset(1, 11).Value = TextBox9.Text LastRow.Offset(1, 12).Value = TextBox10.Text LastRow.Offset(1, 13).Value = TextBox11.Text MsgBox "Task Assigned" response = MsgBox("Do you want to assign another task?", _ vbYesNo) If response = vbYes Then TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox6.Text = "" TextBox7.Text = "" TextBox8.Text = "" TextBox9.Text = "" TextBox10.Text = "" TextBox11.Text = "" ComboBox1.Text = "" ComboBox2.Text = "" ComboBox3.Text = "" ComboBox4.Text = "" TextBox1.SetFocus Else Unload Me End If End Sub Private Sub CommandButton2_Click() End End Sub
Any help at all would be appreciated.