süz ve raporla

[ridvan2111]

Selam arkadaşlar
Aslında soruyu nasıl soracağımı bilmiyorum umarım düzgün sormuşumdur.

UF ye yeni eklediğim sekmede iki tarih arasında belirlediğim kritere uyanları süzerek toplayacak ve textboxlara yazacak
açıklama dosya içinde mevcut

 

[Orion1]

Dosyanız Hazır .Her 2 makina içinde çalışıyor.

Private Sub CommandButton8_Click()
Dim syf As Worksheet, isim As String, i As Long
Dim ctr As Control, j As Byte
Dim istenilen, yapilan As String
Dim kumas, mekik, orta, diger As Double
On Error GoTo hata
For Each ctr In Me.Controls
    If Len(ctr.Tag) >= 8 Then
        tg = Mid(ctr.Tag, 8, Len(ctr.Tag) - 7)
        If CDbl(tg) >= 112 And CDbl(tg) <= 115 Then ctr.Value = Empty
    End If
Next ctr
For Each syf In Worksheets
    If Right(syf.Name, 7) = ".makina" Then
    kumas = 0: mekik = 0: orta = 0: diger = 0
        For i = 2 To syf.Cells(65536, "DE").End(xlUp).Row
            If syf.Cells(i, "DE").Value >= DTPicker3.Value _
            And syf.Cells(i, "DE").Value <= DTPicker4.Value Then
            istenilen = "TextBox" & Left(syf.Name, 1) & Replace(syf.Cells(i, "DF"), "-", "") & "DN"
            yapilan = "TextBox" & Left(syf.Name, 1) & Replace(syf.Cells(i, "DF"), "-", "") & "DC"
            Controls(istenilen).Value = syf.Cells(i, "DN").Value
            Controls(yapilan).Value = syf.Cells(i, "DC").Value
                For j = 112 To 115
                    If j = 112 Then
                        If IsNumeric(syf.Cells(i, j).Value) Then kumas = kumas + syf.Cells(i, j).Value
                    End If
                    If j = 113 Then
                        If IsNumeric(syf.Cells(i, j).Value) Then mekik = mekik + syf.Cells(i, j).Value
                    End If
                    If j = 114 Then
                        If IsNumeric(syf.Cells(i, j).Value) Then orta = orta + syf.Cells(i, j).Value
                    End If
                    If j = 115 Then
                        If IsNumeric(syf.Cells(i, j).Value) Then diger = diger + syf.Cells(i, j).Value
                    End If
                    isim = Left(syf.Name, 1) & syf.Cells(i, "DF") & "-" & j
                    For Each ctr In Me.Controls
                        If Len(ctr.Tag) >= 8 Then
                            If ctr.Tag = isim Then ctr.Value = syf.Cells(i, j).Value
                        End If
                    Next ctr
                Next j
            End If
        Next i
        Controls("a" & Left(syf.Name, 1)) = Format(kumas, "#,##0.00")
        Controls("b" & Left(syf.Name, 1)) = Format(mekik, "#,##0.00")
        Controls("c" & Left(syf.Name, 1)) = Format(orta, "#,##0.00")
        Controls("d" & Left(syf.Name, 1)) = Format(diger, "#,##0.00")
    End If
Next syf
Exit Sub
hata:
MsgBox "Bir hata oluştu.İşlemler sonlandırıldı.." & _
vbLf & "Büyük ihtimalle saat yanlış yazıldı..Veya yeni makina sayfası eklendi!!", vbCritical, "DİKKAT"
End Sub

 

[ridvan2111]

Sayın Vren Gizen ilgin için teşekkür ederim

kodlar benim sorduğum şekilde mükemmel çalışıyor

özür dileyerek söylüyorum soruyu eksik sorduğumun farkına vardım
DE sütununda tarihleri süzdüğünde DF sütununda aynı vardiyaları toplayarak
Texbox lara yazması lazım.
ayrıca DC sütunda vuruş ve DN sütununda istenilen vuruş ilgili texbox480 ve 479 ve aynı işlem diğer vardiyalara olacak şekilde düzenlenebilirmi

Sayın Evren Gizen yukarıda yazdığınız kodlar bana çok yabancı
nasıl oluyorda kodlarda textbox isimleri yazmadan veriler yerine oturuyor

 

[Orion1]

2 numaralı mesajdan dosyayı indirebilirsiniz.İstenilen vuruşlar ve yapılan vuruşlar eklendi.

 

[ridvan2111]

sayın Evren Gizen

yardımların için çok teşekkürler

peki tarihleri süzdükten sonra tarihlere uyan vardiyalar. kumaş,mekik vs toplayarak textbox lara yazması mümkün değilmi?

 

[Orion1]

sayın Evren Gizen

yardımların için çok teşekkürler

peki tarihleri süzdükten sonra tarihlere uyan vardiyalar. kumaş,mekik vs toplayarak textbox lara yazması mümkün değilmi?

Dosyayı istediğiniz gibi düzenledim.
Yalnız textboxların toplamı ile alttaki toplam textboxları birbirini tumuyor.Çünkü sayfada ki ayni saat içinde 1den fazla veri girilmiş.Bu her textbox'ın kendi saati içersinde 1 değer ( en son kaydedilen saat'teki değer) alırken en alttaki toplamlar textboxlarda sayfada o tarihte bütün saatlerin toplamını alıyor.

 

[ridvan2111]

Sayın Evren Gizen
ne kadar teşekkür etsem azdır bu dosyanın hazırlanmasında benden fazla emek harcadınız ne kadar teşekkür etsem azdır size kolaylıklar diliyorum

 

[Orion1]

Sayın Evren Gizen
ne kadar teşekkür etsem azdır bu dosyanın hazırlanmasında benden fazla emek harcadınız ne kadar teşekkür etsem azdır size kolaylıklar diliyorum

Rica ederim.
Bir katkımız olduysa ne mutlu.
İyi çalışmalar.
Not:Tarih sorgulamasını Dtpicker 3 ve dtpicker4 nesnesi ile yapınız.
Kodlar bu iki nesneye göre çalışıyor.Diğer 2 dtpickeri silebilirsiniz.
Ayriyetten yeni makina sayfası eklerseniz kodları düzenlemek gerekecektir.
Bu durumda ben hata mesajı koydum.Program çökmez ama Hata mesajı ile karşılaşırsınız.Ayriyetten saatlerin vardiyelede şu anki formatta yazılmalı 08-16,16-24,24-08 aralarında mutlaka "-" işareti olmalıdır.