yeni bayi 59-22-39 hk.

[nazifdural]

Evren Hocam Merhaba,

Sizin hazırlamış olduğunuz yeni bayi 59-22-39 dosyasını inceledim.Rapor (bayi listesine göre ekrana dök..) bölümü çok hoşuma gitti.benimde hazırladığım bir dosyada sizde veri olan dosya gibi benimde data dosyam var. ve rapor bölümünün bende sizin dosyanızdaki gibi çalışmasını istiyorum.yani tarihi seçeceğim.ve o tarihe ait girişleri bana ayrı bir rapor sayfasında ve listboxta getirecek.. kodlarınızı inceledim.fakat içinden çıkamadım.Böyle yapmak istememin sebebi de userformda rapor modülünde süzme yapıldığında data sayfasının da açılması ve kullanıcının görmesini istemiyorum.data sayfasını gizlediğimde bu seferde bu rapor sayfası hata veriyor.
Bana yardımcı olursanız çok sevinirim.

 

[obenim81]

Selamlar,

ben siteye yeni üye oldum ama elimde benzer bir kod var size göndermek istedim. Umarım yararı olur.

Not: Niyetim kimsenin işine karışmak değil sadece elimdekini paylaşmak.



Private Sub CommandButton1_Click()
Dim veri As Worksheet
Dim say As Integer
Dim topla As Double
'çok büyük ondalık sayı belki 12 haneli
Dim Tarih1 As Date
Dim Tarih2 As Date
Dim satici As String
Dim urun As String
Dim fatura As String
Dim lstSatir As Integer
Dim adet As Integer
Dim ind As Double
Dim ss As Integer
Dim i As Integer

Set veri = Worksheets("VERITABANI")
say = WorksheetFunction.CountA(veri.Range("a:a"))

If txtTarih1.Value <> Empty Then Tarih1 = txtTarih1.Value Else Tarih1 = "01/01/1900"
If txtTarih2.Value <> Empty Then Tarih2 = txtTarih2.Value Else Tarih2 = "01/01/2100"
' tarih boş bırakılmasın diye else den sonra = ile tarih girdik yada else den sonra msgbox girip "lütfen tarih gir" yaz
If cbsatici.Value <> Empty Then satici = cbsatici.Value Else satici = "*"
If cburun.Value <> Empty Then urun = cburun.Value Else urun = "*"
If cbfatura.Value <> Empty Then fatura = cbfatura.Value Else fatura = "*"
' string olarak tanımlana verilerde boş geçilmesin diye * kullan seçili alandaki tüm verileri al

topla = 0
adet = 0
ind = 0
lstSatir = 0
lstrapor.Clear

ss = 174 / say
'satır sayısını eşitledik
For i = 2 To say
'kaç dolu hücre varsa say diyerek sonuna kadar gitmesini sağladık
If veri.Cells(i, 4) >= Tarih1 And veri.Cells(i, 4) <= Tarih2 And veri.Cells(i, 1) Like urun And veri.Cells(i, 2) Like fatura And veri.Cells(i, 3) Like satici Then
' 4. sütunu seçerken diğer sütunlarında dolu olma şartını yazdık
' string olduğu için like kullandık ama diğer türlü string olsaydı = kullanacaktık
lstrapor.AddItem
lstrapor.Column(0, lstSatir) = veri.Cells(i, 1).Text
lstrapor.Column(1, lstSatir) = veri.Cells(i, 2).Text
lstrapor.Column(2, lstSatir) = veri.Cells(i, 3).Text
lstrapor.Column(3, lstSatir) = veri.Cells(i, 4).Text
lstrapor.Column(4, lstSatir) = veri.Cells(i, 5).Text
lstrapor.Column(5, lstSatir) = veri.Cells(i, 6).Text
lstrapor.Column(6, lstSatir) = veri.Cells(i, 7).Text
lstrapor.Column(7, lstSatir) = veri.Cells(i, 8).Text
lstrapor.Column(8, lstSatir) = veri.Cells(i, 9).Text
'rapor kısmına veri dosyasından hangi sütun gelecekse onu yazdırdık
lstSatir = lstSatir + 1

topla = topla + veri.Cells(i, 8)
'veritabanındaki 8.hücre toplam orda yazılı
adet = adet + veri.Cells(i, 7)
ind = ind + veri.Cells(i, 6)
End If
'if dongusunu kapattık
Next i
'if dongusunu kapattık
txtSatis.Value = topla
txtAdet.Value = adet
txtindirim.Value = ind
'hesapladığımız değerleri ilgili yere gönderdik

End Sub

 

[nazifdural]

Paylaşımın için teşekkürler..şimdi bir deneyeyim bakalım