VLookup HATASI

[taseraydin]

COMBOBOXLAR ARASI VLookup İLE VERİ ALDIRIYORUM ANCAK:
COMBOBBOX'A YAZINCA VLookup İLE İLGİLİ HATA VERİYOR

 

[Zeki Gürsoy]

Aşağıdaki koyu mavi kısımları ilave ettiğinizde sorununuz çözülebilir.

Private Sub ComboBox1_Change()

[B][COLOR=Blue]On Error Resume Next[/COLOR][/B]

If ComboBox1.Text = "" Then
ComboBox2.Text = ""
Exit Sub
Else


ComboBox2.Text = Application.VLookup( _
ComboBox1.Value, Sheets("SABITVERILER").Range("B3:D11400"), 2, False)
TextBox1.Text = ComboBox1.Text & " - " & ComboBox2.Text

End If

[COLOR=Blue][B]If Err Then TextBox1.Text = "Veri bulunamadı..."[/B][/COLOR]
End Sub

 

[taseraydin]

İlginize teşekür ederim