Getting run-time error 424 object require

[mso3]

Hi friends,

I want to create inner and outer border macro to avoide repeated job and save time.
I’m getting run-time error 424 object require error.

Please Login or Register  to view this content.

Any help will be highly appreciated.

Thanking you in anticipation.

[TMS]

This will run through but it probably doesn't do everything you want. The main problem is that the output from an InputBox is a text string, not a range object.

You could use Application.InputBox instead to select a range. Whatever, try this and adapt it first.

Please Login or Register  to view this content.

Regards, TMS

[mso3]

Hi TMS,
Thank you.

The code is working fine for outer border but not for inner border.

Suppose I want a outer border from range 'B2' then it's working fine.
if I want a inner border from range 'B5' then it's not working. The inner border starts from range 'B2' instead of range 'B5'.

Thanking you.

[TMS]

Trouble is, I don't know what values (cell ranges) you are putting in for each of the Input Boxes so I can't step through.

I also don't know what you expect to see for a given range of cells based on what you enter.

[mso3]

Hi TMS,
Don't mind. Please see the file attached for your kind perusal to understand the requirement.

I want to start outer border from cell ‘P2’
I want to have a inner border from cell ‘P5’
I don’t want inner border in range row 2:4 because there is a name of institution and other information merged columns.
In row 5 there are the titles of the table.


In outer border input box I enter cell range P2
In inner border input box I enter cell range P5

Hope this will help you to find the solution.

[TMS]

I guess this is your problem:

Please Login or Register  to view this content.

Regards, TMS

[mso3]

Hi TMS,

Greetings from me!

Let me clear first.
I have to border the tables several times in different ranges daily.
So to avoide my manual work and save time I want to create a program which will speed up my work. The file attached is a sample for you. That table is not my problem.

To speed up my work I simply want to enter a cell address in the input box for inner and outer borders. This program will work for all tables in different ranges which will be helpful to our friends to speed up their task also.

If it's not possible in a single program then we may create two separate programmes for inner and outer borders to achieve our target.

Thank you and have a nice day.

[TMS]

OK, this works for the specific example:

Please Login or Register  to view this content.

Regards, TMS

[mso3]

Hi TMS,
Good! Now we are very close to the target.

Problems:
Outer border: No right side outer border
Inner border: Inner border is extended upto column H instead of column E

There are two tables range:
B2:E10; G2:J10

Requirement:
First table:
Outer border: Range: B2:E10
Inner border: Range: B5:E10

Second table:
Outer border: Range: G2:J10
Inner border: Range: G5:J10

Everything else is correct.

Thank you for taking a trouble to achieve target positively.

[TMS]

The problem is that you have Merged Cells. If you just use Centre Across Selection, rather then Merge and Centre, the code works just fine.

However, the merged cells cause the calculation of the end cell to be skewed ... so the Horizontal Inner Border is longer than it should be.

You need to remove the Merged Cells or, alternatively, determine the last column based on the data present, perhaps in row 5 as that seems to have the headers.

If you remove the Merged Cells, the code will work as expected and as it did for the original example. If you wanted to use an alternative approach, the data, or more specifically, the header content would need to be populated consistently. As it appears that there could be more than one table, you cannot use End(xlToLeft) to determine the last column, therefore you would need to use End(xlToRight) but there must not be any blank spaces in the header row (in the table area)

[mso3]

Hi TMS,
Thank you.

I want to merge in center to center the title information. However I merge center across as per your suggestion but in vain.

I would like to use the alternative approach positively. However, I didn't understand your suggestion properly. Will you please attach a workbook with this alternative approach for my better understanding and solve the problem today positively.

Thanking you,

[TMS]

Please Login or Register  to view this content.

See the example. Look at the code in Module 2 (as above)

Regards, TMS

[mso3]

Hi TMS,
Superb! What a excellent program to border tables quickly.

I by heart appreciate you for taking a lot of trouble to achieve the target finally with a concrete solution.

Thank you and have a nice day.

[TMS]

You're welcome. Thanks for the rep.