Hi everyone!
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 SubAny help at all would be appreciated.