Home |
Search |
Today's Posts |
#1
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Type Mismatch Error
Thanks. That was it. I saw it and fixed it already.
"Dave Peterson" wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Visual Basic Error Run Time Error, Type Mismatch | Excel Discussion (Misc queries) | |||
Conditional Formatting - Run Time Error '13' Type Mismatch Error | Excel Programming | |||
Help: Compile error: type mismatch: array or user defined type expected | Excel Programming | |||
type mismatch error | Excel Programming | |||
Befuddled with For Next Loop ------ Run - Time Error '13' Type Mismatch Error | Excel Programming |