Find specific item in cell and move entire column

[HotLanta]

Could someone help with this one?

I want to search each cell in row 2 for "*.TXT". Once the cell in row 2 is found that contains *.TXT, I want to move (or copy) that ENTIRE column to coulmn A.

Thanks in advance!

 

[QuietRiot]

this should be easy just wondering are you looking for exactly *.TXT in a cell or anything that ends with .txt or a specific file?

 

[QuietRiot]

this just finds *.TXT in row 2 then copys the column to A

Sub Macro1()
  
For x = 1 To 256
findd = Cells(2, x).Value
If findd = "*.TXT" Then
    Columns(x).Copy
    Columns(1).Select
    ActiveSheet.Paste
Else
End If
Next
End Sub

 

[HotLanta]

QuietRiot -

Thank you for your help, but you are right - I want to find ANYTHING that ends in .txt. (I thought that "*.TXT" would do it.

I tried your macro and it didn't initially work for me. I had a cell that contained "43101.TXT". I amended your code to read "43101.TXT" instead of "*.TXT" (just to try the code) and it worked perfectly. HOWEVER,

That was just an example I had. I may have a "68105.TXT" or a "737308.TXT", so I need for the code to look for anything that ends in ".TXT".

Could you help me with that?

Thanks!

 

[QuietRiot]

yah no problem

real easy fix alls you have to do is put it in a string and then get Right of that string 4 digits.

ill post the code in a second

 

[QuietRiot]

try this

Sub Macro1()
  
For x = 1 To 256
findd = Cells(2, x).Value
findd = Right(findd, 4)
findd = UCase(findd)
If findd = ".TXT" Then
    Columns(x).Copy
    Columns(1).Select
    ActiveSheet.Paste
Else
End If
Next
End Sub

the ucase part of it turns it all upper case just in case its .txt instead of .TXT