Copying cells with any text value.

[JLGUZMAN]

Hello,

I am trying to write into my code that if a cell in therange I am searching has any text to select it for copying. I am using the.TEXT function and the wildcard is not working as a part of the code. Howshould I be putting it. Here is the code I have not:





Sub Sort_Deployed()



a = Worksheets("Master").Cells(Rows.Count,18).End(xlUp).Row

For i = 2 To a



IfWorksheets("Master").Cells(i, 18).Text = “*” Then

Worksheets("Master").Rows(i).Copy

Worksheets("Deployed").Activate

b =Worksheets("Deployed").Cells(Rows.Count, 18).End(xlUp).Row

Worksheets("Deployed").Cells(b + 1, 1).Select

ActiveSheet.Paste

Worksheets("Master").Activate

End If

Next

Application.CutCopyMode = False

End Sub

 

[mumps]

What happens if the cell in column R has a number instead of text?

 

[Rick Rothstein]

If you mean that you want to copy the cell if it contains a value (numeric or text), and assuming Column R has no formulas, then this single line of code will do the copy you seek...

[table="width: 500"]
[tr]
	[td]Sub Sort_Deployed()
  Sheets("Master").Columns("A").SpecialCells(xlConstants).Copy Sheets("Deployed").Cells(Rows.Count, "A").End(xlUp).Offset(1)
End Sub[/td]
[/tr]
[/table]

If, on the other hand, if you really meant you only wanted to copy text (non-numeric) values, then give this version a try instead...

[table="width: 500"]
[tr]
	[td]Sub Sort_Deployed()
  Sheets("Master").Columns("A").SpecialCells(xlConstants, xlTextValues).Copy Sheets("Deployed").Cells(Rows.Count, "A").End(xlUp).Offset(1)
End Sub[/td]
[/tr]
[/table]

 

[JLGUZMAN]

This cell should only have text in it. If there is a number I do not want it to copy.

 

[Rick Rothstein]

This cell should only have text in it. If there is a number I do not want it to copy.

Did you try the second of the two macros that I posted in Message #3 yet then?

 

[JLGUZMAN]

I did try that one. It only copied one column. I need it to copy all items in a row if column R has text in it.