User Input to set last column in range to copy

[Zimbo]

Hi All,

If possible could someone please help with changing the below code so that column "D" in the rngIn part of the code can be a variable. i.e so the user can select one, two, three or four columns (with visible data) to be copied. The "b3" part is a constant.

All help is appreciated.

Please Login or Register  to view this content.

Cheers

[FRIEL]

what is this actually doing?

[royUK]

Maybe something like

Please Login or Register  to view this content.

[Zimbo]

Hi Roy and Friel,

Thanks for the prompt responses.

The code is to allow a user to select the last column in a table to copy to a another sheet.

The first column will always be a constant and by changing the input value they will either select more or less columns. (minimum of one).

Roy, if I am not mistaken your code prevents a user from copying if they do not select a column in a fixed range.(This may be useful as an addition)

Cheers

[royUK]

The c ode asks for the user to input a column, in the example between B & D. You can change this as necessary

[Zimbo]

Hi Roy,

My appologies your code should do exactly what I want.

It is however coming up with a runtime error '1004', application-defined or object defined error.

Any suggestions on where this needs to be changed.

Thanks

[Zimbo]

Hi All,

This is a Bump.
Can anyone help me with a fix for the runtime error in the above post.

Cheers

[royUK]

Have you go a sheet clled Edit/

Attach the workbook that errors

[Zimbo]

Hi All,

Please find attached my workbook with it's code included. The runtime error occurs after the user input is entered.

The idea is that the user can select the rows they want to copy by hiding the unchecked rows (column A) with the toggle button then pressing the copy button. They can then select the last column of information to copy to sheets (sheet10) via the input box, the user will set the last column in range to either Narrative1 ,2 or 3.

You will note that the infomation is copied into one column in sheets (sheet10).

Thanks again for any help with this runtime error

Cheers

[royUK]

Sorry but you need to not only revise the code, bu look at the design of the spreadsheet itself


There are several errors in the code itself for e.g. you turn off screenupdating at the end of he code, this will have the effect of preventing the sheet refreshing & you will not see he sheet; yo seem to want to loop hrough cells, but use Rows instead of a range

Please Login or Register  to view this content.

Why are you using a ToggleButton instead of a Commandbutton? The code in this button again uses Row, but you don't need it

I've tried to amend the code to do what I think you wan.

[Zimbo]

Thanks Roy,

The code almost does exactly what I want it too.

The only issue is that it is copying the rows based on the last selected column when it should copy all visible rows in column B and include or exclude information based on the user input.

Cheers

[royUK]

Is this what you mean/

Please Login or Register  to view this content.

[Zimbo]

Hi Roy,

That is almost it.

The only thing being that when this code is run it is unhiding the hidden rows and copying evrything in the range.
It only needs to copy the visible rows in the range that the user has set.

Cheers

[royUK]

I've corrected that

Please Login or Register  to view this content.

[Zimbo]

Hi Roy,

That does exactly what I need it to do.
Thank you for your patience and help, it is really appreciated.

Cheers