Vlookup hatası

[acetinnster]

Arkadaşlar site sayesinde araştırma yaparak bir şeyler yapmaya (çözmeye) çalışıyorum
ancak bazı durumlar da takıldığım yerler oluyor aşağıdaki kodu kendime uyarlamaya çalıştım ancak hata vermekte
Hata = worksheetfunction sınıfının vlookup özelliği alınamıyor
Mutlaka bilmediğimiz,dikkat etmediğimiz,kullanmadığımız ve ya kullanılmaması gereken bir şey var
Sizce kodlardaki problem nedir belki çok küçük bir şey herkese teşekkürler

Dim isim, sonuc As String
isim = ComboBox1.Value
sonuc = Application.WorksheetFunction.VLookup(isim, Worksheets("Urunler").Range("A:C"), 3, 0)
Label7.Caption = sonuc

 

[Muzaffer Ali]

Merhaba.
Şöyle deneyin. Olmazsa örnek dosyanızı ekleyin kontrol edelim.
Muhtemelen ComboBox boş olduğundan hata alıyorsunuz.

Sub test()
    Dim isim As String, sonuc As String
    isim = ComboBox1.Value
    If isim = "" Then
        MsgBox "Lütfen comboboxtan geçerli bir değer seçiniz."
        Exit Sub
    End If
    sonuc = Application.WorksheetFunction.VLookup(isim, Worksheets("Urunler").Range("A:C"), 3, 0)
    Label7.Caption = sonuc 
End Sub