Excel宏中的Vlookup

Question

I have created a form in excel which takes input from users and saves the same in Sheet2. I have a combobox named Account from which users will select the name of account. However each account will have a unique Id associated with it. I dont want to expose this Id to the end users but at the same time I want the Id corresponding to the Account selected populated in sheet2.

I am trying to do a Vlookup to search for Id of the selected Account.

I have setup the Account values in Sheet3.

Example: 
Column A  ColumnB
Account1  Id12345
Account2  Id23456
Account3  Id34567

My code in excel macro looks something like below.

Private Sub Save_Click()

Dim RowCount As Long
Dim myValue as String

RowCount = Worksheets("Sheet2").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Sheet2").Range("A1")
 .Offset(RowCount, 0).Value = Me.Account.Value
myValue = WorksheetFunction.VLookup(Range("A2"), Range("Sheet3!G1:G14"), 2, False)

I am not sure why it is not working. Any suggestion will be greatly appreciated.

Thanks,

Answer 1

Try this:

Private Sub Save_Click()

    Dim RowCount As Long
    Dim myValue As Variant
    Dim Sh2 As Worksheet, Sh2 As Worksheet
    Dim RefRange As Range

    With ThisWorkbook
        Set Sh2 = .Sheets("Sheet2")
        Set Sh3 = .Sheets("Sheet3")
    End With

    RowCount = Sh2.Range("A1").CurrentRegion.Rows.Count
    Set RefRange = Sh3.Range("G1:H14") '--Change as necessary.

    Sh2.Range("A1").Offset(RowCount, 0).Value = Me.Account.Value
    On Error GoTo myValueErrHandle
    myValue = WorksheetFunction.VLookup(Sh2.Range("A2").Value, RefRange, 2, False)
    '--More code, etc etc.

myValueErrHandle:
    If Err.Number = 1004 Then
        MsgBox "No match using VLOOKUP."
    End If
    Exit Sub

End Sub

As much as possible, qualify everything you can and use succinct but meaningful code. Don't use Range("A2") if you want what's inside it. Use .Value as this is the best practice. As far as I can see, there's nothing wrong. I also added an Error 1004 handling for no matches. Lastly, note that I changed myValue to a Variant , just to cover bases.

Let us know if this works.

Answer 2

try this? : Sorry too long to put in comment:

With Worksheets("Sheet2")
    .Range("A1").Offset(RowCount, 0).Value = Me.Account.Value
    myValue = WorksheetFunction.VLookup(.Range("A2"), Sheeet3.Range("G1:H14"), 2, False)" 
End With

Just maybe, so try it out.

Answer 3

Sub Lookup()
Dim Emp As String
Dim Lookup_Range As Range
Dim Age As Single
Emp = "Jitu"
Set Lookup_Range = Range("A1:B8")
Age = Application.WorksheetFunction.VLookup(Emp, Lookup_Range, 2, False)

MsgBox "Age is : $ " & Age
End Sub

Table: Emp Age bibhash 22 rahul 22 abhisek 23 jitu 21 sujit 24 tinku 25 rudra 26