DELETE AWAY #N/A

[ru_1985]

How can i also delete away the #N/A with this code??

Sub MyDeleteFormula() 

    Dim myRange As Range 
    Dim myRange1 As Range 
    Dim myCell As Range 
    
'   Set range to check 
    Set myRange = Range("C5:J35") 
    Set myRange1 = Range("M5:T35") 
    
    
    
'   Loop through each cell in range and delete contents if value is blank 
    For Each myCell In myRange 
        If myCell.Value = "" Or myCell.Value = 0 Then myCell.ClearContents 
    Next myCell 
    For Each myCell In myRange1 
        If myCell.Value = "" Or myCell.Value = 0 Then myCell.ClearContents 
    Next myCell 
        
End Sub 
 
Code:

 

[patrickmuldoon99]

Have you tried:

If myCell.Value = "" Or myCell.Value = 0 Or myCell.Value = "#N/A" Then myCell.ClearContents

?

 

[wavemehello]

will logic something like this work?

=IF(ISERROR( ),"", )

 

[ru_1985]

hI, patrickmuldoon99

I had try the formula but it doesn work....

 

[Krishnakumar]

Hi,

With myRange
    .SpecialCells(xlCellTypeFormulas, 16).ClearContents
    .Replace What:="0", Replacement:="", LookAt:=xlWhole
End With

HTH

 

[jindon]

Hi

Try

myCell.Text = "#N/A" Then

 

[Stormseed]

will logic something like this work?

=IF(ISERROR( ),"", )

this one is the best thing to do....!

 

[patrickmuldoon99]

If myCell.Value = "" Or myCell.Value = 0 Or myCell.text = "#N/A" Then myCell.ClearContents

 

[Joe4]

Please stop with the duplicate postings!

If you have questions/modifications to the question or code posted, post back to that thread. DO NOT START A NEW ONE!

http://www.mrexcel.com/board2/viewtopic.php?t=237530&highlight=