TxtBox değişmiyor

[ik]

Değerli Arkadaşlar;

bir ürün listem var. burada txtkod a ürün kodunu yazdığımda ürün adı, ürün adı bölümüne geliyor.

ancak; ürün kodu listede yoksa bu ürün listede yok diye bir uyarı vermesini ve ürün adı bölümüne hiç bir şey getirmemesini istiyorum.

kullandığım kod aşağıdaki gibidir.

Şimdiden teşekkürler


Private Sub TxtKod_Change()
Worksheets("Firmalar").Select
Set no = Worksheets("Firmalar").Range("d:d")
Set ara = Cells.Find(What:=TxtKod.Value, After:=ActiveCell, LookIn:=xlValues)
If Not ara Is Nothing Then
ilk = ara.Address
ara.Select
End If
CmbUrun = ActiveCell.Offset(0, -1)

End Sub

 

[veyselemre]

kodları denemedim ama aşağıdaki şekilde kodlarınızı düzenleyin.
[vb:1:dfdd1f2f38]Private Sub TxtKod_Change()
Worksheets("Firmalar").Select
Set no = Worksheets("Firmalar").Range("d:d")
Set ara = Cells.Find(What:=TxtKod.Value, After:=ActiveCell, LookIn:=xlValues)
If Not ara Is Nothing Then
ilk = ara.Address
ara.Select
CmbUrun = ActiveCell.Offset(0, -1)
else
msgbox "Ürün Bulunamadı"
End If
[/vb:1:dfdd1f2f38]

 

[ik]

Sevgili veyselemre

olmadı üstad.

kodlarım 16 haneli 5 haneden sonra ürün yok mesajı veriyor.

başka bir yolu varmıdır??????

Sevgiler

 

[veyselemre]

örnek dosya ekleyin üzerinden gidelim

 

[ik]

örnek dosya ekte. esas dosya 25 MB ın üzerinde olduğu için ekleyemedim.

 

[veyselemre]

Göndermiş olduğunuz dosyada aşağıdaki kodları deneyin,
[vb:1:48c3e67dd2]Private Sub TextBox1_Change()
Dim a As Object
If Len(TextBox1) <> 16 Then Exit Sub

SON = [A65536].End(3).Row
Set a = Range("A2:A" & SON).Find(What:=TextBox1, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not a Is Nothing Then
a.Select
TextBox2 = Selection.Offset(0, 1)
Exit Sub
End If

MsgBox "Ürün Bulunamadı"
End Sub[/vb:1:48c3e67dd2]