bulunamadı uyarısı hk..

[burch1975]

arkadaşlar ben ufak bir userform hazırladım..burada ilk hücrede yazdığı ismin bilgilerini alt hücelere yazıyor fakat ahmet yerine aht..falan yazsam direk hata ekranına gidiyor..benim isteğim bu hata uyarısı yerine (debug falan) "aradığınız isim bulunamadı" uyarısını vermesini istiyorum. bana yardımcı olabilirseniz sevinirim..
hazırladığım userformu özlük bilgileri nedeni ile yayınlayamıyorum.lütfen mazur görün..

 

[ozgretmen]

Dosyayı ekleyebilir misin ?

 

[burch1975]

ah keşke..

dostum eklemeyi isterdim ama özlük bilgisi içerdiği için yüklememe izin vermiyorlar..

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz

Private Sub CommandButton1_Click()
On Error GoTo hata 'hata oluşan kod satırının bir üstüne
'----------
'----------
'----------
hata: 'kodların altına
MsgBox "hatalı veri girişi", vbInformation
End Sub

 

[burch1975]

aldığım hata ekranı şudur

 

[burch1975]

resim ekleyeyim dedim...onuda beceremedim

 

[burch1975]

becerksizim ben galiba ..resimleri atamıyorum

 

[burch1975]

Private Sub ComboBox1_Change()
Columns("A:A").Select
Selection.Find(What:=UserForm1.ComboBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
TextBox3.Value = ActiveCell.Offset(0, 1)
TextBox2.Value = ActiveCell.Offset(0, 2)
TextBox4.Value = ActiveCell.Offset(0, 3)
TextBox5.Value = ActiveCell.Offset(0, 4)
TextBox6.Value = ActiveCell.Offset(0, 5)
TextBox7.Value = ActiveCell.Offset(0, 6)
TextBox8.Value = ActiveCell.Offset(0, 0)
End Sub

 

[burch1975]

altı çizili kısım sarı renk olarak hata uyarısı veriyor..

 

[N.Ziya Hiçdurmaz]

yanıt

Bu şekil deneyiniz

Private Sub CommandButton1_Click()
Columns("A:A").Select
On Error GoTo hata
Selection.Find(What:=UserForm1.ComboBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
TextBox3.Value = ActiveCell.Offset(0, 1)
TextBox2.Value = ActiveCell.Offset(0, 2)
TextBox4.Value = ActiveCell.Offset(0, 3)
TextBox5.Value = ActiveCell.Offset(0, 4)
TextBox6.Value = ActiveCell.Offset(0, 5)
TextBox7.Value = ActiveCell.Offset(0, 6)
TextBox8.Value = ActiveCell.Offset(0, 0)
Exit Sub
hata:
MsgBox "Hatalı veri girişi", vbInformation
End Sub

 

[burch1975]

dostum ellerine sağlık...ilgin ve yardımın için çok teşekkür ederim...
çok makbule geçti..ellerin dert görmesin..

 

[N.Ziya Hiçdurmaz]

Birşey değil.Sayın burch1975

 

[burch1975]

elleriniz dert görmesin..