Tek tarih ve Saat aralıkları

[bdmaestro]

Ekteki dosyada tablolar sayfası mevcut..Bu sayfadaki tabloda tarih ve saat tek hücrede yazılı ve kendine ait sütunu var..tek bir tarih seçiminde istediğim saatler arasındaki verileri almam mümkün müdür?

Örnek :

15.06.2011 tarihindeki 08:00 ve 16:00 saatleri arasındaki seferler

 

[bdmaestro]

arkadaşlar yardımcı olabilir misiniz?

 

[Ömer]

Merhaba,

Moduldeki kodlar;

Sub BulListele()
 
    Dim St As Worksheet, sat As Long, ilk As Date, son As Date, i As Long
     
    Set St = Sheets("tablolar")
    
    Application.ScreenUpdating = False
     
    Sheets("rapor").Select
    Range("A7:P" & Rows.Count).ClearContents
    
    ilk = Range("B1") + Range("B2")
    son = Range("B1") + Range("B3")
    
     
    sat = 7
    For i = 2 To St.Cells(Rows.Count, "M").End(xlUp).Row
        If St.Cells(i, "M") >= ilk And St.Cells(i, "M") <= son Then
            St.Range("A" & i, "P" & i).Copy Range("A" & sat)
            sat = sat + 1
        End If
    Next i
 
    Application.ScreenUpdating = True
    
End Sub

Eki inceleyiniz.

.

 

[bdmaestro]

çok teşekkür ederim elinize, aklınıza sağlık...

 

[bdmaestro]

yukarıdaki makro yapısına ek bir konu sorsam ;

iki farklı tarih olsa? o iki tarih arasında başlangıç ve bitiş tarihleri belirlesek aynı şeklde sonucu liste halinde almamız mümkün müdür?

 

[Ömer]

İlk ve Son değişkenlerine başlangıç ve bitirş tarihlerinin hücre adreslerini yazmanız yeterli olacaktır.

.

 

[bdmaestro]

saolasın ömer çok büyük yardımın oldu.....