Arama

[a_self_lion]

Vba ile User formda Arama yapmak

Selam arkadaşlar Bu kodlarla c sutunda birşeler aratıyorum. Aranan değer bulunduğu zaman actif olan hücre değerini textbox2 ye getiriyor. Aradığım bilgiyi kelimeyi bulamazsa hata veriyor ve debug penceresi çıkıyor. Bulumadığı zamanda bir kontrol koyup aradığınız bilgi yoktur gibi bir mesaj kontrolu koyabilirmiyiz.

Worksheets("MLZ_KOD").Select

deger = TextBox1.Value
Columns("C:C").Select
Cells.Find(What:=deger, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

Cells.FindNext(After:=ActiveCell).Activate
TextBox2.Value = ActiveCell.Value

 

[talatcd]

On Error Resume Next
MsgBox("Aranan Kayıt bulunamamıştır")
Formüllerini kullan.

Çözülmesse dosyanı gönder bakalım.

 

[a_self_lion]

Teşekkür Ederim sorunum halloldu. MsgBox her seeferinde çıkıyor hata oludğu zaman mesajın verilmesini nasıl sağlayabilirim. yoksa onu kaldırdım mesaj veremeden çalışıyor şimdi. Ama sadece hata olduğu zaman birde uyarı verdirebilsek. güzel olur.

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdaki gibi bir yapı oluşturursanız, bulunamadığında mesaj alırsınız.

Dim hucre As Range
[COLOR=green]'.......[/COLOR]
[COLOR=green]'Diğer kodlarınız[/COLOR]
Worksheets("MLZ_KOD").Select
deger = TextBox1.Value
Columns("C:C").Select
[COLOR=red]Set hucre = Cells.Find(What:=deger, After:=ActiveCell, _[/COLOR]
[COLOR=red]                       LookIn:=xlFormulas, LookAt:=xlPart, _[/COLOR]
[COLOR=red]                       SearchOrder:=xlByRows, SearchDirection:=xlNext, _[/COLOR]
[COLOR=red]                       MatchCase:=False, SearchFormat:=False)[/COLOR]
[COLOR=red]If hucre Is Nothing Then[/COLOR]
[COLOR=red]   MsgBox "Aradığınız değerde bir hücre bulunamadı", vbCritical, "UYARI"[/COLOR]
[COLOR=red]   Exit Sub[/COLOR]
[COLOR=red]End If[/COLOR]
[COLOR=red]hucre.Activate[/COLOR]
Cells.FindNext(After:=ActiveCell).Activate
TextBox2.Value = ActiveCell.Value
[COLOR=green]'.........[/COLOR]
[COLOR=green]'Diğer kodlarınız[/COLOR]
Set hucre = Nothing

 

[a_self_lion]

Teşekkür ederim fbc bu daha profesyonel oldu. Elinize sağlık.