jennyjsheffuk
Board Regular
- Joined
- Jun 14, 2007
- Messages
- 209
Hello
Can anyone help me please!
I want the information I have obtained via a form to update individual records.
I've created a sub called PersonSearch and a variable "Person" to hold the value from the list box, if found it calls the EnterDetails sub.
The names are in a worksheet called "Records" and the column to look down is AM2
I don't know how to get it to find the person and enter the information for them. The following enters it all at the top.
Dim r As Range, r1 As Range
Set r = Worksheets("Records").Range("am2").CurrentRegion
Set r1 = r.Offset(r.Rows.Count, 1)
r1.Cells(1).Value = txtDate.Value
If optLTAdd.Value = True Then
r1.Cells(3).Value = txtLieuTime.Value
Else
r1.Cells(4).Value = txtLieuTime.Value
Can anyone help me please!
I want the information I have obtained via a form to update individual records.
I've created a sub called PersonSearch and a variable "Person" to hold the value from the list box, if found it calls the EnterDetails sub.
The names are in a worksheet called "Records" and the column to look down is AM2
I don't know how to get it to find the person and enter the information for them. The following enters it all at the top.
Dim r As Range, r1 As Range
Set r = Worksheets("Records").Range("am2").CurrentRegion
Set r1 = r.Offset(r.Rows.Count, 1)
r1.Cells(1).Value = txtDate.Value
If optLTAdd.Value = True Then
r1.Cells(3).Value = txtLieuTime.Value
Else
r1.Cells(4).Value = txtLieuTime.Value
Last edited:
