delete values in cells

[Guest]

Hello,

I'd like to remove values in cells (not cells) in column A that don't
contain a 10digit number.

thanks for any suggestions

Jan

 

[Markus Scheible]

Hi Jan,

I'd like to remove values in cells (not cells) in column A that don't
contain a 10digit number.

try

For Each cell In Range("whatever")

If (cell.Value Mod 1000000000 = 0) Then
cell.Value = ""
End If

Next cell


Best

Markus

 

[Ajtb]

Hello,

I'd like to remove values in cells (not cells) in column A that don't
contain a 10digit number.

thanks for any suggestions

Jan

Hi Jan

This is simple way to do it.


Sub clearcol()
For i = 1 To 100 ' 100 is the no. of rows to check, could be more
If Len(Cells(i, 1)) <> 10 Then Cells(i, 1) = ""
Next i
End Sub


HTH

Andrew Bourke

 

[Bernd Plumhoff]

Maybe Cells(i, 1).ClearContents?

Regards,
Bernd

 

[Guest]

Thanks everybody
Jan