TextBox a veri alma

[bmutlu966]

Form üzerinden ListBox2 veya ComboBox2 den Malzeme ismini seçtiğimde TextBox1 de Stok rakamının görünmesini istiyorum. Nereye nasıl bir kod yazmam gerek çözemedim.

 

[Mustafa MUTLU]

Private Sub ComboBox2_Click()
TextBox1 = ComboBox2.Column(16)
End Sub

Private Sub UserForm_Initialize()
ComboBox2.List = Sheets("Malzeme Stok").Range("B3:R120").Value
End Sub


Bu Kodu Deneyin.

 

[bmutlu966]

Private Sub ComboBox2_Click()
TextBox1 = ComboBox2.Column(16)
End Sub

Private Sub UserForm_Initialize()
ComboBox2.List = Sheets("Malzeme Stok").Range("B3:R120").Value
End Sub


Bu Kodu Deneyin.

Mustafa arkadaşım ilgin için teşekkürler. Ancak çalışmadı...

 

[Mustafa MUTLU]

Mustafa arkadaşım ilgin için teşekkürler. Ancak çalışmadı...

Dosyan üzerinde denedim çalışıyor.
Ekliyorum senin dosyanı..

 

[bmutlu966]

Bendeki dosya xlsm yani Excel 2010. Versiyon farkından kaynaklanıyor sanırım. Zaten makro içeren xlsm dosyasını da siteye ekleyemediğim için Excel 97 ye çevirip eklemiştim. Yani Excel 2010 da

TextBox1 = ComboBox2.Column(16)

komut satırı hata veriyor. Ancak seninde dediğin gibi Excel 97 dosyasında komut çalışıyor.

 

[bmutlu966]

Mustafa hatayı buldum,

Private Sub UserForm_Initialize()

End Sub

Bölümünde yazdığım başka bir kod yüzünden hata veriyormuş. O kodu silince komut çalıştı. Yardımın için çok teşekkürler.

 

[Mustafa MUTLU]

Mustafa hatayı buldum,

Private Sub UserForm_Initialize()

End Sub

Bölümünde yazdığım başka bir kod yüzünden hata veriyormuş. O kodu silince komut çalıştı. Yardımın için çok teşekkürler.

İşini Gördüyse ne Mutlu..
İyi Bayramlar..