Hi there,
I was wondering if anyone had a solution to this as I am a little bit stuck at the moment!
I have produced a userform via VBA, where the data is copied accross;
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
'copy the data to the database
ws.Cells(iRow, 1).Value = Me.txtDate.Value
ws.Cells(iRow, 2).Value = Me.txtPod.Value
ws.Cells(iRow, 3).Value = Me.txtName.Value
ws.Cells(iRow, 4).Value = Me.txtProcess.Value
ws.Cells(iRow, 5).Value = Me.cboProcess.Value
ws.Cells(iRow, 6).Value = Me.cboPod.Value
'clear the data
Me.txtDate.Value = ""
Me.txtPod.Value = ""
Me.txtName.Value = ""
Me.txtProcess.Value = ""
Me.txtPod.SetFocus
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
The form works fine - I am not worried about protection, as I have the data sheet hidden - may require amendment by multiple users anyway. I have found that it could be a problem with mutliple users. The obvious option is the 'Share' solution, but my understanding is that is not possible to do this - am I right?
Thanks in advance
Bookmarks