Textbox girilen veriye göre diğer textboxa verinin getirme

[ik]

Değerli Dostlar;

Bir stok tablom var. Bu tabloda "A" sütünunda Stok Kodları, "B" Sütünunda stok adları yer alıyor.

Ayrıca stok kayıtları için kullandığım bir userformum var. userform üzerinde txtkod textbox'ına bir ürünün kodunu yazdığımda txtstok textbox'ına stok adının gelmesini istiyorum.


yardımlarınız için şimdiden teşekürler.

Sevgiler

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[ik]

Ã?rnek Dosya

Üstadım;

Dosya ektedir. konu o dur ki stok kodunu girince stok tanımı alanına sayfa1 deki ürün tanımları gelsin istiyorum.

Ã?r: ürün koduna 123456 yazdığımda ürün tanımına AAAA gelsin gibi.

Sevgiler
Teşekkürler

 

[dEdE]

Aşağıdaki kodları UserFormun koduna eklerseniz istediğiniz olur.

Private Sub txtkod_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim bul As Range
For Each bul In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65536")))
If StrConv(bul.Value, vbUpperCase) = StrConv(txtkod.Value, vbUpperCase) Then
bul.Select
txturun = Range("b" & ActiveCell.Row).Value
Exit Sub
End If
Next bul
End Sub

--Saygılar--

 

[ik]

ürün listede yoksa?????

Sevgili Dede;

Ã?ncelikle yardımların için teşekkürler.
Ben kodu aşağıdaki gibi değiştirdim. Her yeni ürün girildiğinde ürün tanım alanını sıfırlasın diye.

Ancak Listede bulunmayan bir kodu yazdığımda ve kod alanından çıktığımda böyle bir ürün yok diye bir mesaj vermesini istiyorum.

sevgiler

Private Sub txtkod_Change()

On Error Resume Next
Dim bul As Range
For Each bul In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65536")))
If StrConv(bul.Value, vbUpperCase) = StrConv(txtkod.Value, vbUpperCase) Then
bul.Select
txturun = Range("b" & ActiveCell.Row).Value
Exit Sub
Else
txturun.Value = ""
End If
Next bul


End Sub

 

[dEdE]

txturun.Value = ""
Yukarıdaki satırı
txturun.Value = "Böyle bir ürün yok"
şeklinde değiştirin

 

[ik]

Sevgili DEDE;

Teşekkürler

Sevgiler