Posted to microsoft.public.excel.programming
|
|
Type Mismatch Error
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 wrote:
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
"papou" wrote:
Hello Ayo
If Not IsError(c.Value) Then
HTH
Cordially
Pascal
"Ayo" a écrit dans le message de news:
...
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
--
Dave Peterson
|