listview sayı formatı ve süzme hatası

[by_IsTaNBuL]

dosya ektedir. ilk sayfada acıklama yaptım. yardımlarınız için şimdiden tesekkur ederım. ustatlarım.

 

[Ömer]

Merhaba,

ListView1.ListItems(i - 1).SubItems(5) = Sheets("DATA").Cells(i, 6).Value

Yukarıdaki satırın yerine aşağıdaki satırı yazın.

ListView1.ListItems(i - 1).SubItems(5) = Format(Sheets("DATA").Cells(i, 6).Value, "#,##0.000")

Süzme ile ilgili aldığınız hataları yazarsanız ona göre yardımcı olmaya çalışalım.

.

 

[by_IsTaNBuL]

ömer bey çok teşekkür ederim ellerinize sağlık..
süzmede ki bence problemi söyle acıklamaya çalışayım.

örnek

Çİ yazdığımda süzme işlemi sıfırla sonuçlanıyor. hiç bir şey bulamıyor
Çi yazdığımda çi ile başlayanları buluyor fakat bazen bazılarını es geçiyor hepsi listelenmiyor.
çi yazdığımda çi ile başlayanları eksiksiz hepsini listeliyor.
böyle bir sorun var..
yardımınız için tekrar teşekkür ederim

 

[Ömer]

Çİ yazdığımda süzme işlemi sıfırla sonuçlanıyor. hiç bir şey bulamıyor
Çi yazdığımda çi ile başlayanları buluyor fakat bazen bazılarını es geçiyor

Kodları aşağıdakilerle değiştiriniz.

Private Sub CommandButton91_Click()
 
    Dim Alan As Range, Bul As Range, Adr As String, Sd As Worksheet
    Dim AramaKolonu As Integer, Satır As Long, i As Long, j As Integer
    
    Set Sd = Sheets("DATA")
    Set Alan = Sd.Range("A1:L" & Sd.Cells(Rows.Count, "A").End(xlUp).Row)
    
    AramaKolonu = 3
    aranan = InputBox("Aranan Değeri Giriniz")
    aranan = UCase(Replace(Replace(aranan, "ı", "I"), "i", "İ"))
 
    On Error GoTo Son
    ListView1.ListItems.Clear
    ListView1.Gridlines = True
    
    i = 0
    With Alan.Columns(AramaKolonu)
        Set Bul = .Find(aranan & "*", , xlValues, xlWhole)
        If Not Bul Is Nothing Then
            Adr = Bul.Address
            Do
                Satır = Bul.Row
                    With ListView1
                        i = i + 1
                        .ListItems.Add , , Alan(Satır, 1)
                        For j = 1 To ListView1.ColumnHeaders.Count - 1
                            .ListItems(i).SubItems(j) = Alan(Satır, j + 1)
                        Next j
                    End With
                Set Bul = .FindNext(Bul)
    
            Loop While Not Bul Is Nothing And Bul.Address <> Adr
        End If
    End With
    
Son:
    
    Set Sd = Nothing: Set Alan = Nothing: Set Bul = Nothing
End Sub

.

 

[by_IsTaNBuL]

ömer bey teşekkürler fakat süzme işlemi çok tuhaflaştı hiç alakasız ürünleride süzüyor. Tanem yazıyorum tanem lerin yanında bistella larıda cıkarıyor .. Anlam veremedım. Harf benzerlıgıde yok sıralamada.. Ayrıca satır baslarıda listviewe cıkıyor.

 

[Ömer]

ömer bey teşekkürler fakat süzme işlemi çok tuhaflaştı hiç alakasız ürünleride süzüyor.

#4 numaralı mesajı düzenledim. Tekrar deneyiniz.

Ayrıca satır baslarıda listviewe cıkıyor.

Bu durum ilk mesjaınızda sizin eklediğiniz dosyada da vardı. Bununla ilgili ben bir değişiklik yapmadım.

Düzeltmek için,

UserForm_Initialize kodlarındaki döngüyü 3 den başlatıp, ListView1.ListItems(i - 1) lerin tümündeki - 1 leri - 2 ile değiştiriniz.

.

 

[by_IsTaNBuL]

ömer çok tesekkur ederım ellerınızee saglık.. ayrıca bu sıteyı kuranlarada çok tesekur ederım