listbox'a Rapor alma

[AKTAY27]

selam arkadaşlar

Örneğin A firması 01.01.2008 - 31.01.2008 tarihleri arasında kaç kg. boya alınmıştır bunu göre bilmek istyorum. firma ünvanı ve stokların raporunu 2 kriterli olarak alabiliyorum ama iki tarih arasınıda eklemek istiyorum. ben beceremedim bir el atarsanızın sevinirim örnek dosyada daha iyi anlaşılacaktır. teşekkürler

 

[AKTAY27]

arkadaşlar yokmu cevap verebilecek kimse

 

[Orion1]

Dosyanız auto_opende hata veriyor.
Olmayan bir userform'u referans veriyor.
Ayrıca listeleme yapılacak userformda olmayan nesne isimleri var form açılışta hata veriyor.Tüm bunları düzeltin ve dosyayı ekleyin ki cevap alabilesiniz.Yoksa biraz zor.

 

[AKTAY27]

sayın evren gizlen

pardon dosya boyutu fazla olduğundan diğer formları silmiştim açılış kodunu silmeyi unutmuşum.

sayın evren;

söylemiş olduğunuz hataları giderdim yardımınız bekliyorum teşekkürler
son şeklini gönderiyorum

 

[Orion1]

Dosyanız hazır.
Textbox1'e ve Textbox2'ye değerlerini giriniz Listele tuşuna basınız.
Eğer hepsini listelemek istiyorsanız O kutucuğu boş bırakınız.

Private Sub raporal_Click()
Dim ilktar As Date, sontar As Date, i As Long, firma As String
Dim a As Long, cins As String, toplam As Double
ListBox1.RowSource = vbNullString
ReDim myarr(1 To 14, 1 To 1)
For i = 2 To Cells(65536, "B").End(xlUp).Row
    If TextBox1.Value = "" Then
        firma = Cells(i, "E").Value
        Else
        firma = TextBox1.Value
    End If
    If RBT.Value = "" Or RST.Value = "" Then
        ilktar = Cells(i, "N").Value
        sontar = Cells(i, "N").Value
        Else
        ilktar = DateValue(RBT.Value)
        sontar = DateValue(RST.Value)
    End If
    If TextBox2.Value = "" Then
        cins = Cells(i, "G").Value
        Else
        cins = TextBox2.Value
    End If
    If firma = Cells(i, "E").Value And Cells(i, "N").Value >= ilktar And _
    Cells(i, "N").Value <= sontar And cins = Cells(i, "G").Value Then
        a = a + 1
        toplam = toplam + Cells(i, "H").Value
        ReDim Preserve myarr(1 To 14, 1 To a)
        For k = 1 To 14
            myarr(k, a) = Cells(i, k).Value
        Next k
    End If
Next i
If a > 0 Then
    ListBox1.Column = myarr
End If
Label100 = "Listelenen : " & ListBox1.ListCount & " Adet Stoktan Toplam : " & toplam & " Adet mevcuttur."
End Sub

 

[AKTAY27]

Sayın Evren Hocam Elinize sağlık.
Allah razı olsun sizden.
yalnız ufak bir problem var listbox1 tutarlı kolonları sağa yanaşık olarak listelememiz mümkünmü.saygılar

 

[Orion1]

Sayın Evren Hocam Elinize sağlık.
Allah razı olsun sizden.
yalnız ufak bir problem var listbox1 tutarlı kolonları sağa yanaşık olarak listelememiz mümkünmü.saygılar

Listbox'ın ayrı ayrı kolonları hizalama özelliği yok.
Hizalandığına hepsi ayni şekilde hizalanır.

 

[AKTAY27]

teşekkürler hocam elinize sağlık. en azından olmayacağını öğrendim

 

[haso_excel]

http://http://www.4shared.com/file/42130074/86ff660d/albuz_REV4.html

Linkdeki dosyamda veriyi listboxça çağırmak istedim fakat sizin konudaki kodlardan yola çıkarak başaramadım yardımcı olursanız çok sevinirim

 

[Orion1]

http://http://www.4shared.com/file/42130074/86ff660d/albuz_REV4.html

Linkdeki dosyamda veriyi listboxça çağırmak istedim fakat sizin konudaki kodlardan yola çıkarak başaramadım yardımcı olursanız çok sevinirim

Link çalışmıyor.
Yeni bir başlık açarak sorunuzu sorunuz ve Dosya ekleden dosyanızı ekleyiniz.