Aranan veri bulunmayınca hayali işlem yapıyor.

[kelkitli]

Değerli Dostlar Selamlar.
Ekteki dosyada:

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Set s1 = Sayfa1
s1.Select
Set KRİTER = UserForm1.ComboBox1
ara = s1.[b2:b65536].Find(What:=KRİTER, LookIn:=xlValues, LookAt:=xlWhole).Activate
UserForm1.TextBox1.Value = ActiveCell.Offset(0, 1).Value
Set s1 = Nothing
Exit Sub
End Sub

bu kod ile arama yapıp sonuç alabiliyorum. Ancak aradığım veri yoksa (Plaka no'yu elle girince)hayali bir sonuç geliyor.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    Set S1 = Sayfa1
    S1.Select
    Set KRİTER = UserForm1.ComboBox1
    Set ara = S1.[b2:b65536].Find(What:=KRİTER, LookIn:=xlValues, LookAt:=xlWhole)
    If Not ara Is Nothing Then
    S1.Cells(ara.Row, 2).Activate
    UserForm1.TextBox1.Value = ActiveCell.Offset(0, 1).Value
    End If
    Set ara = Nothing
    Set KRİTER = Nothing
    Set S1 = Nothing
    Exit Sub
End Sub

 

[kelkitli]

Selamlar, Hayırlı geceler Sayın Hocam. Teşekkür ederim. Tavsiyelerinizi uyguluyorum hocam. Mümkün olduğunca birşeyler yapmaya, ilerlemeye çalışıyorum. Sizin katkılarınız çok. Sağolun.