Type Mismatch Error

[Ayo]

I need help dealing with an error message on this line of code: "If c.Value =
"#N/A" Then". I keep getting a type mismatch error and I don't know why. I am
try to tell the programme to ignore any cell that contains "#N/A" and go on
to the next cell.
I need help here. I have been working on this macro now for abot 3 weeks.

Set myRange = Worksheets(2).Range("A3:A" & lastrow)
For Each c In myRange
If c.Value = "#N/A" Then
ElseIf c.Value <> "#N/A" Then
Worksheets("Finance Data Report").Cells(rw, 2) = c.Value
Worksheets("Finance Data Report").Cells(rw, 3) = c.Offset(0, 1)
Worksheets("Finance Data Report").Cells(rw, 4) = c.Offset(0, 2)
Worksheets("Finance Data Report").Cells(rw, 5) = c.Offset(0, 4)
Worksheets("Finance Data Report").Cells(rw, 6) = c.Offset(0, 5)
Worksheets("Finance Data Report").Cells(rw, 10) = c.Offset(0, 7)
Worksheets("Finance Data Report").Cells(rw, 11) = c.Offset(0, 10)
End If
rw = rw + 1
Next c

 

[papou]

Hello Ayo
If Not IsError(c.Value) Then

HTH
Cordially
Pascal

 

[Ayo]

Now I am getting a "Subscript out of range" error on the row with the arrow

Set myRange = Worksheets(2).Range("A3:A" & lastrow)
For Each c In myRange
If Not IsError(c.Value) Then
--> Worksheets("Finance Data Report").Cells(rw, 2) = c.Value
Worksheets("Finance Data Report").Cells(rw, 3) = c.Offset(0, 1)
Worksheets("Finance Data Report").Cells(rw, 4) = c.Offset(0, 2)
Worksheets("Finance Data Report").Cells(rw, 5) = c.Offset(0, 4)
Worksheets("Finance Data Report").Cells(rw, 6) = c.Offset(0, 5)
Worksheets("Finance Data Report").Cells(rw, 10) = c.Offset(0, 7)
Worksheets("Finance Data Report").Cells(rw, 11) = c.Offset(0, 10)
End If
rw = rw + 1
Next c

 

[Gary Keramidas]

did you set rw to an initial value somewhere?

 

[Ayo]

it is set as
rw = Worksheets(1).Range("A65536").End(xlUp).Row + 1

 

[Dave Peterson]

Check the spelling of that worksheet "Finance data report".

My bet is that the name in the code doesn't match the name of the
worksheet--maybe extra space characters???

ps.

Another way to check for that specific error:

if c.text = "#N/A" then
'skip it
else
worksheets(....

 

[Ayo]

Thanks. That was it. I saw it and fixed it already.