Combobox ta label da calıstıramadım

[Kemal Demir]

Arkadaslar (Sn.Danersin) kodu yazıdğım halde okutamadım dosyayı yolluyorum tekrar yardımcı olabilirmisiniz

Forumdaki diğer Arkadaslardanda Cevap verebilirlerse sevinirim

 

[danersin]

Başka hiçbirşeyi değiştirmeden combobox4_change altındaki kodu aşağıdaki şekilde değiştirirseniz sorununuz çözülür.


[vb:1:a3456cf700]Private Sub ComboBox4_Change()
ara = ComboBox4.Value
alan = Sheets("KAYITLAR").Range("a1:f1000")
Label14.Caption = Application.WorksheetFunction.VLookup(ara, alan, 3, 0)
Label15.Caption = Application.WorksheetFunction.VLookup(ara, alan, 4, 0)
Label16.Caption = Application.WorksheetFunction.VLookup(ara, alan, 5, 0)
End Sub[/vb:1:a3456cf700]