listviewde arama

[teknikyapı]

Merhaba.Aşağıda yazmaya çalıştığım kodlar ile bir listview de arama yaptırmak istiyorum.Kodlarda nasıl bir değişikliğe gitmem gerekir.Yardımcı olacak arkadaşlara teşekkür ederim.İyi çalışmalar.

Private Sub TextBox7_Change()

If OptionButton1.Value = True Then




For Each isim In Sheets("RAYİC").Range("a3:a" & Sheets("RAYİC").Range("a65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox7)) & "*" Then
isim.Select
liste = ListView1.ListItems
ListView1.ListItems.Add
ListView1.ListItems(liste, 0) = isim
ListView1.ListItems(liste, 1) = isim.Offset(0, 1)
ListView1.ListItems(liste, 2) = isim.Offset(0, 2)
ListView1.ListItems(liste, 3) = isim.Offset(0, 3)
End If
Next
End If


End Sub

 

[teknikyapı]

Başta uzman arkadaşlarım olmak üzere yardımınızı bekliyorum.Listbox ta arama ile ilgili çok örnek var ama o kadar aramama rağmen listview ile ilgili bulamadım maalesef.

 

[Zeki Gürsoy]

Bu özellik ile henüz çalışmadım. Sizin için bir örnek buldum.

http://msdn2.microsoft.com/en-us/library/aa443437(VS.60).aspx

 

[teknikyapı]

sn anemos link için teşekkür ederim.En kısa sürede inceleyeceğim.Bu nesne ile ilgili kısıtlı bilgi sahibiyim.Eğer buna benzer bir çözümlü örneğiniz olduğunda paylaşıcağınıza eminim.Saygılar.İyi çalışmalar.

 

[Levent Menteşoğlu]

Bu kodlama zor değil, arayacağınız veri listviewin tüm sütunlarındamı aranacaktır, yoksa sütun bellimidir? Aynı veriyi listviewe veri aldığınız sayfa üzerinde de arayayabilirsiniz, belki bu daha kolayda olabilir.

Not: Birde nasıl bir arama yapacaksınız biraz daha ayrıntılı bilgi verirmisiniz.

 

[teknikyapı]

sn leventm bey aslında aynı şeyi düşündüm.Yani listviewe verilerin alındığı sayfada arama yaparak tekrar listviewe almayı.Ama dosyayı biraz basite indirgeyerek denemem gerek.Listviewde 6 sütun var.1 sütuna göre arama yapacak.En kısa sürede o dosyayı eklemeye çalışacağım.Yardımcı olacağınızdan eminim.Saygılar.Hayırlı geceler

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[teknikyapı]

Merhaba.Sn leventm bey dosyayı sadeleştirip ekledim.Yapmak istediğim arama 2 opsiyonlu olacak.RAYİÇ KİTABI formunda 1.opsiyonda rayiç noya göre,2.opsiyonda tanımına göre arama yaptırmak istiyorum.Yardımcı olursanız sevinirim.İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz.

Not: Dosyanızı düzenlerken daha önce Sn. fpc beyin aşağıdaki linkte kullandığı kodlardan faydalanılmıştır.

http://www.excel.web.tr/showthread.php?t=37068

 

[teknikyapı]

Merhaba.Sn COST_CONTROL bu güzel çözüm için elinize beyninize sağlık.Katkısı olan sn fpc arkadaşıma da teşekkür ederim.Saygılar.İyi çalışmalar.

 

[teknikyapı]

Merhaba.Sn COST_CONTROL arama fonksiyonu çok güzel çalışıyor fakat bu sefer karşımda başka bir problem sözkonusu.Arama yapmadan önce çalışan kaydet,değiştir ve sil komutları arama yaptıktan sonra ayrı ayrı yerleri değiştirip veya siliyor.Eğer dosyaya birdaha bakabilirseniz sevinirim.İyi çalışmalar.

 

[teknikyapı]

Anladığım kadarı ile mesala sil kodlarında arama yaptıktan sonraki index numaraları ile arama yapmadan önceki ile farklı olduğu için excel sayfasında farklı satırı siliyor.Yani bu sil ve değiştir kodlarının buna göre değişmesi gerekir.Arkadaşlar bu konuda yardımlarınızı bekliyorum..

 

[teknikyapı]

Merhaba
Arkadaşlar sorunun nerden kaynaklandığını bulabildim fakat hala çözebilmiş değilim.Bu konuda yardımlarınızı bekliyorum lütfen.İyi çalışmalar.

 

[teknikyapı]

S İ L kodlarını aşağıdaki gibi değiştirdim fakat listviewden sayfaya aktarırken ilk hücreyi aktaramadım.Açıkcası deneyerek yapmaya çalıştım.Kodlar için lütfen biraz yardım istiyorum.İyi çalışmalar

Sheets("RAYİC").Select
Y = ListView1.SelectedItem.Index
X = ListView1.ListItems(Y).Index

cevap = MsgBox("SİLMEK İSTEDİĞİNİZDEN EMİNMİSİNİZ ?", vbYesNo, "SİLME ONAYI")
If cevap = vbYes Then

ListView1.ListItems.Remove (Y)

'sayfaya veri al
c = WorksheetFunction.CountA(ActiveSheet.Range("A:A"))
With ListView1
For i = 2 To c
a = a + 1
.ListItems.Add , , Cells(i + 1, 1)....<<<buras&#305;n&#305; de&#287;i&#351;tirmem gerek Cells(i + 1, 2) = .ListItems(a).SubItems(1)
Cells(i + 1, 3) = .ListItems(a).SubItems(2)
Cells(i + 1, 4) = .ListItems(a).SubItems(3)
Cells(i + 1, 5) = .ListItems(a).SubItems(4)
Cells(i + 1, 6) = .ListItems(a).SubItems(5)

'e&#287;er h&#252;cre ba&#351;&#305;nda (*) i&#351;areti var ise sat&#305;r&#305; k&#305;rm&#305;z&#305; renklendir
If Left(Cells(i + 1, 2), 1) = "*" Then
.ListItems(a).ListSubItems(1).ForeColor = vbRed
.ListItems(a).ForeColor = vbRed

End If
Next
End With

 

[teknikyapı]

arkada&#351;lar listviewin ilk s&#252;tunundaki veriyi ilgili h&#252;creye aktarmak istiyorum.Yukar&#305;daki k&#305;rm&#305;z&#305; ile yaz&#305;l&#305; sat&#305;rdaki i&#351;lemi yapamad&#305;m.

 

[teknikyapı]

Dosya yenilendi

Merhaba.
Arkadaşlar nihayet sorunları hallettim galiba.Dosyayı düzeltmiş son hali ile ekledim.Sil ve Değiştir komutları tamamen değişti.Örnek olması açısından ekliyorum.Eğer hatalı çalıştığını düşünen arkadaşlar var ise lütfen belirtirse sevinirim.Kontrolünü yapmış oluruz.İyi çalışmalar