UserFormda vlookup problemi

[vardar07]

[ÇÖZÜLDÜ]UserFormda vlookup problemi

Merhabalar,
Userformda ComboBox'tan seçilen veri metin olursa bulunacak değer normal olarak ister metin isterse rakam olsun problem yok. Ancak seçilen değer rakam olursa kod hata veriyor. Nerede hata yapıyorum.

Private Sub ComboBox1_Change()
TextBox1 = Application.WorksheetFunction. _
        VLookup(ComboBox1, Worksheets("Sayfa1").Range("a2:c20"), 2, 0)
ComboBox2 = Application.WorksheetFunction. _
        VLookup(ComboBox1, Worksheets("Sayfa1").Range("a2:c20"), 3, 0)
End Sub

Private Sub UserForm_Initialize() 
ComboBox1.RowSource = "sayfa1!c2:c8"
End Sub

 

[Ömer]

Merhaba,

Sayı değerini metin olarak gördüğü için bu değeri bulamayıp hata vermiştir.
Bu şekilde deneyin.

Private Sub ComboBox1_Change()
[COLOR=red]Dim a As Variant
a = ComboBox1.Value
If IsNumeric(ComboBox1.Value) = True Then a = CDbl(ComboBox1.Value)
[/COLOR]TextBox1 = Application.WorksheetFunction. _
        VLookup([COLOR=red]a[/COLOR], Worksheets("Sayfa1").Range("a2:c20"), 2, 0)
ComboBox2 = Application.WorksheetFunction. _
        VLookup([COLOR=red]a[/COLOR], Worksheets("Sayfa1").Range("a2:c20"), 3, 0)
End Sub
 
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!c2:c8"
End Sub

.

 

[vardar07]

Merhaba,

Sayı değerini metin olarak gördüğü için bu değeri bulamayıp hata vermiştir.
Bu şekilde deneyin.

Ömer bey çok teşekkürler.Elinize sağlık.