Hi ShaneDevenshire
Thanks for your answer. I can't get it to work and that's probably caused by
the code being in two different places.
Sheet2(Tasklist):
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Row > 4 Then
Select Case Target.Column
Case 1
'initialize Tasklist form
frmTaskList.txtSCO_SCR.Value = Target.Offset(0, 1) & " " &
Target.Offset(0, 0) 'SCO/SPR ID
frmTaskList.txtPMR.Value = Target.Offset(0, 2)
frmTaskList.cboPlannedRelease.Value = Target.Offset(0, 3)
frmTaskList.txt_RegDate.Value = Format(Target.Offset(0, 4),
"dd-mm-yy")
frmTaskList.cboTaskOwner.Value = Target.Offset(0, 5)
frmTaskList.cboRequester.Value = Target.Offset(0, 6)
frmTaskList.cboPriority.Value = Target.Offset(0, 7)
frmTaskList.txtHeadLine.Value = Split(Target.Offset(0, 8), vbLf)(0)
frmTaskList.txtDescription.Value = Split(Target.Offset(0, 8),
vbLf)(999)
frmTaskList.cboCQAttach.Value = Target.Offset(0, 9)
frmTaskList.cboStatus.Value = Target.Offset(0, 10)
frmTaskList.txtDeadline.Value = Format(Target.Offset(0, 13),
"dd-mm-yy")
frmTaskList.txtOrg_Deadline.Value = Format(Target.Offset(0, 14),
"dd-mm-yy")
frmTaskList.txtComment.Value = Target.Offset(0, 16)
frmTaskList.cboApprover.Value = Target.Offset(0, 17)
'Call Tasklist form
frmTaskList.Show
Case 14, 15
Cancel = True
'Call OpenCalendar
Application.Run "Personal.xls!OpenCalendar"
Case 17
If Target.Offset(0, 0) = "" Then
Target.Offset(0, 0) = Format(Date, "yy.mm.dd") & " " &
UCase(Environ("username")) & ": "
Else
Note = Target.Offset(0, 0)
Target.Offset(0, 0) = Format(Date, "yy.mm.dd") & " " &
UCase(Environ("username")) & ": " & vbLf & Note
End If
End Select
End If
End Sub
Forms: frmTasklist:
Private Sub cmdAccept_Click()
If Me.cboRequester.Value = "" Then
MsgBox "Please enter initials for Task Requester.", vbExclamation,
"Task Values"
Me.cboRequester.SetFocus
Exit Sub
End If
If Me.cboPriority.Value = "" Then
MsgBox "Please enter Priority 1, 2 or 3 with 1 critical priority.",
vbExclamation, "Task Values"
Me.cboPriority.SetFocus
Exit Sub
End If
If Me.cboStatus.Value = "" Then
MsgBox "Please enter Status of Task.", vbExclamation, "Task Values"
Me.cboStatus.SetFocus
Exit Sub
End If
If Me.cboPlannedRelease.Value = "" Then
MsgBox "Please enter Planned Release.", vbExclamation, "Task Values"
Me.cboPlannedRelease.SetFocus
Exit Sub
End If
If Me.txtDeadline.Value = "" Then
MsgBox "Please enter Deadline.", vbExclamation, "Task Values"
Me.txtDeadline.SetFocus
Exit Sub
End If
If Not IsDate(Me.txtDeadline.Value) Then
MsgBox "Please enter date in format YY-MM-DD.", vbExclamation, "Task
Values"
Me.txtDeadline.SetFocus
Exit Sub
End If
'write data back to sheet tasklist in the correct row?
End Sub
Hope fore some help again
/Steen