Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
Arkadaslar iyi Tatiller,
Başlık Pek Uygun olmadı kusura bakmayın.
Elimdeki Kodda a kolonunda arama yapılıp değer varsa b kolonunu okuyor
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
MsgBox ("Aranmasını İstediğiniz Kelimeyi Giriniz")
Exit Sub
End If
Set s1 = Sheets("DATA")
sat = s1.Columns(1).Find(TextBox1.Value).Row
TextBox2.Value = s1.Cells(sat, 2).Value
s1.Cells(sat, 1).Select
End Sub
***********
Yapamadığım bir durum söz konusu;
Textbox1'e girdiğim kelime Aranan sutunde yok ise Bana Msgbox sonucu aradığınız kelime mevcut değil ibaresinin Çıkmasını İstiyorum.
Ama neyzakkı herzamanki gibi beceremedim.
Yardımlarını bekliyorum
Saygılar.
Başlık Pek Uygun olmadı kusura bakmayın.
Elimdeki Kodda a kolonunda arama yapılıp değer varsa b kolonunu okuyor
Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
MsgBox ("Aranmasını İstediğiniz Kelimeyi Giriniz")
Exit Sub
End If
Set s1 = Sheets("DATA")
sat = s1.Columns(1).Find(TextBox1.Value).Row
TextBox2.Value = s1.Cells(sat, 2).Value
s1.Cells(sat, 1).Select
End Sub
***********
Yapamadığım bir durum söz konusu;
Textbox1'e girdiğim kelime Aranan sutunde yok ise Bana Msgbox sonucu aradığınız kelime mevcut değil ibaresinin Çıkmasını İstiyorum.
Ama neyzakkı herzamanki gibi beceremedim.
Yardımlarını bekliyorum
Saygılar.