Adding n number of columns

[Hababa]

We're faceing a problem when trying to create a macro that will copy n number o columns. We would like to give the user the opportunity to fill in how many "products" he/she in a cell and that number should be equal to how many columns that are to be copied from our original one.

The code for 2 columns is something like:

Range("I5").AutoFill Destination:=Range("I5:J5"), Type:=xlFillDefault

and we would like to have it something like:

Range("I5").AutoFill Destination:=Range("I5:'filled in number'5"), Type:=xlFillDefault

Is this possible in some way?

Thanks

[mrice]

Try

Please Login or Register  to view this content.

[Hababa]

Thanks, it works partly as we would like to have it.

The thing is that we let the user type in the number of columns wanted in cell H3, and we would like to convert that number in some way to be equal the number of copied columns instead of having the InputBox asking for the number.

[jaslake]

See if this is what you have in mind.

Please Login or Register  to view this content.

J