Macro to Select Cells containing Text

[seenai]

Hi,

I have a Range that contains Text like below :

Date

Time

Sr No

Associate

I need a macro to select CELLS that match the any of the words.
Else need to select Cell A1.

Request your help to create a macro.

 

[seenai]

Ok
what is the name of you sheet

700C Test

 

[mohadin]

Try to insert the line

a = Array("Date", "Time", "Sr No", "Associate")
Sheets("700C Test").Select
For i = 1 To 100

 

[seenai]

Try to insert the line

a = Array("Date", "Time", "Sr No", "Associate")
Sheets("700C Test").Select
For i = 1 To
[/QUOTE]

Hi,

Alternatively I trying another code.

Selection.Find(What:="JobOrderNo", After:=ActiveCell, LookAt:=xlWhole).Activate
On Error Resume Next
ActiveCell.EntireColumn.Delete
Selection.Find(What:="ModelDesc", After:=ActiveCell, LookAt:=xlWhole).Activate
On Error Resume Next

The above code first searches for "JobOrder"
If not available, I do not want to execute statement
ActiveCell.EntireColumn.Delete

Help me if possible.

 

[mohadin]

Perhaps

Selection.Find(What:="JobOrderNo", After:=ActiveCell, LookAt:=xlWhole).Activate
On Error GoTo 1
ActiveCell.EntireColumn.Delete
1 Selection.Find(What:="ModelDesc", After:=ActiveCell, LookAt:=xlWhole).Activate
On Error GoTo 2
ActiveCell.EntireColumn.Delete
2 Selection.Find(What:="xxxxx", After:=ActiveCell, LookAt:=xlWhole).Activate
ActiveCell.EntireColumn.Delete
On Error GoTo 3



3 ....

 

[mohadin]

Still this working
Told you to edit the line

  a = Array("Date", "Time", "Sr No", "Associate", "JobOrderNo", "ModelDesc")

Sub testr()
    Dim rg As Range
    Dim a As Variant
    Dim i, ii
    a = Array("Date", "Time", "Sr No", "Associate", "JobOrderNo", "ModelDesc")
    For i = 1 To 100
        For ii = 0 To UBound(a)
            If Cells(1, i) = a(ii) Then
                If rg Is Nothing Then
                    Set rg = Cells(1, i)
                Else
                    Set rg = Union(rg, Cells(1, i))
                End If: End If
        Next: Next
    rg.EntireColumn.Delete
End Sub

 

[seenai]

Still this working
Told you to edit the line

  a = Array("Date", "Time", "Sr No", "Associate", "JobOrderNo", "ModelDesc")

Sub testr()
    Dim rg As Range
    Dim a As Variant
    Dim i, ii
    a = Array("Date", "Time", "Sr No", "Associate", "JobOrderNo", "ModelDesc")
    For i = 1 To 100
        For ii = 0 To UBound(a)
            If Cells(1, i) = a(ii) Then
                If rg Is Nothing Then
                    Set rg = Cells(1, i)
                Else
                    Set rg = Union(rg, Cells(1, i))
                End If: End If
        Next: Next
    rg.EntireColumn.Delete
End Sub

Hi,

It is GREAT & PERFECT.

Thank you so much for help.

Srinivasa Rao?

 

[mohadin]

You are welcome
And thank you for the feedback
Be happy & safe