[ÇÖZÜLDÜ] Makroya ilave yapmak.....

[enteresan]

Sevgili excel'ci arkadaşlar,
Kullanmakta olduğum bir uygulamada aşağıdaki "BUL" makrosunda textbox'a yazılan veriyi arattırıyorum. Bulamadığında herhangi bir mesaj çıkmadığından, bu kodun neresine bir ilave yazarsam bulamadığı veri için uyarı verir. Yani bulamadığında "Aradığınız veri bulunamadı" gibi bir mesaj çıkmasını istiyorum. Yardımcı olacaklara minnettar olurum. Saygılarımla......
Kod :
Private Sub CommandButton1_Click()
Sheets("LİSTE").Select
For Each Hucre In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(Hucre.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
Hucre.Select
TextBox1 = ActiveCell.Offset(0, 1).Value
End If
Next
End Sub

 

[Orion1]

Merhaba.
aşağıdaki kodları ekleyip deneyebilirsiniz.

Else
MsgBox "Aradığınız veri bulunamadı..", vbCritical
Exit Sub

 

[enteresan]

Merhaba.
aşağıdaki kodları ekleyip deneyebilirsiniz.

Else
MsgBox "Aradığınız veri bulunamadı..", vbCritical
Exit Sub

Sevgili Sezar kardeşim, denedim ama maalesef hata verdi. Yukarıda yazmayı unuttuğum alttaki 3 satırı ilave ettim. Belki de verdiğiniz kodlar o yüzden eksik olmuş olabilir. İlginize teşekkür ederim....

 

[Orion1]

Sayın Enteresan ,aşağıdaki kodları deneyiniz.

Private Sub CommandButton1_Click()
Dim sayac As Byte
Sheets("LİSTE").Select
For Each Hucre In Range("a2:a" & WorksheetFunction.CountA(Range("a1:a65000")))
If StrConv(Hucre.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
Hucre.Select
TextBox1 = ActiveCell.Offset(0, 1).Value
sayac = 1
End If
Next
If sayac = 0 Then MsgBox "Aradığınız Veri Bulunamadı..!!", vbCritical
End Sub

 

[enteresan]

Teşekkür ederim Sezar kardeşim, bu kez oldu. Ellerin dert görmesin. İyi geceler...

 

[Orion1]

Rica ederim.
İyi geceler.