Type Mismatch Error 13.

[beenbee]

Hi All,
I have been banging my head against a wall with this one. The script works fine but I still get the type mismatch error. I have looked up solutions to this issue with adding Val and .Value and IsNumeric but to no avail. I need the error to go away as when it goes to the user i can't have error messages popping up.
Here is the script;

Please Login or Register  to view this content.

Any help would be great!!

[Trebor76]

Hi beenbee,

It's very hard to pinpoint the problem as you don't say what line(s) is erring out and without the wbookmark macros we cannot run the function in its entirety.

That said, try inserting this line...

Please Login or Register  to view this content.

...immediately beneath this line:

Please Login or Register  to view this content.

and add another End If to complete the statement.

HTH

Robert

[beenbee]

Sorry, the line that is having the issue is;

Please Login or Register  to view this content.

I have added the workbook. The code in question is in module 1.
Thanks for the help.

[Trebor76]

There's no attachment

[beenbee]

Sorry they are there if I go to edit the post but don't show up when I post. Trying again ........

[Trebor76]

The code is getting caught after the last entry in Col I (I17 in the posted example) because after this it finding the next entry in the column which is text i.e. "Total No Items: " in cell I36 via the bolded part of this statement:

Please Login or Register  to view this content.

If you know the last row to be 35 use that instead of effectively pressing Shift + End + Down Arrow

HTH

Robert

[beenbee]

I'm not sure what you mean. Also not sure if that is the issue as when I move the "Total No Items" & "Total Pallets" out of column I and into J, it still throws the type mismatch error out. Also my For statement sets the range "I16:I35" doesn't that stop it from going any further?

[Trebor76]

Also not sure if that is the issue as when I move the "Total No Items" & "Total Pallets" out of column I and into J, it still throws the type mismatch error out.

Yes, it's the same issue. After moving the text lines to Col. J, the range after the second value (i.e. I17) is I18:I65536 which as it's full of blank cells creates the same error message.

Also my For statement sets the range "I16:I35" doesn't that stop it from going any further?

No, because the line I pointed out in post 6 is the same as pressing Shift + End + Down Arrow from the aCell cell location. Try it - goto cell I17 press and hold the Shift key and then press the End key and finally press the Down Arrow key.

What are you trying to achieve with the code in post 6 and do you really have to create the document in Word (would save a lot of code if you just did it in the workbook)?

[beenbee]

ah, yes I see. What I'm trying to achieve is; If I16 has a value of 1 I want it to then move down to the next cell in range (I17) and check the value, if it is 1 then I want the code to take the row number and use it in the sub wbookmark3 which populates bookmarks in word.

[Trebor76]

What do want to do when aCell = I17?

[beenbee]

Set I17 as dCell.

[Trebor76]

Still not sure how it's meant to fit together or why you want to do it in Word, but try this:

Please Login or Register  to view this content.

Robert

[beenbee]

I want to do it in word as I want the pallet markers to be printed onto sticky labels so it easiest to set the template up in word (or so I thought, is this not the case?).
I had a huge 1000line code I wrote which was doing what I have the code doing now. I ask'd for help to condense it, but no one answered.
Thank you for your help. That seems to have sorted the issue.

[Trebor76]

Having the template in Excel will do away with all the code you have opening the Word template and linking the cells via bookmarks.

Since we've got it working, you might as well leave it. If you could mark the thread as solved it would be appreciated.

Regards,

Robert