Extract selected data from another sheet

[IKHAN]

Hello,

Require assistance in creating macro to extract data based on matched criteria in Column "E" Number header in "Output" sheet and column A in master sheet "DATA"

Columns details that needs to be extracted in "Output" sheet that matches Col A in Sheet "Data" are
(Status ,
START DATE -Time,
End DATE -Time)

from DATA" sheet.

Iam able to use thru formula, but looking for macro todo same.

Attached test file.

Thanks in advance

 

[PCosta87]

Hi @IKHAN

Please try the following with sheet "output" as active sheet:

Sub test()

    Dim c As Range
    Dim lrow As Integer
  
    lrow = Columns("E").Cells(Rows.Count).End(xlUp).Row
  
    On Error Resume Next
    For Each c In Range("E3:E" & lrow).Cells
        With Sheets("Data").Columns("A").Find(What:=c.Value)
            .Offset(, 1).Copy c.Offset(, 1)
            .Offset(, 4).Copy c.Offset(, 3)
            .Offset(, 5).Copy c.Offset(, 4)
        End With
    Next c
  
End Sub

Hope it helps

 

[IKHAN]

Thank You pcosta87 ...It works.

 

[PCosta87]

I'm Glad I could help