Run Type error 13 Type Mismatch

**Affan Khan** · 11-13-2012, 08:38 AM

Hi All,

I am writing a VBA code to calculate and track the corrosion defects in subsea pipelines the intention is to input the data from ROV scans and then do various mathematical calculations and then output them back into the excel spreadsheet.

When I run the code I get the following error.....

Error: Run type error '13' Type Mismatch

The debug says that the following line is defective.

'final calculation

ReDim Sfailurearray(1 To RowCount, 1 To ColCount)
For i = 1 To RowCount
For j = 1 To ColCount
Sfailurearray = FlowStress * (TopFailurearray(i, j) / BottomFailurearray(i, j))
Next j
Next i

Mathematically I have traced the "root-cause" of the problem back to the if function that is below.

ReDim RealDeptharray1(1 To RowCount, 1 To ColCount)
For i = 1 To RowCount
For j = 1 To ColCount
RealDeptharray1(i, j) = Deptharray(i, j) + ((accRel / 100) * (Deptharray(i, j)))
Next j
Next i

ReDim RealDeptharray2(1 To RowCount, 1 To ColCount)
For i = 1 To RowCount
For j = 1 To ColCount
RealDeptharray2(i, j) = Deptharray(i, j) + accAbs
Next j
Next i

ReDim RealDeptharray(1 To RowCount, 1 To ColCount)
For i = 1 To RowCount
For j = 1 To ColCount
If OptionButton6.Value = True Then
RealDeptharray(i, j) = RealDeptharray1(i, j)
End If
Next j
Next i

ReDim RealDeptharray(1 To RowCount, 1 To ColCount)
For i = 1 To RowCount
For j = 1 To ColCount
If OptionButton7.Value = True Then
RealDeptharray(i, j) = RealDeptharray2(i, j)
End If
Next j
Next i

The idea is that if option button 6 is ticked then the "relative" or the "absolute" depth calculation is used to calculate the real defect depth and then a different "realdepth" value is used.

Any help is appreciated. If anyone needs any more information on my method or what I am trying to achieve then please do not hesitate to let me know.

Thank you very much for your help,

Best Regards,

Affan Khan

**Norie** · 11-13-2012, 08:42 AM

Affan

Which particular line(s) is causing the error?

What type of Option button is it, Forms or ActiveX?

Does it have a linked cell?

**Affan Khan** · 11-13-2012, 08:58 AM

I think its Activex but I am not sure. I tried using the code tags I dont know why they havent worked...

Please Login or Register  to view this content.

'final calculation

ReDim Sfailurearray(1 To RowCount, 1 To ColCount)
For i = 1 To RowCount
For j = 1 To ColCount
Sfailurearray = FlowStress * (TopFailurearray(i, j) / BottomFailurearray(i, j))
Next j
Next i

Please Login or Register  to view this content.

**Affan Khan** · 11-13-2012, 08:59 AM

Please Login or Register  to view this content.

Please Login or Register  to view this content.

**Affan Khan** · 11-13-2012, 09:00 AM

Mathematically I have traced the "root-cause" of the problem back to the if function that is below.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

**Affan Khan** · 11-13-2012, 09:01 AM

Forum Moderator:
I applologise if the tags are not working i am trying to post the code with the tags

**Affan Khan** · 11-13-2012, 09:02 AM

Please Login or Register  to view this content.

**Affan Khan** · 11-13-2012, 09:18 AM

Please Login or Register  to view this content.

Please Login or Register  to view this content.

**Norie** · 11-13-2012, 09:25 AM

Affan

I thinK I'm being thick but it's still not clear which line of code is the problem.

You say it's the If, but there are 2 Ifs.

Could you attach a sample workbook?

Hopefully that will clarify things.

**Affan Khan** · 11-13-2012, 10:17 AM

is there any way to attach the excel file?

**Norie** · 11-13-2012, 10:21 AM

Click Go Advanced then scroll down and click Manage attachements.

There should now be a window you can use to select and upload files.

**Affan Khan** · 11-13-2012, 11:01 AM

can you seee the file?

**Norie** · 11-13-2012, 11:07 AM

No, I'm afraid not.

Here's a more detailed guide to attaching a file.

To Attach a File:

1. Click on Go Advanced
2. In the frame Attach Files you will see the button Manage Attachments
3. Click the button.
4. A new window will open titled Manage Attachments - Excel Forum.
5. Click the Browse... button to locate your file for uploading.
6. This will open a new window File Upload.
7. Once you have located the file to upload click the Open button. This window will close.
8. You are now back in the Manage Attachments - Excel Forum window.
9. Click the Upload button and wait until the file has uploaded.
10. Close the window and then click Submit.

**Affan Khan** · 11-13-2012, 12:43 PM

The file is failing to sent for some reason. I might be too big (4MB?)

**Affan Khan** · 11-13-2012, 12:47 PM

Can I email you the file and then maybe you can share it with the members of the forum as there might be a problem with the file transfer mechanism.

Thank you very much for your help in advance

**Norie** · 11-13-2012, 12:58 PM

Can you not create a cut down version and attach that?

Run Type error 13 Type Mismatch

LinkBack

Thread Tools

Rate This Thread

Display

Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Re: Run Type error 13 Type Mismatch

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions