M
Mcasteel
I have a worksheet full of Customer Information. A simplified recor
would like somewhat like the following:
_*Lname,_Fname,_Mname,_SSN,_info1,_info2,_info3*_
I want to pull the customers LName, FName, SSN, and info into my for
based upon the customers SSN.
So the end user will type in the SSN, and all other cells associate
with that customer will be inserted into either txtboxes or labels o
the user form.
Im getting an error on the code I am working on and could use you
expertise.
_Here_is_the_code_I_have_so_far._
Private Sub cmdSelectRecord_Click()
Dim LName As String
Dim FName As String
Dim MName As String
Dim rngActive As Range
Set rngActive = Application.ActiveCell
Dim iRow As String
Dim CustSSN As String
'Fill variable with User Inputed Cust. SSN
CustSSN = txtCustSSN
iRow = WorksheetFunction.Match(CustSSN
Worksheets("sheet1").Range("f27:f307"), 0)
If iRow = 0 Then
MsgBox "Customer SSN Was Not Found"
Else
MsgBox "Record Found."
'Move Customer info from Worksheet to current form
'lblLName.caption = rngActive.offset(0, -3).value
'lblFName.caption = rngActive.offset(0, -2).Value
'lblMiddle.caption = rngActive.offset(0, -1).value
End If
End Su
would like somewhat like the following:
_*Lname,_Fname,_Mname,_SSN,_info1,_info2,_info3*_
I want to pull the customers LName, FName, SSN, and info into my for
based upon the customers SSN.
So the end user will type in the SSN, and all other cells associate
with that customer will be inserted into either txtboxes or labels o
the user form.
Im getting an error on the code I am working on and could use you
expertise.
_Here_is_the_code_I_have_so_far._
Private Sub cmdSelectRecord_Click()
Dim LName As String
Dim FName As String
Dim MName As String
Dim rngActive As Range
Set rngActive = Application.ActiveCell
Dim iRow As String
Dim CustSSN As String
'Fill variable with User Inputed Cust. SSN
CustSSN = txtCustSSN
iRow = WorksheetFunction.Match(CustSSN
Worksheets("sheet1").Range("f27:f307"), 0)
If iRow = 0 Then
MsgBox "Customer SSN Was Not Found"
Else
MsgBox "Record Found."
'Move Customer info from Worksheet to current form
'lblLName.caption = rngActive.offset(0, -3).value
'lblFName.caption = rngActive.offset(0, -2).Value
'lblMiddle.caption = rngActive.offset(0, -1).value
End If
End Su