PC-HELP.CZ

Dobrý den,

může někdo prosím poradit kde mám chybu?
Office 2007, VB 6.5

Private Sub UserForm_Initialize()
ActiveWorkbook.Sheets("Sheet2").Activate
Range("A1") = Application.WorksheetFunction.VLookup(Range("B1"), Range("A1:A5"), 2, False)
End Sub

Vždy po inicializaci se zobrazí pouze chyba:
Run-time error '1004'
Unable to get the VLookup property of the WorksheetFunction class


Děkuji,
Totrna

Jelikoz chcete vratit druhy sloupec z oblasti A1:A5, tak logicky dojde k chybe, protoze vase oblast nema dva sloupce.

Neznam logiku zapisu, ale spravny by to melo byt asi takto:
Range("A1") = Application.WorksheetFunction.VLookup(Range("B1"), Range("A1:B5"), 2, False)

Ano, máte pravdu. Je tomu tak.
Nenapadlo mě, že vyhledávaná oblast musí být včetně sloupce s návratovými hodnotami.

Po hodinách hledání jste mi vytrhl trn z paty,
Děkuji