VBA if cell contain text

[Sparda142]

Hello,

I'm trying to create a VBA that states if within Column A if there is a text then paste to the right. If the cell in column A has a numeric value then do nothing.


[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]a[/TD]
[TD]b[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]john[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]1[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]3[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]jake[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD]bill[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]7[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[igold]

@Rick Rothstein

My pleasure. I have "stolen" so many of your routines, it's the least I could do.

igold

 

[Peter_SSs]

Whilst my sample data and setup below may not be possible for this OP, I would point out some possible pitfalls of all the suggestions so far.
In the sheet below, column A is formatted as Text & other columns before running the codes were General.
Whilst all of the column A values can be identified as Text (given the column was formatted that way) the codes from posts 6, 7 & 8 all failed to transfer some of the text values. Further, two of the codes correctly identified the last value as a text value but have transformed it into a numerical (date) value in transferring it to the result column.

This modification of Rick's code seems to work for those values at least.

Sub Copy_Text_Only()
  Dim Lastrow As Long
  
  Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
  Application.ScreenUpdating = False
  Range("A1:A" & Lastrow).Copy Range("B1")
  On Error Resume Next
  Columns("B").SpecialCells(xlConstants, xlNumbers).Clear
  On Error GoTo 0
  Application.ScreenUpdating = True
End Sub

Excel 2016
	A	B	C	D	E
1	1E2				1E2
2	$45$$			$45$$	$45$$
3	($5,55,,5.5,,,5,,E55$)			($5,55,,5.5,,,5,,E55$)	($5,55,,5.5,,,5,,E55$)
4	DEC1	1-Dec	1-Dec		DEC1
5
6		Post 6	Post 7	Post 8	Post 11
Copy Text Values

 

[Sparda142]

Didn't work

It did work , i tried the vba in the wrong excel sheet. sorry about that