Combobox ta index numarasıyla veri çağırma

[tamer42]

Merhaba,
Aşağıdaki gibi 5 kalem bir veri kümesini COMBOBOX içine aldıktan sonra;
combobox içine 1 yazınca 1. sıradaki veri, 2 yazınca 2. sıradaki veri, ..... 5 yazınca 5. sıradaki veri gelmesi sağlanabilir mi?

teşekkürler, iyi çalışmalar.

1185 - SWEAT
1180 - HOODIE
1182 - HOODIE
1280 - HOODIE
1113 - TSHIRT

   Me.cmStokAd.RowSource = "Parametre!L2:L6"
[code]

 

[tamer42]

Merhaba,
Aşağıdaki gibi 5 kalem bir veri kümesini COMBOBOX içine aldıktan sonra;
combobox içine 1 yazınca 1. sıradaki veri, 2 yazınca 2. sıradaki veri, ..... 5 yazınca 5. sıradaki veri gelmesi sağlanabilir mi?

teşekkürler, iyi çalışmalar.

1185 - SWEAT
1180 - HOODIE
1182 - HOODIE
1280 - HOODIE
1113 - TSHIRT

   Me.cmStokAd.RowSource = "Parametre!L2:L6"
[code]

Combobox' in Change olayına aşağıdaki gibi kodda olduğu gibi bir çözüm ürettim ama;
geliştirilebileceğini düşünüyorum

Private Sub cmStokAd_Change()

If Me.cmStokAd = "" Then Exit Sub

If Len(Me.cmStokAd) = 1 And IsNumeric(Me.cmStokAd) Then
    Me.cmStokAd.ListIndex = CInt(Me.cmStokAd) - 1
End If

End Sub

Private Sub cmStokAd_Enter()
Me.cmStokAd = ""
End Sub

 

[veyselemre]