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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Katılım
5 Nisan 2006
Mesajlar
449
Excel Vers. ve Dili
Office Excel 2003
TÜRKÇE
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
 
Son düzenleme:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
aşağıdaki kodları ekleyip deneyebilirsiniz.:cool:
Kod:
Else
MsgBox "Aradığınız veri bulunamadı..", vbCritical
Exit Sub
 
Katılım
5 Nisan 2006
Mesajlar
449
Excel Vers. ve Dili
Office Excel 2003
TÜRKÇE
Merhaba.
aşağıdaki kodları ekleyip deneyebilirsiniz.:cool:
Kod:
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Sayın Enteresan ,aşağıdaki kodları deneyiniz.:cool:
Kod:
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
 
Katılım
5 Nisan 2006
Mesajlar
449
Excel Vers. ve Dili
Office Excel 2003
TÜRKÇE
Teşekkür ederim Sezar kardeşim, bu kez oldu. Ellerin dert görmesin. İyi geceler...
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Rica ederim.
İyi geceler.:cool:
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst