listview da stabil hızlı bir arama şekli

[Cengizhantr06]

Ziynettin bey bu dosyaya tarihde ekledim ve formada 2 textbox koydum textboxlara ilk ve son tarih ekleyerek de aratabilirmiyiz dosya ekledim

@Ziynettin bey müsait olunca bi yardımcı olurmusunuz rica etsem ?

 

[Ziynettin]

Tablonuzda tarih sütunu olmadığı için Müşteri ID yi tarih olarak değiştirdim.

 

[Cengizhantr06]

Tablonuzda tarih sütunu olmadığı için Müşteri ID yi tarih olarak değiştirdim.

Ziynettin bey allah razı olsun çok teşekkür ederim mahcup olarak istiyorum son bi ricam birde listboxlu olana eklermisiniz lütfen rica etsem

 

[Ziynettin]

Listbox tarih aralığı.

Listbox1 çift tıklama yapınız.

 

[Cengizhantr06]

Listbox tarih aralığı.

Listbox1 çift tıklama yapınız.

Ziynettin hocam emeğinize sağlık çok teşekkürler

 

[Cengizhantr06]

Listbox tarih aralığı.

Listbox1 çift tıklama yapınız.

Listboxda çıkan tarihleri 01.01.2021 yani bu şekilde nasıl gösterebilirim ziynettin bey

 

[Ziynettin]

Listboxda çıkan tarihleri 01.01.2021 yani bu şekilde nasıl gösterebilirim ziynettin bey

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Trh1 As Date, Trh2 As Date
If ListBox1.ListIndex <> -1 And ListBox1.ListCount <> 0 Then
    aranan = ListBox1.Value
With UserForm2.ListBox2
        .Clear
        If OptionButton8.Value = True Then
            If Not IsDate(TextBox2) Then MsgBox "İlk tarih giriniz.", vbExclamation: Exit Sub
            If Not IsDate(TextBox3) Then MsgBox "Son tarih giriniz.", vbExclamation: Exit Sub
            Trh1 = TextBox2
            Trh2 = TextBox3
        End If
        Dim c()
For i = 2 To UBound(a)
If OptionButton8 = False Then GoTo es
    If a(i, 1) >= Trh1 And a(i, 1) <= Trh2 Then
es: If aranan = a(i, sut) Then
        say = say + 1
        ReDim Preserve c(1 To 6, 1 To say)
        c(1, say) = Format(a(i, 1), "dd.mm.yyyy")
        For j = 2 To 6
            c(j, say) = a(i, j)
        Next j
    End If
End If
Next i
    If say > 0 Then
        .Column = c
    Else
        .Clear
    End If
End With
End If
End Sub

 

[Cengizhantr06]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Trh1 As Date, Trh2 As Date
If ListBox1.ListIndex <> -1 And ListBox1.ListCount <> 0 Then
    aranan = ListBox1.Value
With UserForm2.ListBox2
        .Clear
        If OptionButton8.Value = True Then
            If Not IsDate(TextBox2) Then MsgBox "İlk tarih giriniz.", vbExclamation: Exit Sub
            If Not IsDate(TextBox3) Then MsgBox "Son tarih giriniz.", vbExclamation: Exit Sub
            Trh1 = TextBox2
            Trh2 = TextBox3
        End If
        Dim c()
For i = 2 To UBound(a)
If OptionButton8 = False Then GoTo es
    If a(i, 1) >= Trh1 And a(i, 1) <= Trh2 Then
es: If aranan = a(i, sut) Then
        say = say + 1
        ReDim Preserve c(1 To 6, 1 To say)
        c(1, say) = Format(a(i, 1), "dd.mm.yyyy")
        For j = 2 To 6
            c(j, say) = a(i, j)
        Next j
    End If
End If
Next i
    If say > 0 Then
        .Column = c
    Else
        .Clear
    End If
End With
End If
End Sub

Çok sağol ?

 

[sekhil]

teşekkürler çok işime yarayacak bir uygulama olmuş hocam burada listelenen içeriğin içerisini listboxdan düzenleyebilirmiyiz.

 

[sekhil]

bu listede açtığımızda tüm listeyi gösterebilirmi yada bir buton ile "tüm listeyi göster " diyebilirmiyiz

 

[sekhil]

Dizi yöntemi ile başlık ve arama seçenekli yapılan çalışma , çeşitlilik olur.

Ziynettin hocam açılışta Tüm ürünler ListView1 de listelenebilir mi? yani tümünü göstermek istiyorum

ev ListView1 da arama yapılabilir mi?

 

[katip06]

Dizi yöntemi ile arama tekniği ektedir.

Hocam örnekteki aramayı "İÇERİR" şeklinde bütün sütunlar için ayrı ayrı yapmak mümkün müdür? Her sütunun üzerinde arama bölümü olacak şekilde.

 

[Korhan Ayhan]

Mümkündür.

Burada paylaşılan dosyalarda bir sürü örnek kodlama verildi. Geliştirme işleri kullanıcılara aittir.

 

[1mak1mak]

Güzel bir konu emeği geçenlere çok teşekkürler.
Acaba Tarih bölümünde tek tık küçük açılır bir takvim eklenebilirmi veya
excel de kullandığımız sağ klik takvim eklentisi burda sağ klik de kullanılabilirmi.

 

[Korhan Ayhan]

Bakınız.. #33

 

[yusuf1284]

Tablonuzda tarih sütunu olmadığı için Müşteri ID yi tarih olarak değiştirdim.

Paylaşımlar için teşekkür ederim.

.View = lvwReport

bu kodda hata alıyorum sebebi ne olabilir.

 

[Korhan Ayhan]

Bu nesne biraz sıkıntılıdır.

Nesneyi silip yeniden oluşturursanız bazen düzeliyor.

 

[aywaz1986]

Merhabalar;

İlgili yorumlarınız için teşekkür ederim tasarım olarak çok bilgi edindim herkezden bir hususuta yardımcı olurmusunuz. LİSTVİEW de görünen sutun sayısını ayarlayamıyorum Korhan hocamın verdiği örnekteki kod diziliminde görünen sutunları ayarlayamadım. Listview in custom ayarlarına giremiyorum. Yardımcı olursanız çok sevinirim.

Verdiğiniz örnek için teşekkür ederiz hocam;

Aşağıdaki hatayı alıyorum:

 

[Korhan Ayhan]

Eğer kullandığınız ofis sürümü 64 Bit ise ListView nesnesi çalışmayabilir.

Eğer 32 Bit ofis kullanıyorsanız ilgili nesneyi register etmeniz gerekir.

Burada bazı açıklamalar yapılmış.

Windows 10 da Office 365 de listviewde hata class not registered. Looking for object with clsıd :(7EBDAAE81-8120-11CF899F....

Windows 10 da Office 365 de listviewde hata class not registered. Looking for object with clsıd :(7EBDAAE81-8120-11CF899F....

excel.web.tr

Bu da başka bir link...

https://www.excel.web.tr/threads/listview-date-and-time-picker-progressbar-diger-nesne-hatalarinin-coezuemleri.159385/#post-1133067

 

[aywaz1986]

32 bitte tasarlasak 64 bitte çalışırken sorun oluşturur mu peki Tasarlanmış olan kalıp.