Textbox İle Arama Yaparken Hata Verİyor

[yasef]

Arama sonrası yanlış satır

Sorun İÇİn en son mesajda Ekte Dosya GÖnderİyorum.

 

[vagatoga]

sayın yasef,
sorununuz additem komutuyla 10'dan fazla veri eklenemediğinden kaynaklanıyor sanırım.. Bence döngüyü rowsource ile yapılandırmayı deneyin..

 

[yasef]

Rowsource İle yapamadım bir örnek verirseniz sevinirim text box yerine comboboxta olabilir

 

[Levent Menteşoğlu]

Verileri ARA sayfasından başka bir sayfaya aktarıp oradan Rowsource yöntemi ile yükleyebilirsiniz. Yada verileri tek satırda birleştirerek yükleyebilirsiniz.

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz. Yalnız eğer örneğinizdeki gibi D sütunundaki verileriniz sayısal değerler ise İLE BAŞLAR yöntemi değilde EŞİTTİR yöntemi ile filtre uygulanabiliyor. Eğer D sütunu metinsel veriler içeriyorsa İLE BAŞLAR yöntemi kullanılabilir. Umarım faydası olur.

 

[yasef]

sn cost control teşekkürler fakat textboxa 2 yazdığımda 2 ile başlayan veya 1 yazdığımda 1 ile başlayanları listelemesi için ne yapabiliriz.teşekkürler

 

[Korhan Ayhan]

Selamlar,

Bildiğim kadarıyla sayısal verilerde İLE BAŞLAR yöntemi uygulanamıyor. Israrla uygulamak istiyorum derseniz. Çözüm olarak ilk önce D sütununu metin formatına dönüştürüp sonra filitreleme işlemini uygulamaktır. Bu şekilde sayısal verileride İLE BAŞLAR yöntemi ile filitreyebilirsiniz. İşleminiz bittikten sonra tekrar D sütunundaki verileri sayısal değerlere çevirebilirsiniz.

 

[yasef]

peki sn cost control metin olarak aynı olayı nasıl yaparız yani d sütununda
örneğin textboxa c yazınca c ile başlayanları listboxta görüntülenmesini nasıl sağlarız.teşekkürler

 

[emrexcel123]

kod

arkadaşım şu kodu dener misin ?

Private Sub TextBox1_Change()
Range("b:B").ClearContents
say = WorksheetFunction.CountIf([a:a], TextBox1.Text & "*")
For i = 1 To say
son = [b65536].End(3).Row + 1
adr = "a" & bul + 1 & ":a65536"
bul = WorksheetFunction.Match(TextBox1.Text & "*", Range(adr), 0) + bul
Cells(son, 2) = Cells(bul, 1)
ListBox1.RowSource = "b2:b" & [b65536].End(3).Row
Next
Cells.EntireColumn.AutoFit
End Sub

burada b sütunu aranan verilerin konacağı sütun sistemine göre değiştirirsin
adr değişkeni a sütununda arama yapar isteğine göre değiştirirsin

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımda eklemiş olduğum örnek dosyadaki aşağıdaki kodu bir sonraki ile değişirip denermisiniz.

Eski hali;

[D1].AutoFilter Field:=4, Criteria1:="=" & TextBox1

Yeni hali;

[D1].AutoFilter Field:=4, Criteria1:="=" & TextBox1 & "*"

 

[yasef]

sn cost control yardımlarınız için teşekkürler

 

[yasef]

Daha farklı bir sorun ek dosyayı incelermisiniz.

Ara yaptıktan sonra Listboxtan yapılan seçim sayfadaki satır ile uymuyor

 

[Korhan Ayhan]

Selamlar,

Bu gibi durumlarda kayıtları ayırlabilmek için benzersiz veriler içeren bir yardımcı sütun kullanmak her zaman faydalı olacaktır. Örnek dosyanızda A sütununa SIRA NO ekleyerek bu işlemi kolaylıkla gerçekleştirebilirsiniz. Ekteki örnek dosyayı incelermisiniz.

 

[yasef]

teşekkür cost control