Filter copy and text to columns Delimiter VBA

[thelad]

Hi,

I was wondering if someone could help me with macro I have. I have some code that copies a sheet onto another workbook. I would like to do some manipulation then on this data. Can anyone help? The following is what I would like to do:

• Put a filter in row 14 on DFS TAB
• Filter anything that has ABC123 in column E and select from row 14 down to end and paste in ABC123 tab (Copy visiable cells only once filtered)
• On ABC123 Tab copy column E to L
• Select L2 down to last used row
• Then do text to columns, select delimited, then have tab and space as the delimeters

I appreciate if anyone could help?

Regards,

 

[thelad]

hi

Anybodt can help with above?

 

[Fluff]

How about

Sub filterT2C()
   Dim Dfs As Worksheet
   Dim Abc As Worksheet
   
   Set Dfs = Sheets("DFS")
   Set Abc = Sheets("ABC123")
   If Dfs.AutoFilterMode Then Dfs.AutoFilterMode = False
   Dfs.Range("A14:K14").AutoFilter 5, "*ABC123*"
   Dfs.AutoFilter.Range.Copy Abc.Range("A1")
   Abc.Range("E:E").Copy Abc.Range("L1")
   Abc.Range("L:L").TextToColumns Destination:=Range("L1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
      Semicolon:=False, Comma:=False, Space:=True, Other:=False
End Sub