Excel 2010 – VBA Userforms – Vlookup via Textbox, display result in another textbox

Question

Hi,
Thank you in advance for your time.
I have a multi-page userform and I am having problems getting the result I am after.
I am trying to get the user to enter a four digit (numeric code) into a textbox and display the contents of that code in another textbox when the user clicks in another textbox.
I have 2 textboxes.
One textbox txt_SAC_No is for the user to enter a four digit numeric code, which should return the address in another textbox txt_Site_Address.
The lookup is located in a dynamic named range
as SiteAddress which encompasses 20 columns. The first column has the code and the second column holds the actual address which is what I am after.
Included in the named range, I have set up a code of 0000 (zeros) and instead of having the address in it, I have a message in there to tell the user to manually type the address (overwriting my text message). The code, 0000, means that there is no pre-defined
address and it's a once off entry.
I do not want the address to be updated in the source of the Vlookup as it is a ‘once only’ entry and unlikely to ever be used again.
I have searched on the web and attempted to adapt various codes, but I have been unable to get anything to work.
I have some sample code I have tried, but my attempt to adapt it to my needs has not been successful.
Worksheet where data is transferred is code named: ws_Incident_Details
(which is actually sheet named “Incident Details” – but I’d like to use the ‘coded’ sheet name in case someone changes the name in the tab of the sheet
Private Sub SAC_No_AfterUpdate()
'lookup value based on SacNo
With Me
.txt_Site_Address = Application.WorksheetFunction.VLookup(CLng(Me.txt_SAC_No), wsAlarmResponseList.Range("SiteAddress"), 2, 0)
End With
End Sub
I'd really appreciate any help :) I have tried other avenues for help, but it doesn't seem like anyone wants the challenge :(
Thanking you in advance .... it will indeed be appreciated :)
Kind regards,
ShyButterfly
Hope you have a terrific day, theShyButterfly

Answer 1

Hi Andreas :)
The above code works like a dream :) Thank you ...
I succeeded on this ocassion on being smart, and was successful in adapting your code to auto-complete textboxes based on the SAC # details.
They ALL work purrrrfectly .... thank you SO much .....
Here's the code that worked (this is based on the Name Range only capturing the 'Column Heading' ... so I created a Named Range for each of the Column Headings (highlighted in bold ... I hope :) )
Private Sub txt_SAC_No_Change()
Dim R As Range
Set R = Range("SAC").EntireColumn.Find(txt_SAC_No.Value, _
LookIn:=xlValues, LookAt:=xlWhole)
If R Is Nothing Then
txt_Site_Address = "(not found)"
ElseIf R.Value = "0000" Then
txt_Site_Address = "(manually type the address)"
Else
txt_Site_Address = Range("SiteAddress").Cells(R.Row).Value
End If
'Manned / UnManned Site:
Set R = Range("SAC").EntireColumn.Find(txt_SAC_No.Value, _
LookIn:=xlValues, LookAt:=xlWhole)
If R Is Nothing Then
txt_Manned_UnManned_Auto = "N/A"
ElseIf R.Value = "0000" Then
txt_Manned_UnManned_Auto = "N/A"
Else
txt_Manned_UnManned_Auto = Range("MannedUnManned").Cells(R.Row).Value
End If
'txt_Business_Owner:
Set R = Range("SAC").EntireColumn.Find(txt_SAC_No.Value, _
LookIn:=xlValues, LookAt:=xlWhole)
If R Is Nothing Then
txt_Business_Owner = "N/A"
ElseIf R.Value = "0000" Then
txt_Business_Owner = "N/A"
Else
txt_Business_Owner = Range("Business").Cells(R.Row).Value
End If
'Site Type:
Set R = Range("SAC").EntireColumn.Find(txt_SAC_No.Value, _
LookIn:=xlValues, LookAt:=xlWhole)
If R Is Nothing Then
txt_Site_Type = "N/A"
ElseIf R.Value = "0000" Then
txt_Site_Type = "N/A"
Else
txt_Site_Type = Range("SiteType").Cells(R.Row).Value
End If
End Sub
With immense gratitude :)
The ShyButterfly
Hope you have a terrific day, theShyButterfly