listbox' da bulunan verilerin iki tarih aralığında süzülmesi

[geren36]

herkese iyi geceler,

Userform üzerinde işaretleğimiz başlangıç ve bitiş tarihleri arasında (başlangıç ve bitiş tarihleri aynı olabilir) yer alan bilgilerin listbox üzerine gelmesini istiyorum.

süzme işlemi, işaretli optionbuttona göre, işlem tarihine ya da valör tarihine göre yapılabilmelidir..

Listbox' a gelen bu verilerden (adet - komisyon1 ve komisyon2) sütünlarının toplamı da başlıkların hemen altındaki satırda yer almalıdır.


Not 1: Başlıkta yer alan bilgilerin fontlarının, listedeki bilgilerden ayrı olması (örneğin bold ya da diğerleri siyah iken başlık bilgilerinin fontlarının mavi olması v.b) sağlanabilir mi acaba ?

Not 2: Userform üzerindeki "rapor yap" butonuna basılınca listbox görülmekte olup, girdiğimiz kriterlere göre yapılacak çalışma da aynı butona basıldığında listbox üzerine gelmelidir.


Örneğin,

1 - "işlem tarihine göre süz" option buttonu işaretlidir.

2 - "başlangıç tarihi" 3.10.2007; "bitiş tarihi" 6.10.2007' dir.

3 - "rapor yap" butonuna basılınca listbox görülür.

4 - görülen listbox üzerinde "işlem tarihi" 6.10.2007 - 3.10.2007 arasında bulunan kayıtlar listelenir.

5 - Görülen bu kayıtların "adet", "komisyon1" ve "komisyon2" verilerinin toplamı alınır ve başlığın hemen altındaki satırda toplamlar hesaplanır.

6 - Başlıkla ilgili yukarıda yazdığım ( Not:1 ) hakkında yardım da alabilirsem ekstradan memnun olacağım.

herkese teşekkürler,

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
Set sv = Sheets("veri")
Set sr = Sheets("rapor")
sr.Range("a1:f1000").Clear
For sut = 1 To sv.[c65536].End(xlUp).Row
If sv.Range("c" & sut) >= Calendar1 And sv.Range("c" & sut) <= Calendar2 Then
Range("a" & sut & ":f" & sut).Copy
s = s + 1
sr.Range("a" & s).PasteSpecial
End If
Next
Application.CutCopyMode = False
ListBox1.Visible = True
End Sub

 

[geren36]

emeğine ve ilgine teşekkür ederim. ilk etapta aşağıdaki tespitlerim olmuştur:

1 – süzme işlemi sonucunda listbox’ da bulunması gereken başlıklar, yapılan işlemin neticesi tarafından ezilmektedir. Böylece başlıklar yerine ilk kayıtlar görülmektedir.

2 – Aynı gün başlangıç ve bitiş tarihli “işlem tarihine göre süz” işlemi neticesinde herhangi bir veri gelmemektedir. (örnek : 3 ekim işlemleri)

3 - Valör tarihine göre süzerken, tek bir kayıt varsa (örnek: 12 ekim), işlem yapılmamakta, listbox boş gelmektedir.

4 – Süzme işlemine ilişkin veri yoksa (örnek: başlangıç ve bitiş tarihi 4 ekim ve süzme işlemi işlem tarihine göre yapılmaktadır) listbox boş gelmemekte; bir önceki süzmenin neticesi listelenmektedir.

5 - Süzme işlemine konu verilerin toplamları, başlıkların hemen altındaki satırda görüntülenememektedir.

bunlardan kurtulabilirsek olacak gibi. teşekkürler..

 

[geren36]

problem OK..

VBA arkadaşıma teşekkür ederim. bana ilham verdi :icelim: ve ben de yukarıda belirttiğim olumsuzlukları giderecek şekilde kendisinin kodunu geliştirdim.

şimdi istediğim gibi çalışıyor ancak,

Not 1: Başlıkta yer alan bilgilerin fontlarının, listedeki bilgilerden ayrı olması (örneğin bold ya da diğerleri siyah iken başlık bilgilerinin fontlarının mavi olması v.b) sağlanabilir mi acaba ?

sorumun yanıtını henüz bulamadım.

Bu konuda bilgisi olan var mı acaba ?

iyi geceler..

 

[Korhan Ayhan]

Selamlar,

Birinci sorunuzun cevabı olarak Label yada StatusBar kullanmanızı öneririm.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
Set sv = Sheets("veri")
Set sr = Sheets("rapor")
sr.Range("a2:f1000").Clear
For sut = 1 To sv.[c65536].End(xlUp).Row
If sv.Range("c" & sut) >= Calendar1 And sv.Range("c" & sut) <= Calendar2 And sv.Range("b" & sut) >= Calendar1 And sv.Range("b" & sut) <= Calendar2 Then
Range("a" & sut & ":f" & sut).Copy
s = s + 1
sr.Range("a" & s + 1).PasteSpecial
End If
Next
Application.CutCopyMode = False
sut = sr.[d65536].End(xlUp).Row
sr.Range("d" & sut + 1) = WorksheetFunction.Sum(sr.[d2:d65536])
sr.Range("e" & sut + 1) = WorksheetFunction.Sum(sr.[e2:e65536])
sr.Range("f" & sut + 1) = WorksheetFunction.Sum(sr.[f2:f65536])
sr.Range("d" & sut + 1) = Format(sr.Range("d" & sut + 1), "#,##0.00")
sr.Range("e" & sut + 1) = Format(sr.Range("e" & sut + 1), "#,##0.00")
sr.Range("f" & sut + 1) = Format(sr.Range("f" & sut + 1), "#,##0.00")
ListBox1.Visible = True
End Sub

 

[geren36]

ilgi ve önerilerinize teşekkür ederim arkadaşlar...

çalışmam istediğim gibi tamamlanmıştır.

iyi geceler..

 

[celine]

run time error ve unspecified error

Mrb arkadaşlar, benim problemim userforma listbox koydum, rapor alma tarzında fakat şurada hata veriyor;

Private Sub UserForm_Initialize()
Sheets("KalanMiktar").Select

Dim i, son As Integer
ALANMUTEAHHIT.Clear
son = WorksheetFunction.CountA(Worksheets("KalanMiktar").Range("A12:A50000")) + 1


For i = 2 To son
If WorksheetFunction.CountIf(Worksheets("KalanMiktar").Range("C13:C" & i), Worksheets("KalanMiktar").Cells(i, 3).Value) = 1 Then
ALANMUTEAHHIT.AddItem Worksheets("KalanMiktar").Cells(i, 3)
End If
Next i

End Sub

ve verdiği hata runtime ve unspecified error hatası.. yardımcı olursanız sevinirim.

 

[noxious]

Yukarıdaki şekilde kodları kendi çalışmama uyarlamaya çalıştım ama bir yerde sorun çıktı ( Beceremedim )
İki tarih arasında yapılan işlemleri görmek istediğimde sadece F sütununa kadar alıyor (ve 12 sırada kalıyor tarihler arasındaki işlemlerin tümünü listelemesi gerekiyor) ama bana AD sütunuda dahil alması lazım ayrıca süzdüğüm tarihler arasında bulunan ve listelenen işlemleri userform üzerinde sayı olarak görmem münkün mü şimdiden teşekkürler