Extracting Cells from another worksheet that meets criteria

[salman94]

Hi,

I need some help with VBA.

In a sheet called "Transactions", I would like to extract data from column Y if the corresponding cell in Column Z says "Send Email". I would like to create a new list in a sheet called "Main" in column A (after the title; so starting at A2) where the extracted copied cells are pasted.

Thanks in advance.

 

[Fluff]

How about

Sub GetData()
   
   With ActiveSheet
      If .AutoFilterMode Then .AutoFilterMode = False
      .Range("A1:Z1").AutoFilter 26, "Send Email"
      .Range("Y:Y").SpecialCells(xlVisible).Copy Sheets("Main").Range("A2")
      .AutoFilterMode = False
   End With
End Sub

 

[salman94]

Thank you so much, that worked!

 

[Fluff]

Glad to help & thanks for the feedback