İstenilen kriterlere göre listboxa veri çağırmak.

[hurkanpisirici]

ama firma ismi bölümünde firmalar artık tek gelmiyor bunu nasıl düzeltebilirim?

 

[hurkanpisirici]

ilk verdiğiniz kodlarda böyle bir şey olmuyor, oysaki kodlarıda değiştirmemişsiniz çok ilginç.

 

[janveljan]

Verileri kontrol edin sizin aynı zannettiğiniz veriler farklı olabilir, sonunda başında boşluk olabilir vs.

 

[hurkanpisirici]

Kontrol ettim.

Kontrol ettim hatta kolay olsun diye a-b-c-d diye deneme yaptım dosyayı ekliyorum.

sizi uğraştırıyorum özürdilerim.

 

[hurkanpisirici]

soruyu sormakta acelemi ettim diye 3 kere kontrol ettim ama dediğim gibi mükerrerleri elemiyor.

 

[janveljan]

Hatayı buldum, initialize kodlarında aşağıdaki satırları değiştirin
Bu satırı

firma.Add Cells(i, 3), CStr(Cells(i, 2))

Bu satırla değiştirin.

firma.Add Cells(i, 3), CStr(Cells(i, 3))

Ben yukarıdaki kodları güncelleyeceğim.

 

[hurkanpisirici]

hocam firmada süzünce firma ismi tarih sutununa kayıyor.

 

[hurkanpisirici]

yani tarihler bir anda yok oluyor.

 

[hurkanpisirici]

şimdi kontrol ettim hocam zaten o kodları değiştirmeden öncede aynısı oluyormuş gözümden kaçmış süzmede bir problem var.

 

[janveljan]

Suz ile ilgili kısmın kodlarını değiştirdim. Sütun başlıkları rowsource özelliğine has birşey olduğu için onları ekleyemiyorum. Bence sütun başlıklarını Label olarak forma ekleyin, görüntüyü kurtarmak adına.

Sub suz()
ReDim myarr(1 To 6, 1 To 1)
ListBox1.RowSource = ""
k = 0
For i = 2 To Cells(65536, "a").End(3).Row
    onay = True
    If ComboBox1.Value <> "" Then
        If Not DateValue(Cells(i, 2)) >= DateValue(ComboBox1.Value) Then onay = False
    End If
    If ComboBox2.Value <> "" Then
        If Not DateValue(Cells(i, 2)) <= DateValue(ComboBox2.Value) Then onay = False
    End If
    If ComboBox3.Value <> "" Then
        If Not Cells(i, 3) = ComboBox3.Value Then onay = False
    End If
    If ComboBox4.Value <> "" Then
        If Not Cells(i, 6) = ComboBox4.Value Then onay = False
    End If
    
    If onay Then
    k = k + 1
    ReDim Preserve myarr(1 To 6, 1 To k)
    For j = 1 To 6
    myarr(j, k) = Cells(i, j)
    Next
    End If
Next
ListBox1.Column = myarr
End Sub

 

[hurkanpisirici]

janveljan hocam çok yordum sizi harikasınız, elleriniz dert görmesin.

 

[hurkanpisirici]

Dosya ekte.

Belki diğer arkadaşların da işine yarar diye dosyanın son halini ekliyorum.Sayın janveljan hocam sayesin de, format bu hale geldi.Hem şirketteki dosyama entegre edeceğim hemde bu formatı geliştireceğim.Aktar butonuna bastığınız an o an listbox taki datalar ekstre sayfasına aktarılıyor.Yazdırmak için böyle düşündüm daha doğrusu başka kod bulamadım.İyi çalışmalar.