TextBox ile ListBox ta arama

[s.savas]

İyi geceler arkadaşlar.
Ekte sunduğum belgede Userform4 üzerindeki TextBox1 ile ListBox1 de, kişinin adı veya soyadındaki herhengi bir harfe göre arama yapmak istiyorum.
Forumda konuyla ilgili onlarca örnek var, hemen hemen hepsini inceledim, ama hiçbirisini uyarlayamadım. Herbirinde farklı farklı hata mesajları ile karşılaştım.

 

[halit3]

ekli dosyanıza bakarmısınız.

 

[mancubus]

sn. s.savaş.

ekteki dosyanızdan bir ihale yapılacağını, ihale komisyonlarında yer alanların kimler olduğunu öğrendim. google'da isimlerini yazarak ulaşılabilecek telefon numaralarına ve çalıştıkları işyeri bilgilerine ulaştım.

lütfen gerçek dosyalarınızı yüklemeyin. temsili bilgiler ile değiştirin.

 

[halit3]

1. nolu mesajdaki ekli dosya tarafımca silinmiştir.
2 nolu mesajdaki dosyada ise isimleri sildim

 

[s.savas]

Uyarılar için teşekkür ediyorum.
Şunu ifade etmek isterim. Sadece belgedeki isimler gerçektir. Diğer bilgiler sadece senaryodur.
Halit hocam kodlar için teşekkür ediyorum.
Şöyle bir sorun var.
ListBox ta listeleme yapınca listeye alınan verilere tıklayınca yanlış veriler ComboBox lara yükleniyor.
Örnek:
T harfi ile listeleme yapıp, listedeki kişilere tıklayınca hatayı sizde göreceksiniz.

 

[halit3]

2. nolu mesajdaki dosyayı güncelledim kontrol ediniz.

 

[s.savas]

Teşekkür ederim üstat.Elinize sağlık.

 

[halit3]

Teşekkür ederim üstat.Elinize sağlık.

iyi çalışmalar

 

[s.savas]

Merhaba arkadaşlar.
Ekteki dosyada bulunan userform4, menü sayfasındaki Düğme4 ile çağrılıp yeni kayıt yapınca Veri sekmesine kaydetmesi gereken veriyi Menü sekmesine kaydediyor.
Veri sekmesindeki buton ile çağırıp yeni kayıt yapınca doğru yere kayıt yapıyor.
Hatayı düzeltemedim.

 

[halit3]

Merhaba arkadaşlar.
Ekteki dosyada bulunan userform4, menü sayfasındaki Düğme4 ile çağrılıp yeni kayıt yapınca Veri sekmesine kaydetmesi gereken veriyi Menü sekmesine kaydediyor.
Veri sekmesindeki buton ile çağırıp yeni kayıt yapınca doğru yere kayıt yapıyor.
Hatayı düzeltemedim.

Veri sekmesindeki buton ile çağırıp yeni kayıt yapınca doğru yere kayıt yapıyor.
Hatayı düzeltemedim

ne demek istiyorsunuz anlaşılmıyor.

 

[s.savas]

Veri sekmesindeki buton ile çağırıp yeni kayıt yapınca doğru yere kayıt yapıyor.
Hatayı düzeltemedim

ne demek istiyorsunuz anlaşılmıyor.

Hocam özür dilerim aceleden eksik yazmışım.
Ekteki belgenin menü sayfasındaki Düğme4 ile userform4'ü açıp yeni kayıt eklemek istediğimiz zaman Veri sekmesindeki A108:C108 satırına kayıt yapması gerekirken Menü sekmesindeki A108:C108 satırına kayıt yapıyor.

 

[halit3]

Cells(Satır, "A") = Satır - 1
Cells(Satır, "B") = ComboBox1.Text
Cells(Satır, "C") = ComboBox3.Text

yukarıdaki olaylarda sayfaları belirtilmemiş bunun gibi bir sürü kodun böyle dolayısıyla bu kodlar aktif sayfaya doğru aktarır veriyi sayfa sekmesi değişince başka sayfanın bu hücrelerini aktarır

cells le başlayan kodlarda başında

Sheets("Veri").[/QUOTE]

buna benzer hangi sayfaya veriyi aktaracaksanız. sayfa isimlerini belirtmelisiniz.

Range olayındada aynı

Sheets("Veri").Cells(Satır, "A") = Satır - 1
Sheets("Veri").Cells(Satır, "B") = ComboBox1.Text
Sheets("Veri").Cells(Satır, "C") = ComboBox3.Text

say = WorksheetFunction.CountIf(Sheets("Veri").Range("B2:B65536"), ComboBox1.Text)

yukarıdaki orneklerde ben eklemeleri yaptım sizde kendi dosyanızı buna göre düzenleyiniz.

 

[s.savas]

Teşekkür ederim üstat. Bende düzeltiyorum.

 

[s.savas]

Halit hocam CommandButton1 de sorun çözüldü, fakat CommandButton2 ve CommandButton3 için silme ve değiştirme yapılmıştır mesajını vermesine rağmen herhangi bir değişiklik olmuyor.

 

[halit3]

2. nolu mesajdaki dosyayı yeniden düzenledim.

 

[s.savas]

Emeğinize teşekkür ediyorum Halit hocam.
Küçük bir sorun var, Userform4'te ListBox'taki son veriyi sanırım ComboBox'lara yükleyemediği için silerken ve değişiklik yaparken hata mesajı veriyor. Başkaca bir sorun göremedim.
İyi akşamlar diliyorum.

 

[halit3]

dosyadaki userfom4 deki kodların büyük bir kısmını değiştirdim kontrol ediniz.

 

[s.savas]

Çok çok harika oldu.Tekrar teşekkür ediyorum.

 

[halit3]

Çok çok harika oldu.Tekrar teşekkür ediyorum.

iyi çalışmalar

 

[HsNKgL]

Halit Bey merhaba;
Rica etsem ekte ki örneğe sade içeren harf, kelimeye göre arama yaptırabilirmiyiz...