uyarı mesajı ekleme

[ILHAREFF]

Merhaba arkadaşlar aşağıdaki koda aradığım değeri bulamadığında "Aranan Değer bulunamamıştır" diye mesaj vermesini istiyorum konuyla ilgili yardımcı olabilecek olan arkadaşlara şimdiden teşekkürler ederim.

Private Sub txtarama_Change()
Dim kontrol As Range
Set kontrol = Range("c13:c850").Find(txtarama.Value, lookat:=xlPart)
If Not kontrol Is Nothing Then
kontrol.Select
End If
End Sub

 

[Muzaffer Ali]

MErhaba.

Private Sub txtarama_Change()
Dim kontrol As Range
Set kontrol = Range("c13:c850").Find(txtarama.Value, lookat:=xlPart)
If Not kontrol Is Nothing Then
kontrol.Select
else
msgbox "Bulunamadı."
End If
End Sub

 

[ILHAREFF]

Muzaffer bey sizin yapmış olduğunuzu bende denedim olmuyor çalışmamı eklesem yardımcı olurmusunuz.

 

[Muzaffer Ali]

Yukarıdaki kodları dosyadan silin, aşağıdakileri kopyalayın.
Barkod okuyucu ile barkod okutursanız okuyucu okumayı bitirdikten sonra Enter kodu gönderir.
Eğer el ile barkod yazarsanız arama yapmak için Entere basmalısınız.

Private Sub txtarama_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim Kontrol As Range
    If KeyAscii.Value = 13 Then ' Enter tuşuna basıldıysa aşağıdaki kodlar çalışsın.
        Set Kontrol = Range("f13:f850").Find(txtarama.Value, lookat:=xlWhole)
        If Not Kontrol Is Nothing Then
            Kontrol.Select
        Else
            MsgBox "Bulunamadı."
        End If
    End If
End Sub

 

[ILHAREFF]

Muzaffer bey bey denedim bu seferde girdiğim barkod olmasına rağmen bulmuyor gönderdiğim örnek dosyanın yapmanızı rica ediyorum ilginiz için tşler ederim.

 

[Muzaffer Ali]

Dosyanız ekte.

 

[Muzaffer Ali]

Dosyanızı ekledim indirip kullanın.

 

[ILHAREFF]

Dosyanızı ekledim indirip kullanın.

Teşekkürler muzaffer bey