3 sayfadan 1. sayfa

Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 16 Eyl 2017 18:50
gencturkk
İyi akşamlar.
Textboxlar ile listview'e veri getirmekten sorun yaşamadım. Ancak, araya bir tane de combobox koymak isteyince beceremedim.

Örnek; "Tarih Girin" altındaki Textbox'a "Eylül 2017" olarak yazdıktan sonra comboboxtan konu olarak "HACİZ" seçtiğimde Eylül 2017 tarihindeki Haciz verisi olanları listview'e getirmeli. O tarihteki Haciz sütunundaki boş hücreleri göstermemeli.

Saygılar.

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 16 Eyl 2017 18:59
gencturkk
Bir önceki dosyada sorun vardı. Dosyayı tekrar gönderiyorum.

Saygılar

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 17 Eyl 2017 08:18
gencturkk
Merhaba. Listview'e gelen veriden istediğimiz sütundaki sadece dolu hücreleri gösteremiyor muyuz?

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 17 Eyl 2017 12:11
gencturkk
Merhaba. İstediğim şeyi tam ifade edemedim. Listviewdeki görünen sütunlardan istediklerimi gösterip istemediklerimi gizlemem gerekli. Asıl mevzu bu.
İstediğim aramayı listview'e getirdikten sonra sütunlar üzerinde oyanam yapmak istedim ancak uyguyn örnekde bulamadım

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 17 Eyl 2017 15:28
feraz
Merhaba.
Eğer istediğiniz sütun göstermek yada gizlemek ise deneyebilirsiniz.

Kod: Tümünü seç
Private Sub Cmbgoster_Click()

Dim aaa, bbb

If Me.ComboBox10.ListIndex = 0 Or Me.ComboBox10.ListIndex = -1 Then
    MsgBox "Bir Gösterilecek Baslik Giriniz...", vbCritical, "HATA"
    Exit Sub
End If

aaa = Me.ListView1.ColumnHeaders.Item(Me.ComboBox10.ListIndex + 1)
bbb = Me.ComboBox10.ListIndex + 1
       
       
        If aaa = "ADI SOYADI" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "TC" Then ListView1.ColumnHeaders(bbb).Width = 60
        If aaa = "İL" Then ListView1.ColumnHeaders(bbb).Width = 60
        If aaa = "İLÇE" Then ListView1.ColumnHeaders(bbb).Width = 60
        If aaa = "İCRA DAİRESİ" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "İCRA DOSYA NO" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "TARİH" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "BANKA" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "ARAÇ" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "ÇÖP" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "HACİZ" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "MAAŞ" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "MAAŞ BEKLEME" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "MAAŞ HACZİ/BİLA" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "MAAŞ KESİNTİSİ" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "MAAŞ MUAZA" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "MAAŞ SIRADA" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "İTİRAZ" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "İCRA TAAHHÜDÜ" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "İCRA TAAHHÜDLÜ DAVA" Then ListView1.ColumnHeaders(bbb).Width = 115
        If aaa = "TAPU" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "SÖZLÜ ANLAŞMA" Then ListView1.ColumnHeaders(bbb).Width = 100
        If aaa = "VEFAT" Then ListView1.ColumnHeaders(bbb).Width = 100



End Sub


Kod: Tümünü seç
Private Sub Cmbgzle_Click()

If Me.ComboBox10.ListIndex = 0 Or Me.ComboBox10.ListIndex = -1 Then
    MsgBox "Bir Gizlenecek Baslik Giriniz...", vbCritical, "HATA"
    Exit Sub
End If

ListView1.ColumnHeaders(Me.ComboBox10.ListIndex + 1).Width = 0

End Sub

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 17 Eyl 2017 15:36
feraz
Resim eklemeyi unutmuşum.

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 17 Eyl 2017 17:19
gencturkk
Merhaba.

Feraz hocam elinize sağlık. Tam istediğim gibi oldu. Ancak, affınıza sığınarak, son olarak "ARAÇ" sütunundan(dahil) "VEFAT" sütununu kapsayacak şekilde "hepsini gizle" ve "hepsini göster" butonu yapabilir misiniz? Buton veya Checkbox da olabilir.

Mümkünse Eğer.

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 17 Eyl 2017 18:15
feraz
Rica ederim.

Dosyayı deneyiniz.Comboboxa en başta Tümü diye ekledim.Bunu seçip gizleme ve gösterme olaylarını yaparsınız.

İsterseniz checkboxlada olur.Kodu biraz daha kısaltabilirsem paylaşırım.

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 17 Eyl 2017 18:21
feraz
Checkboxlu.

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 17 Eyl 2017 18:34
gencturkk
Teşekkür Ederim.

Elinize sağlık.

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 17 Eyl 2017 19:05
feraz
Rica ederim checkboxlu dosyada hata olmuş.

Biraz daha geliştirince dosyayı eklerim.gizlileri ve gizli olmayanları ayırtedebilirsem eğer.

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 17 Eyl 2017 20:25
gencturkk
Takip edeceğim. Teşekkür ederim.

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 18 Eyl 2017 17:02
gencturkk
Iyi akşamlar. Feraz bey, listview 64 bitte çalışmıyormuş. HO kadar uğruğraşım boşa gitti :(.
Su anki dosyama listview de yaptigimiz islemleri listboxda yapabilir miyiz? Mümkün mü?

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 18 Eyl 2017 20:46
gencturkk
İyi akşamlar.
Debelendim, debelendim birşeyler çıkardım. :)
Ancak,
1-) Arama yaptırırken yazmaya başladıkça listboxda süzdüremedim. İlla ki tam yazmak gerekiyor.
2-) Başlıkları göstermedim.
3-) Sütun ekle-çıkar işlemini listboxta yapamadım :(

Teşekkürler.

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 18 Eyl 2017 21:14
feraz
Ben son halini yapmıştım listview ile.Yinede paylaşayım.

Sağdaki combo gizlileri soldaki comboda gizli olmayanları gösterir.Süper olmuştu :)

Listbox ile olaya sonra bakabilirim.Yinede söz veremem yapabileceğime dair.
Elimden geleni yapmaya çalışırım.

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 18 Eyl 2017 21:19
gencturkk
Teşekkür ederim. Elinize sağlık.

Malum bu listview illedi 64 bitte işe yaramıyor. Ancak, arkadaşlar için güzel örnek dosya oldu.

Listboxda bir çalışma yaptim ancak eksik kaldı.

Cevap: Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 18 Eyl 2017 21:28
feraz
gencturkk yazdı:İyi akşamlar.
Debelendim, debelendim birşeyler çıkardım. :)
Ancak,
1-) Arama yaptırırken yazmaya başladıkça listboxda süzdüremedim. İlla ki tam yazmak gerekiyor.
2-) Başlıkları göstermedim.
3-) Sütun ekle-çıkar işlemini listboxta yapamadım :(

Teşekkürler.


İlk soru için kırmızı renkteki gibi olacak içerikte aratmak için.
Başlıklar heralde rowsource ile oluyordu yanılmıyorsam.Başlı başına problem listboxta başlık olayı.
Sütun ekle çıkart olayına yarın bakabilirim.
Hayırlı geceler.

If ARAMA3.Text <> "" Then s = s & " and f8 like ""%" & ARAMA3.Value & "%"""

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 18 Eyl 2017 21:57
gencturkk
Takipteyim hocam.

Teşekkürler.

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 19 Eyl 2017 19:21
feraz
Merhaba.

Listboxta veri süzdükten sonra başlık kaybolmaması için alttaki kod gibi Rowsource ile olmalı diye bildiğim için bu şekilde yaptım.
ARAMA SAYFA adında bir sayfa yapıp filtreleme ve Listboxa verileri getirme olayını bu sayfadan yaptım.Bir deneyiniz uygunsa gizleme gösterme olayına yarın geçebilirim.
Kod: Tümünü seç
Me.ListBox1.RowSource = Sheets("xxx").Range("A2:W100").Address

Cevap: Gelen Veride Boş Hücreleri Gizleme

İletiTarih: 19 Eyl 2017 20:51
gencturkk
iyi akşamlar.

Bende şimdi rowsource ile boğuşuyordum. Sütun başlıkları geldi. Sütun gizleme ve gösterme mevzusu için sizi takipdeyim hocam.

Teşekkür ederim.