Find text across row 1 and highlight those columns

[Bret1]

Is there a way I can search a selected area for text containing ":50" in row 1 and have it highlight each full column that contains it so I can then delete all those columns and shift to the left?

 

[Bret1]

In any case Try this macro:

Sub selectcolumns()
  Dim j As Long
  Dim rng As Range
  For j = 1 To Cells(1, Columns.Count).End(1).Column
    If Not (Cells(1, j).Text Like "*:00*" Or Cells(1, j).Text Like "*:30*") Then
      If rng Is Nothing Then Set rng = Cells(1, j) Else Set rng = Union(rng, Cells(1, j))
    End If
  Next
  If Not rng Is Nothing Then rng.EntireColumn.Select
End Sub

I think that Macro will work! But.... Could you make it so that it only searches and selects columns within a range of highlighted columns? It picked out all the columns I want to delete, but it also included some columns outside the column range I want to keep. thanks! ......Or if not that, maybe only search columns higher (to the right) of "X"?

 

[DanteAmor]

maybe only search columns higher (to the right) of "X"?

Please include all those details from the original post.


Try this

Sub selectcolumns()
  Dim j As Long
  Dim rng As Range
  For j = Columns("Y").Column To Cells(1, Columns.Count).End(1).Column
    If Not (Cells(1, j).Text Like "*:00*" Or Cells(1, j).Text Like "*:30*") Then
      If rng Is Nothing Then Set rng = Cells(1, j) Else Set rng = Union(rng, Cells(1, j))
    End If
  Next
  If Not rng Is Nothing Then rng.EntireColumn.Select
End Sub

 

[Bret1]

Please include all those details from the original post.


Try this

Sub selectcolumns()
  Dim j As Long
  Dim rng As Range
  For j = Columns("Y").Column To Cells(1, Columns.Count).End(1).Column
    If Not (Cells(1, j).Text Like "*:00*" Or Cells(1, j).Text Like "*:30*") Then
      If rng Is Nothing Then Set rng = Cells(1, j) Else Set rng = Union(rng, Cells(1, j))
    End If
  Next
  If Not rng Is Nothing Then rng.EntireColumn.Select
End Sub

I think that will work PERFECT! I'll spend some time reviewing and working on it now. But it looks great. Thanks so much!

 

[Peter_SSs]

I think that will work PERFECT! I'll spend some time reviewing and working on it now. But it looks great.

The marked solution has been changed accordingly. In your future questions, please mark the post as the solution that actually answered your question, instead of your feedback message as it will help future readers. No further action is required for this thread.