listboxta biçimlendirme ve arama...

[teknikyapı]

Merhaba.Herkeze sağlıklı ve bol kazançlı bir hafta dilerim.....
Sorumla ilgili dosya ekte göndermeye çalıştım.
Rapor sayfası-->sorgu-->proje giderleri-->rayiç kitabı formunda bulunan listboxa gelen veriler arama yaptıktan sonra değişiyor.Yani ilk ekrana gelen 04-502 değeri 4502 oluyor.Biçimlendirme ile ilgili yardımcı olacak arkadaşlara şimdiden teşekkür ederim.Birde arama süresi uzun sürüyor.Kodlarda bir sadeleştirme yapılabilirmi acaba?İyi çalışmalar.

 

[teknikyapı]

Arkadaşlar daha önce de arama yaptım ama yeterli olmadı.Yani listboxun özellikleri bayağı kısıtlı olduğunu anladım eğer yanılmıyorsam? Herhalde programımı burada kesmek zorunda kalacağım:???: Alternatif çözüm varmıdır acaba.?

 

[hamitcan]

Format ile ilgili sorunuz;

Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox24 = Format(ListBox2.Column(0), "0-0000")
TextBox25 = ListBox2.Column(1)
TextBox26 = ListBox2.Column(2)
TextBox27 = ListBox2.Column(3)
End Sub

 

[teknikyapı]

sn hamitcan ilginiz için saolun öncelikle.Ama aşağıda arama yaptıktan sonra listboxtaki 1.sütun biçimleri aynı kalmıyor.Yani ilk başta 01-102 olan aramadan sonra 1102 oluyor.Başka bir sorun, arama süresi ile ilgiliydi.Yardımcı olursanız sevinirim.İyi çalışmalar.

 

[teknikyapı]

Arkadaşlar şu biçimlendirme olayı ne zormuş hakketten.Takıldım kaldım.Yapmak istediğim ARA bölümümde rayiçle ara yı seçince texboxa 01-107 değerini girince arama yapsın.Ama listboxta 1 sütun biçimi 1107 oluyor.Anlatmaya çalıştım elimden geldiğince.Bilmiyorum sorun bende olabilir anlatamadıysam

 

[hamitcan]

Aşağıdaki kodda da aynı değişikliği yaptım. Yalnız textbox da arama yaparken, rakamlar arasına "-" koymayın. (Örn:1100)

Private Sub TextBox23_Change()

If OptionButton3.Value = True Then

Sheets("RAYİC").Select

ListBox2.RowSource = Empty
ListBox2.Clear
ListBox2.ColumnCount = 4
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(TextBox23)) & "*" Then
isim.Select
liste = ListBox2.ListCount
ListBox2.AddItem
ListBox2.List(liste, 0) = Format(isim, "0-0000")
ListBox2.List(liste, 1) = isim.Offset(0, 1)
ListBox2.List(liste, 2) = isim.Offset(0, 2)
ListBox2.List(liste, 3) = isim.Offset(0, 3)
End If
Next
End If

If OptionButton4.Value = True Then

Sheets("RAYİC").Select

ListBox2.RowSource = Empty
ListBox2.Clear
ListBox2.ColumnCount = 4
For Each isim In Sheets("RAYİC").Range("b3:b" & Sheets("RAYİC").Range("a65536").End(3).Row)
If UCase(LCase(isim)) Like UCase(LCase(TextBox23)) & "*" Then
isim.Select
liste = ListBox2.ListCount
ListBox2.AddItem
ListBox2.List(liste, 0) = Format(isim.Offset(0, -1), "0-0000")
ListBox2.List(liste, 1) = isim
ListBox2.List(liste, 2) = isim.Offset(0, 1)
ListBox2.List(liste, 3) = isim.Offset(0, 2)
End If
Next
End If

End Sub

 

[teknikyapı]

sn hamitcan yardımlarınız için çok teşekkür ederim.Tam istediğim gibi oldu.Eğer fazla olmaz isem diğer sorun ile ilgili,arama yaparken süreyi nasıl en aza indirebiliriz acaba.Yani arama yapan kodlar biraz ağır gibi...İyi çalışmalar.Saygılar

 

[hamitcan]

"listbox da süzme" şeklinde forumda arama yapın birçok örnek bulacaksınız.