Tarihi girişleri

[ZeNgen]

Merhaba;

Bir formda yöneticilik yapıyorum ve burdaki kişilerin form ismi ile belirli saatte girişleri var ben her kişinin aynı isim ile kaç defa giriş yaptığını hesaplamaya çalıştım ama başaramadım Elimde mevcut olan kodlardan da denedim.

sayfa 2 de mevcut olan girişleri yapabilirmiyiz acaba bu konuda ustalarım yardımcı olursa sevinirim.

 

[Orion1]

Dosyanız ektedir.

Sub tekrarlar()
Dim i As Long, sat As Long, z As Object, j, deg As String
Sheets("Sheet2").Select
Range("G1:H65536").ClearContents
Set z = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(65536, "E").End(xlUp).Row
    deg = ""
    j = Split(Cells(i, "E").Value, " ")
    deg = j(0)
    If Not z.exists(deg) Then
        z.Add (deg), 1
        Else
        z.Item(deg) = z.Item(deg) + 1
    End If
Next i
Range("G1").Resize(UBound(z.keys) + 1, 2) = Application.Transpose(Array(z.keys, z.items))
MsgBox "işlem tamamdır."
End Sub

 

[ZeNgen]

İlginiz için teşekkür ederim Sn:Evren bey Fakat bu girişlerin toplamını değilde
giriş yapılan tarih ve saatin karşısına 1.Giriş ,2.Giriş , 3.Giriş diyerek sıralama yapabilirmiyiz acaba birde 1.Girişi 24 saatin başlangıcı olarak varsayıp her 24 saatte tekrar 1.Giriş olarak hesaplarsa mükemmel olur.

Umarım çok şey istememişimdir sizden.

Yine örnekte yazdım

 

[Orion1]

İlginiz için teşekkür ederim Sn:Evren bey Fakat bu girişlerin toplamını değilde
giriş yapılan tarih ve saatin karşısına 1.Giriş ,2.Giriş , 3.Giriş diyerek sıralama yapabilirmiyiz acaba birde 1.Girişi 24 saatin başlangıcı olarak varsayıp her 24 saatte tekrar 1.Giriş olarak hesaplarsa mükemmel olur.

Umarım çok şey istememişimdir sizden.

Yine örnekte yazdım

Bu konuda Bir fikrim yok.
Size kolay gelsin.

 

[ZeNgen]

Yinede ilginiz için teşekkür ederim.

 

[ZeNgen]

Merhaba öğlen açmış olduğum konu hakkında Sayın hocalarımızdan ve uzmanlarımızdan yardımcı olabilecek var mı acaba

konuyu açığımdan beri uğraşıyorum fakat bir türlü kendim yapamadım.
bu benim için zor olduğu için bu konuyu açtım lütfen yardım edin.

 

[ZeNgen]

Formdaki mesaj yoğunluğundan dolayı birkaç sayfa alta kaymıştır bu yüzden Güncellenmiştir.

 

[fedeal]

Sub kac()
Dim i As Long, s As Long
Sheets("SHEET2").Range("g1:g65536").ClearContents
 Range("E1:e" & Cells(65536, "E").End(xlUp).Row).Select
    Selection.TextToColumns Destination:=Range("CV1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
For i = 1 To Cells(65536, "E").End(xlUp).Row
If Sheets("SHEET2").Cells(i, 5).Value = "" Then GoTo ATLA
Sheets("SHEET2").Cells(i, "CV").Value = Sheets("SHEET2").Cells(i, "CV").Value & Format(Sheets("SHEET2").Cells(i, 6).Value, "DD.MM.YYYY")
s = Application.WorksheetFunction.CountIf(Sheets("SHEET2").Range("cv1:cv" & i), Sheets("SHEET2").Cells(i, 100).Value)
Sheets("SHEET2").Cells(i, 7).Value = s & ".GİRİŞ"
ATLA:
Next
Sheets("SHEET2").Range("CV1:Cx65536").ClearContents
Sheets("SHEET2").Range("g1").Select
End Sub

İstediğiniz bu olabilirmi?

 

[ZeNgen]

Sn: fedeal hocam malesef buda olmadı.

tekrar açıklayıcı bir dosya oluşturarak daha anlaşılır bir şekilde anlatıcam efendim.

---------------------------------------------------
Bir otoban girişinde toplamı 1 taneyi bulan gişe var.

Bu gişede de sayaç var.

Otobana giren araçların modellerini, giriş tarihlerini ve saatlerini

yazıp sıralıyor.

Fakat bu gişenin açılma saati farklı olduğundan dolayı ilk açılıştan itibaren
24 saat zamanı bulunuyor yani sabah 05:00 açıldıysa ertesi gün 05:00 de mesaisi bitiyor.

şimdi bizim bulmamız gereken 01.06.2009 tarihinde saat 05:00 de açılıp 02.06.2009 saat 05:00 a kadar
hangi aracın saat kaçta geçtiğini saymak.



Örnek geçişler ekteki dosyadadır.

 

[fedeal]

benim yaptığım tarihe göre yapıyor siz bunu 05:00:00 dan 04:59:59 a kadarmı istiyorsunuz?yani yaptıgımda başka problem varmı? bu araç olsun yada isim olsun değişmez saatler arasını alacagız yani doğrumu?

 

[ZeNgen]

Hocam sizin yapmış olduğunuz o gün içinde geçen tüm araçları saymak ama benim istediğim belirtilen saatte gecen her aracın ayrı ayrı saymak

 

[fedeal]

Sub kac()
Dim i As Long, s As Long, f As Range
Sheets("SHEET2").Range("g1:g65536").ClearContents
 Range("E1:e" & Cells(65536, "E").End(xlUp).Row).Select
    Selection.TextToColumns Destination:=Range("CV1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
   Range("f1:f" & Cells(65536, "f").End(xlUp).Row).Select
    Selection.TextToColumns Destination:=Range("da1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
For i = 1 To Cells(65536, "E").End(xlUp).Row
Sheets("SHEET2").Cells(i, "db").Select
Selection.NumberFormat = "0.00"
If Sheets("SHEET2").Cells(i, "db").Value < 0.20833 Then Sheets("SHEET2").Cells(i, "da").Value = Sheets("SHEET2").Cells(i, "da").Value - 1
If Sheets("SHEET2").Cells(i, 5).Value = "" Then GoTo ATLA
Sheets("SHEET2").Cells(i, "CV").Value = Sheets("SHEET2").Cells(i, "CV").Value & Format(Sheets("SHEET2").Cells(i, "da").Value, "DD.MM.YYYY")
s = Application.WorksheetFunction.CountIf(Sheets("SHEET2").Range("cv1:cv" & i), Sheets("SHEET2").Cells(i, 100).Value)
Sheets("SHEET2").Cells(i, 7).Value = s & ".GİRİŞ"
ATLA:
Next
Sheets("SHEET2").Range("CV1:dc65536").ClearContents
Sheets("SHEET2").Range("g1").Select
End Sub

istediginiz gibi 05:00 dan 04:59 aralıgına göre isme göre ayrı ayrı sayıyor inceleyin açıklama yazdım,iyi çalışmalar.

 

[ZeNgen]

Hocam yine olmadı bakınız

(05.06.2009 04:09:26) ile (06.06.2009 04:08:48) bu iki tarih arası 24 saat yapıyor.
bu tarih arasında giriş yapmış 3 farklı model mecvut diyelim bu 3 adedin her birini sayıcaz

Sizin örneğiniz çok farklı

örneği kontrol edebilirmisiniz.
1 giriş tarihini ve
8.giriş tarihini
kontrol ediniz ve diğer
1.giriş ve 5.giriş tarihlerine bakınız ve sıralamayı takip ediniz.