VBA for cell with any text in it

[JLGUZMAN]

Hello all,
Need some help figuring this out. I am trying to create a macro to search a specific column for any text value and it copy it. I have the copy/paste part down, I need a way to have it search the column for any text. Text values vary by school names and they can change.

Thank you


Sub CopyDeployed()

a = Worksheets("Master").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To a
If Worksheets("Master").Cells(i, 18).Value = 'this is where I need help' Then
Worksheets("Master").Rows(i).Copy
Worksheets("Deployed").Activate
b = Worksheets("Deployed").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Deployed").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Master").Activate
End If
Next
End Sub

 

[mumps]

What do you mean by: "any text value"? Can you give us a few examples of what to look for?

 

[JLGUZMAN]

One cell may contain "GW High" an other may have "Chavez Middle" and so on. I would like any cell that has any text in it to copy to the other sheet I have already denoted in the code. THank you

 

[mumps]

Hopefully, I have understood correctly. Try this macro:

Sub CopyDeployed()
    Application.ScreenUpdating = False
    Dim LastRow As Long, rng As Range
    LastRow = Sheets("Master").Range("A" & Rows.Count).End(xlUp).Row
    For Each rng In Sheets("Master").Range("R2:R" & LastRow)
        If rng <> "" Then
            rng.EntireRow.Copy Sheets("Deployed").Cells(Sheets("Deployed").Rows.Count, "A").End(xlUp).Offset(1, 0)
        End If
    Next rng
    Application.ScreenUpdating = True
End Sub