Combobox kod yardım

[fireman64]

üstadlarım stok numarası combobox tan seçildiğinde alttaki combobox a getirilmesi için kod var bu kodun düzenlenesi gerekiyor yardımızn için şimdiden teşekkürler

 

[İhsan Tank]

üstadlarım stok numarası combobox tan seçildiğinde alttaki combobox a getirilmesi için kod var bu kodun düzenlenesi gerekiyor yardımızn için şimdiden teşekkürler

Merhaba
Userform'un kod bölümüne ekleyiniz.

Private Sub ComboBox3_Change()
Dim ts
Set ts = Sheets("veri")
ComboBox1 = WorksheetFunction.VLookup(Val(ComboBox3.Value), ts.Range("A:B"), 2, 0)
End Sub

 

[fireman64]

Sayın İhsan Bey verdiğiniz kod çalışıyor fakat bir sorun var stok numarası içinde harf varsa hata veriyor. worksheetFunction sınıfının vlookup özelliği alınamıyor hatası veriyor

 

[İhsan Tank]

Sayın ihsan Bey bu kodu daha önce denedim örnekteki classmodul de bulunan kodu editleyebilirmisiniz

Anlamadım ne istediğinizi

 

[fireman64]

Anlamadım ne istediğinizi

Sayın İhsan Bey verdiğiniz kod çalışıyor fakat bir sorun var stok numarası içinde harf varsa hata veriyor. worksheetFunction sınıfının vlookup özelliği alınamıyor hatası veriyor

 

[Orion1]

Alternatif,
Dosyanız ektedir.

Private Sub ComboBox3_Change()
On Error Resume Next
ComboBox1.Value = ""
ComboBox1.Text = ComboBox3.Column(1)
End Sub

Private Sub UserForm_Initialize()
ComboBox3.ColumnCount = 2
ComboBox3.RowSource = "veri!A2:B11"
End Sub

 

[fireman64]

Evren bey çok teşekkürler