Macro VBA ara - bul

[dgnhlt]

Merhaba hocalarım ben aranıza daha yeni katıldım sayılırım. Formu ve bir çok arama yapmama rağmen bir türlü beceremedim yapmak istediğimi yapmak istediğim arama hanesinde verilerin girilip Commandbutona tıkladığında ListBox1 de değerleri buldurmak. Bir kaç deneme yaptım ama beceriksizim sanırım hep hatalarla karşılaştım. Hazır şablonlardan yararlandım ama olmadı. Yardımlarınız için şimdiden teşekkürler.

 

[vardar07]

Combobox tan aranacak yeri seçip textbox a veriyi yazarak bul butonunu tıklayın.

 

[dgnhlt]

Çok teşekkür ederim şu an iş yerindeyim ilk fırsatta deneyeceğim

 

[dgnhlt]

Hocam kodların :

.List(a, x) = Cells(i, k)

satırında hata veriyor bazen mesela Murat ismi 1 den fazla Murat yazıp arttığımda hata veriyor yardım edebilirmisiniz. Bu konuda da teşekkürler

 

[vardar07]

#2 Nolu mesajdaki dosya düzenlendi.

 

[dgnhlt]

Çok teşekkürler hocam fakat bu seferde 2. Aratma yapmaya çalıştığımda commandbutton 5_Click listbox daki

.Clear

kısmından hata alıyorum ilginiz için yeniden teşekkürler

 

[vardar07]

Bende hata vermiyor. Sizdeki hata veren dosyayı özel veriler varsa silerek yükleyin bakalım. Ekte video ya bakıp görebilirsiniz.

 

[dgnhlt]

Hocam ben olayı yanlış aksettirdim kusura bakmayın olay aslında tam olarak şöyle listboxta verileri geri yüklemek ve textbox ile combobox ı arama işlemi bittikten sonra temizlemek için commandbutton 6 Click kısmına

Textbox7 = ""
Combobox5 = ""
With KAYIT_FORMU.Listbox1
.Columncount = 10
.Columnwidths = "90;100"
If Sheets ("Personel").Renge("D2") = Empty Tren
.Rowsource = "Personel!D2:M" & [Personel!D1048576].End(3).Row
End If
End With

Kodlarını ekledim textbox ve combobox ı temizleyip listbox ın içine verileri aktardıktan sonra aratmaya çalıştığımda alıyorum hatayı

 

[dgnhlt]

Tamam hocam çözdüm olayı teşekkürler yeniden ilgilendiğiniz için