combining cells

[vikram]

Hi all

I need macro which clears the cell not delete if i have only number i
column A but if the cell has text and number it shudnt clear that cell

thanks

i have more than 30000 rows in column

 

[kkknie]

How about:

Code
-------------------
Sub ClearNumsFromA()

Dim i As Long

For i = 1 to Range("A65536").End(xlUp).Row
If IsNumeric(Range("A" & i).Value) Then Range("A" & i).ClearContents
Next

End Su

 

[Ron de Bruin]

Without a loop you can use this

Sub test()
Columns("A").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
End Sub

 

[kkknie]

Better!

 

[Ron de Bruin]

Read this kkknie about the possible problem with SpecialCells
http://support.microsoft.com/default.aspx?scid=kb;en-us;832293&Product=xlw

 

[kkknie]

Good info. I may be bumping up against that 8192 limit with some of th
code I've written. Mostly to search for a certain value in a colum
and set it to blanks. Then select all blanks and delete the rows.

I thought I'd found a wonderous tool, but it appears to have a prett
major watchout...

Thanks,