Listview'de arama yapılan Textbox'ları birbirine bağlama

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

Listview'de arama yapılan Textbox'ları birbirine bağlama

İleti#1)  kartal305 » 28 Mar 2016 13:50

Merhaba,

3 adet Textbox var 1. Textbox'da süzme yaptırıyorum. 2. Textbox'da süzme yaptırdığımda 1. Textbox'da yaptırdığım süzülmüş veriler içerisinden süzme yapsın. 3. Textbox'da Süzme yaptırdığımda 1. ve 2. Textbox'larda yaptırdığım süzülmüş veriler içerisinden süzme yapsın istiyorum ama bir türlü beceremedim. Üstatlar yardımcı olur ise sevinirim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
kartal305
Yeni Başlamış
 
Kayıt: 09 Kas 2015 17:23
Meslek: İŞLETMECİ
Yaş: 34
İleti: 43
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Listview'de arama yapılan Textbox'ları birbirine bağl

İleti#2)  orhanars » 30 Nis 2019 18:04

kartal305 yazdı:Merhaba,

3 adet Textbox var 1. Textbox'da süzme yaptırıyorum. 2. Textbox'da süzme yaptırdığımda 1. Textbox'da yaptırdığım süzülmüş veriler içerisinden süzme yapsın. 3. Textbox'da Süzme yaptırdığımda 1. ve 2. Textbox'larda yaptırdığım süzülmüş veriler içerisinden süzme yapsın istiyorum ama bir türlü beceremedim. Üstatlar yardımcı olur ise sevinirim

benimde aynı fonksiyona ihtiyacım var. yardım eden biri olursa sevinirim arkadaşlar
Kullanıcı avatarı
orhanars
 
Kayıt: 27 Mar 2019 16:21
Meslek: mühendis
Yaş: 41
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Listview'de arama yapılan Textbox'ları birbirine bağl

İleti#3)  Orion1 » 30 Nis 2019 20:40

Buyurun.
Dosyanız ektedir.:cool:
Kod: Tümünü seç
Sub refresh()
Dim isim As String
ListView1.ListItems.Clear
isim = UCase(Replace(Replace(ARAMA2.Value, "i", "İ"), "ı", "I"))
For i = 2 To [B65536].End(xlUp).Row
    If Cells(i, "B").Value = CDate(ARAMA.Value) And Cells(i, "E").Value = _
            CDbl(ARAMA1.Value) And UCase(Replace(Replace(Cells(i, "H").Value, "i", "İ"), _
                    "ı", "I")) Like isim & "*" Then
            sat = sat + 1
        Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
        Liste.SubItems(1) = Cells(i, 1).Value
        Liste.SubItems(2) = Cells(i, 2).Value
        Liste.SubItems(3) = Cells(i, 3).Value
        Liste.SubItems(4) = Cells(i, 4).Value
        Liste.SubItems(5) = Cells(i, 5).Value
        Liste.SubItems(6) = Cells(i, 6).Value
        Liste.SubItems(7) = Cells(i, 7).Value
        Liste.SubItems(8) = Cells(i, 8).Value
        Liste.SubItems(9) = Cells(i, 9).Value
        Liste.SubItems(10) = Cells(i, 10).Value
        Liste.SubItems(11) = Cells(i, 11).Value
        Liste.SubItems(12) = Cells(i, 12).Value
        Liste.SubItems(13) = Cells(i, 13).Value
        Liste.SubItems(14) = Cells(i, 14).Value
        Liste.SubItems(15) = Cells(i, 15).Value
        Liste.SubItems(16) = Cells(i, 16).Value
        Liste.SubItems(17) = Cells(i, 17).Value
        Liste.SubItems(18) = Cells(i, 18).Value
        Liste.SubItems(19) = Cells(i, 19).Value
        Liste.SubItems(20) = Cells(i, 20).Value
    End If
Next i

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 466
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Cevap: Listview'de arama yapılan Textbox'ları birbiri

İleti#4)  orhanars » 07 May 2019 15:31

Orion1 yazdı:Buyurun.
Dosyanız ektedir.:cool:
Kod: Tümünü seç
Sub refresh()
Dim isim As String
ListView1.ListItems.Clear
isim = UCase(Replace(Replace(ARAMA2.Value, "i", "İ"), "ı", "I"))
For i = 2 To [B65536].End(xlUp).Row
    If Cells(i, "B").Value = CDate(ARAMA.Value) And Cells(i, "E").Value = _
            CDbl(ARAMA1.Value) And UCase(Replace(Replace(Cells(i, "H").Value, "i", "İ"), _
                    "ı", "I")) Like isim & "*" Then
            sat = sat + 1
        Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
        Liste.SubItems(1) = Cells(i, 1).Value
        Liste.SubItems(2) = Cells(i, 2).Value
        Liste.SubItems(3) = Cells(i, 3).Value
        Liste.SubItems(4) = Cells(i, 4).Value
        Liste.SubItems(5) = Cells(i, 5).Value
        Liste.SubItems(6) = Cells(i, 6).Value
        Liste.SubItems(7) = Cells(i, 7).Value
        Liste.SubItems(8) = Cells(i, 8).Value
        Liste.SubItems(9) = Cells(i, 9).Value
        Liste.SubItems(10) = Cells(i, 10).Value
        Liste.SubItems(11) = Cells(i, 11).Value
        Liste.SubItems(12) = Cells(i, 12).Value
        Liste.SubItems(13) = Cells(i, 13).Value
        Liste.SubItems(14) = Cells(i, 14).Value
        Liste.SubItems(15) = Cells(i, 15).Value
        Liste.SubItems(16) = Cells(i, 16).Value
        Liste.SubItems(17) = Cells(i, 17).Value
        Liste.SubItems(18) = Cells(i, 18).Value
        Liste.SubItems(19) = Cells(i, 19).Value
        Liste.SubItems(20) = Cells(i, 20).Value
    End If
Next i

End Sub

Merhabalar ekteki gibi bir iş takip dosyası hazırladım ama dosyada yapamadığım işler var ve yardımcı olursanız çok sevinirim
1- kaydet tuşuna bastığımda yaptığım değişiklik ya da gelişmeleri seçtiğim işin üzerine kaydetsin
2-listview da üst kısımda yer alan yeşil renkli arama hücreleri ayrı ayrı çalışıyor. fakat ben birbirine bağımlıda çalışsın istiyorum. örneğin proje adı kısmında bir projeyi seçtikten sonra iş kodu kısmında o projeye ait diğer özelliği arayabilmeliyim.
3- gelişme1 den başlayan gelişme 5 e kadar devam eden hücrelerde hücre içeriğine göre boyama yaptırıyorum fakat listview dan başka bir iş seçtiğimde renkler sıfırlanmıyor aynen kalıyor ilgili kutucuklarda. bu renklendirmenin her proje değiştiğinde o projenin durumuna göre güncellenmesi gerekli
4-listwiew dan hücrelere gelen projenin açık,kapalı,geciken ve yaklaştı konu adetlerini görmek için nasıl label hazırlayabiliriz

bu konularda yardımcı olabilirseniz gerçekten çok sevinirim. şimdiden emeği geçenlere teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
orhanars
 
Kayıt: 27 Mar 2019 16:21
Meslek: mühendis
Yaş: 41
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Cevap: Listview'de arama yapılan Textbox'ları

İleti#5)  orhanars » 13 May 2019 07:12

orhanars yazdı:
Orion1 yazdı:Buyurun.
Dosyanız ektedir.:cool:
Kod: Tümünü seç
Sub refresh()
Dim isim As String
ListView1.ListItems.Clear
isim = UCase(Replace(Replace(ARAMA2.Value, "i", "İ"), "ı", "I"))
For i = 2 To [B65536].End(xlUp).Row
    If Cells(i, "B").Value = CDate(ARAMA.Value) And Cells(i, "E").Value = _
            CDbl(ARAMA1.Value) And UCase(Replace(Replace(Cells(i, "H").Value, "i", "İ"), _
                    "ı", "I")) Like isim & "*" Then
            sat = sat + 1
        Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
        Liste.SubItems(1) = Cells(i, 1).Value
        Liste.SubItems(2) = Cells(i, 2).Value
        Liste.SubItems(3) = Cells(i, 3).Value
        Liste.SubItems(4) = Cells(i, 4).Value
        Liste.SubItems(5) = Cells(i, 5).Value
        Liste.SubItems(6) = Cells(i, 6).Value
        Liste.SubItems(7) = Cells(i, 7).Value
        Liste.SubItems(8) = Cells(i, 8).Value
        Liste.SubItems(9) = Cells(i, 9).Value
        Liste.SubItems(10) = Cells(i, 10).Value
        Liste.SubItems(11) = Cells(i, 11).Value
        Liste.SubItems(12) = Cells(i, 12).Value
        Liste.SubItems(13) = Cells(i, 13).Value
        Liste.SubItems(14) = Cells(i, 14).Value
        Liste.SubItems(15) = Cells(i, 15).Value
        Liste.SubItems(16) = Cells(i, 16).Value
        Liste.SubItems(17) = Cells(i, 17).Value
        Liste.SubItems(18) = Cells(i, 18).Value
        Liste.SubItems(19) = Cells(i, 19).Value
        Liste.SubItems(20) = Cells(i, 20).Value
    End If
Next i

End Sub

Merhabalar ekteki gibi bir iş takip dosyası hazırladım ama dosyada yapamadığım işler var ve yardımcı olursanız çok sevinirim
1- kaydet tuşuna bastığımda yaptığım değişiklik ya da gelişmeleri seçtiğim işin üzerine kaydetsin
2-listview da üst kısımda yer alan yeşil renkli arama hücreleri ayrı ayrı çalışıyor. fakat ben birbirine bağımlıda çalışsın istiyorum. örneğin proje adı kısmında bir projeyi seçtikten sonra iş kodu kısmında o projeye ait diğer özelliği arayabilmeliyim.
3- gelişme1 den başlayan gelişme 5 e kadar devam eden hücrelerde hücre içeriğine göre boyama yaptırıyorum fakat listview dan başka bir iş seçtiğimde renkler sıfırlanmıyor aynen kalıyor ilgili kutucuklarda. bu renklendirmenin her proje değiştiğinde o projenin durumuna göre güncellenmesi gerekli
4-listwiew dan hücrelere gelen projenin açık,kapalı,geciken ve yaklaştı konu adetlerini görmek için nasıl label hazırlayabiliriz

bu konularda yardımcı olabilirseniz gerçekten çok sevinirim. şimdiden emeği geçenlere teşekkür ederim.

Arkadaşlar bu konuda yardımcı olabilecek kimse yokmu acaba?
Kullanıcı avatarı
orhanars
 
Kayıt: 27 Mar 2019 16:21
Meslek: mühendis
Yaş: 41
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Cevap: Cevap: Listview'de arama yapılan Textbo

İleti#6)  orhanars » 22 May 2019 12:54

orhanars yazdı:
orhanars yazdı:
Orion1 yazdı:Buyurun.
Dosyanız ektedir.:cool:
Kod: Tümünü seç
Sub refresh()
Dim isim As String
ListView1.ListItems.Clear
isim = UCase(Replace(Replace(ARAMA2.Value, "i", "İ"), "ı", "I"))
For i = 2 To [B65536].End(xlUp).Row
    If Cells(i, "B").Value = CDate(ARAMA.Value) And Cells(i, "E").Value = _
            CDbl(ARAMA1.Value) And UCase(Replace(Replace(Cells(i, "H").Value, "i", "İ"), _
                    "ı", "I")) Like isim & "*" Then
            sat = sat + 1
        Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
        Liste.SubItems(1) = Cells(i, 1).Value
        Liste.SubItems(2) = Cells(i, 2).Value
        Liste.SubItems(3) = Cells(i, 3).Value
        Liste.SubItems(4) = Cells(i, 4).Value
        Liste.SubItems(5) = Cells(i, 5).Value
        Liste.SubItems(6) = Cells(i, 6).Value
        Liste.SubItems(7) = Cells(i, 7).Value
        Liste.SubItems(8) = Cells(i, 8).Value
        Liste.SubItems(9) = Cells(i, 9).Value
        Liste.SubItems(10) = Cells(i, 10).Value
        Liste.SubItems(11) = Cells(i, 11).Value
        Liste.SubItems(12) = Cells(i, 12).Value
        Liste.SubItems(13) = Cells(i, 13).Value
        Liste.SubItems(14) = Cells(i, 14).Value
        Liste.SubItems(15) = Cells(i, 15).Value
        Liste.SubItems(16) = Cells(i, 16).Value
        Liste.SubItems(17) = Cells(i, 17).Value
        Liste.SubItems(18) = Cells(i, 18).Value
        Liste.SubItems(19) = Cells(i, 19).Value
        Liste.SubItems(20) = Cells(i, 20).Value
    End If
Next i

End Sub

Merhabalar ekteki gibi bir iş takip dosyası hazırladım ama dosyada yapamadığım işler var ve yardımcı olursanız çok sevinirim
1- kaydet tuşuna bastığımda yaptığım değişiklik ya da gelişmeleri seçtiğim işin üzerine kaydetsin
2-listview da üst kısımda yer alan yeşil renkli arama hücreleri ayrı ayrı çalışıyor. fakat ben birbirine bağımlıda çalışsın istiyorum. örneğin proje adı kısmında bir projeyi seçtikten sonra iş kodu kısmında o projeye ait diğer özelliği arayabilmeliyim.
3- gelişme1 den başlayan gelişme 5 e kadar devam eden hücrelerde hücre içeriğine göre boyama yaptırıyorum fakat listview dan başka bir iş seçtiğimde renkler sıfırlanmıyor aynen kalıyor ilgili kutucuklarda. bu renklendirmenin her proje değiştiğinde o projenin durumuna göre güncellenmesi gerekli
4-listwiew dan hücrelere gelen projenin açık,kapalı,geciken ve yaklaştı konu adetlerini görmek için nasıl label hazırlayabiliriz

bu konularda yardımcı olabilirseniz gerçekten çok sevinirim. şimdiden emeği geçenlere teşekkür ederim.

Arkadaşlar bu konuda yardımcı olabilecek kimse yokmu acaba?

2 haftayı geçmiş ama hala bir el atan çıkmadı maalesef. yok mu bu konuda yardımcı olabilecek üstadlar?
Kullanıcı avatarı
orhanars
 
Kayıt: 27 Mar 2019 16:21
Meslek: mühendis
Yaş: 41
İleti: 7
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe