txt ye otomatik bilgi alma

[mixser]

Merhabalar
Arkadaşlar şöyle bi sorunla karşı karşıyayım düşünüyorum ama uygulayamadım
yardımlarınızı istiyorum.

Sayfa 1
A Ürün Adı
B Ürün Fiyatı
C Ürün Tutarı


User Form üzerinda 1 Combo 3 txt var

combo ürün adını içeriyor
txt1 ürün miktarını
txt2 ürün fiyatı
txt3 ürün tutarı

istenen Comboya ürün adı girildiğinde
Sayfa1 de A kolonunda arama yapılacak ve uyan ürünün fiyatı txt2 ye alınarak
txt1 deki miktarla çarpılarak sonuç txt3 de gösterilecek

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Private Sub CommandButton1_Click()
Dim k As Range
Set k = Range("A2:A65536").Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    txt2.Value = Cells(k.Row, "B").Value
    txt3.Value = CDbl(txt1.Value) * CDbl(txt2.Value)
End If
Set k = Nothing
End Sub

 

[mixser]

sn.orion2
bu kodu combonun exit olayına yazmamız doğru olurmu

 

[mixser]

evet combonun exit olayı işi çözmüştür
teşekkürler sn.orion2

 

[Orion1]

sn.orion2
bu kodu combonun exit olayına yazmamız doğru olurmu

txt1'in exit olayına yazsanız dağa doğru olacaktır.
Eğer combobox'ın exit olayına yazarsanız txt1'de sayısal bir değer olmadığı zaman hata verecektir.
Eğer illa ki combobox'ın exit olayındada olsun derseniz.
Benim yazdığım kodlara txt1'in boş olup olmadığını kontrol eden kodu ilave etmeniz gerekir.