Personel & Zimmet Takip Programı (KZT-v.5) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1676.0

Gönderen Konu: [Çözüldü] Saate Göre Rapor Almak  (Okunma sayısı 7027 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
[Çözüldü] Saate Göre Rapor Almak
« : 12 Nisan 2010, 09:09:47 »
Merhabalar,
Ektede görüleceği üzere R sütununda Tarihve saat bulunmakta,
Benim amacım gireceğim saatlerin dışındaki verileri Sayfa2 ye aktarsın.
Örneğim saat 09:000 öncebi ve 17:45 sonrasi işlemleri listelemesini istiyorum.
Tabi örnek saateve bir gün eçen ama normalde verilerim bir aylık.
Teşekkürler

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]
« Son Düzenleme: 12 Nisan 2010, 16:33:47 Gönderen: Bülent Öztürk »

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Saate Göre Rapor Almak
« Yanıtla #1 : 12 Nisan 2010, 11:40:45 »
Dosyanız ektedir. 8)
Kod: [Seç]
Private Sub CommandButton1_Click()
Dim i As Long, sat1 As Long, sat2 As Long, s2 As Worksheet
Dim saat1 As Date, saat2 As Date
Sheets("Sayfa1").Select
Set s2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
s2.Range("A2:R65536").ClearContents
sat1 = Cells(65536, "R").End(xlUp).Row
sat2 = 2
saat1 = TimeSerial(Hour(TextBox1.Text), Minute(TextBox1.Text), Second(TextBox1.Text))
saat2 = TimeSerial(Hour(TextBox2.Text), Minute(TextBox2.Text), Second(TextBox2.Text))
For i = 2 To sat1
    If TimeSerial(Hour(Cells(i, "R").Value), Minute(Cells(i, "R").Value), _
    Second(Cells(i, "R").Value)) < saat1 Or TimeSerial(Hour(Cells(i, "R").Value), _
    Minute(Cells(i, "R").Value), Second(Cells(i, "R").Value)) > saat2 Then
        s2.Range("A" & sat2 & ":R" & sat2).Value = Range("A" & i & ":R" & i).Value
        sat2 = sat2 + 1
    End If
Next
s2.Select
Application.ScreenUpdating = True
Unload Me
MsgBox "İşlem tamamdır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

Çevrimdışı drejan62

  • Excelce Çavuş
  • ***
  • İleti: 111
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ercan
Ynt: Saate Göre Rapor Almak
« Yanıtla #2 : 12 Nisan 2010, 12:24:27 »
Çok Teşekkürler Üstad.

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Saate Göre Rapor Almak
« Yanıtla #3 : 12 Nisan 2010, 12:42:19 »
Çok Teşekkürler Üstad.
Rica ederim.
İyi çalışmalar. 8)