Userformda Arama Butonuna Kod Yazmak

[ferhatgurbuz]

ArkadaŞlar Ektekİ Dosyayla İlgİlenİrsenİz Sevİnİrİm.

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
TextBox2.Value = "": TextBox3.Value = ""
If TextBox1.Value = "" Then Exit Sub
Set k = Range("B11:B65536").Find(TextBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
TextBox2.Value = Cells(k.Row, "D").Value
TextBox3.Value = Cells(k.Row, "E").Value
Else
MsgBox "Aranan Veri Bulunamadı.!"
End If
TextBox1.SetFocus
End Sub

 

[Skorpiyon]

Sayın ferhatgurbuz,

böyle birşey mi istiyorsunuz acaba ?

Aşağıdaki kodları, butonun kod bölümünde Sub - End Sub aralığına yapıştırınız.

On Error Resume Next
Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
TextBox2.Value = ActiveCell.Offset(0, 2).Value
TextBox3.Value = ActiveCell.Offset(0, 3).Value

Saygılar...

 

[ferhatgurbuz]

Orion2 arkadaşım sağol istediğim şekilde olmuş ellerine sağlık. ben bunu öğrenmek için istedim aslında yapmak istediğim daha geniş boyutlarda. Birşey daha soracağım hani dedim ya numaraya göre aratıyoruz. peki adı veya soyadına görede aratabilirmiyiz.

 

[Orion1]

Orion2 arkadaşım sağol istediğim şekilde olmuş ellerine sağlık. ben bunu öğrenmek için istedim aslında yapmak istediğim daha geniş boyutlarda. Birşey daha soracağım hani dedim ya numaraya göre aratıyoruz. peki adı veya soyadına görede aratabilirmiyiz.

Adı ve soyadına görede aratabilirsiniz.
Sizin sayafanızda adı ve soyadı ayni hücrede olmadığı için,find komutu değilde for next döngüsüne girerek if komutu ile ad ve soyad bulunan hücreleri sorgulayarak yapabilirsiniz.

 

[ferhatgurbuz]

hocam teşekkür ederim ama ben sizin dediklerinizi yapabilecek kadar bilgili değilim.

 

[captan]

Ekli örneği inceleyebilirmisin, Eğer uygunsa çalışmaya devam edebilirim


Kolay Gelsin . .

 

[ferhatgurbuz]

Hocam İlgİne TeŞekÜr Ederİm Ama Benİm Yapmak İstedİĞİm Farkli

Ektekİ Dosya Üzerİne Arama YaptiĞim Zaman KİŞİnİn Bİlgİlerİ Gelİyor. Ben Dİyorum Kİ KİŞİnİn Numarasi DeĞİlde Ayni Zamanda Adi İlede Aratabİleyİm. Bİrde Gelen Bİlgİlerİ Userformda DeĞİŞtİrdİĞİm Zaman Excel De De O DeĞİŞİklİk Uygulansin

 

[ferhatgurbuz]

arkadaşlar yok mu bana yardımcı olacak biri

 

[Orion1]

Merhaba.
Ekli dosyayı inceleyiniz.
Personel numarasanına göremi yoksa ad soyada göremi arama yapacaksınız yanındaki option butonu seçerek belirtiyorsunuz.Ve o şekilde arama yapıyorsunuz.
İsterseniz değişiklikte yapabiliyorsunuz.

 

[ferhatgurbuz]

teşekkür ederim. ben diğerlerinin üzerinde çalışayım. gerekli yerlerde sizden tekrar yardım isterim. hayırlı çalışmalar

 

[Orion1]

Rica ederim.
İyi çalışmalar.