Selected time copying

Hello Gurus,

I need your help again,

On my Attached File, I have a Data Sheet and I want only to copy the value of the Humidity & Temperature base on the value of time ending in :02 Like ( 9/13/2018 12:02:00 AM ; 9/13/2018 1:02:00 AM ; 9/13/2018 2:02:00 AM....) on the other sheet from September 13 up to Sept 20.

The format will be like in the "Format Sheet" of the attached file.

cross posted: https://www.excelguru.ca/forums/show...d-time-copying

Thank you

Hi Modytrane,

Thank you for the code. I really appreciate it.

Sub Main()
  Dim calc As Integer
  Dim lr As Long, ws1 As Worksheet, ws2 As Worksheet
  Dim r As Range
  
  'On Error GoTo EndNow
  With Application
    calc = .Calculation
    .Calculation = xlCalculationManual
    .EnableEvents = False
    .ScreenUpdating = False
  End With
  
  Set ws1 = Worksheets("Data")
  Set ws2 = Worksheets.Add(After:=Worksheets(Worksheets.Count))
  
  'Filter ws1 by 02 minutes
  With ws1
    'Make filter field
    lr = .Cells(Rows.Count, "A").End(xlUp).Row
    .[F1] = "2m?"
    .[F2].Formula = "=Find("":02:"",Text(A2,""hh:mm:ss""))=3"
    .[F2].Copy .Range("F2", .Cells(lr, "F"))
    'Filter by created field
    .UsedRange.AutoFilter Field:=6, Criteria1:="TRUE"
    Set r = Intersect(.Columns("A:E"), .UsedRange.SpecialCells(xlCellTypeVisible))
    'Copy and paste filtered data
    r.Copy
    ws2.[A1].PasteSpecial xlPasteColumnWidths
    r.Copy ws2.[A1]
    'Remove filter column F
    Intersect(.Columns("F:F"), .UsedRange).Clear
    'Remove autofilter
    .[A1].AutoFilter
    [A1].Select
  End With
  
  
EndNow:
  With Application
    .Calculation = calc
    .EnableEvents = True
    .ScreenUpdating = True
    .CutCopyMode = False
  End With
End Sub

Hi @thong127

With this data, you can use a much simpler formula

Try this and copy forward and down

Formula:

=INDEX(A$2:A$2305,12*ROW($A1)-11)

Thank you All.