I have a worksheet_change subroutine that copies selected cells to another
worksheet as they are entered. This all works fine.

My problem occurs when I try and delete data from the original worksheet. If
I only delete one cell it works fine and clears the cell in the second sheet.
If I select a range and hit delete then it only clears the activecell off the
second sheet.

Can I use code to force it to do the range.

Thanks

Hi,

Maybe something like this:

RngToDelete=Selection.Address
Sheets("Sheet2").Range(RngToDelete).ClearContents

As always, it is eaisier to make an exact answer, if you posted your
current code.

Hopes it helps.
...
Per

On 4 Sep., 03:20, NDBC wrote:
I have a worksheet_change subroutine that copies selected cells to another
worksheet as they are entered. This all works fine.

My problem occurs when I try and delete data from the original worksheet. If
I only delete one cell it works fine and clears the cell in the second sheet.
If I select a range and hit delete then it only clears the activecell off the
second sheet.

Can I use code to force it to do the range.

Thanks

Thanks, I can make that work.

My trouble now is I'm getting an error on this line

RngToDelete=Selection.Address

I'm using excel 2003 and have dim RngToDelete as range.



"Per Jessen" wrote:

Hi,

Maybe something like this:

RngToDelete=Selection.Address
Sheets("Sheet2").Range(RngToDelete).ClearContents

As always, it is eaisier to make an exact answer, if you posted your
current code.

Hopes it helps.
...
Per

On 4 Sep., 03:20, NDBC wrote:
I have a worksheet_change subroutine that copies selected cells to another
worksheet as they are entered. This all works fine.

My problem occurs when I try and delete data from the original worksheet. If
I only delete one cell it works fine and clears the cell in the second sheet.
If I select a range and hit delete then it only clears the activecell off the
second sheet.

Can I use code to force it to do the range.

Thanks

Just had a thought, maybe error wasn't in that line

RngToDelete = Selection.Address
Sheets("a lap").Range(RngToDelete).Offset(0, 3).ClearContents

I need to move the selection address over 3 columns to clear in the second
sheet. Have I done this wrong and it is just showing up an error on the wrong
line


"NDBC" wrote:

Thanks, I can make that work.

My trouble now is I'm getting an error on this line

RngToDelete=Selection.Address

I'm using excel 2003 and have dim RngToDelete as range.



"Per Jessen" wrote:

Hi,

Maybe something like this:

RngToDelete=Selection.Address
Sheets("Sheet2").Range(RngToDelete).ClearContents

As always, it is eaisier to make an exact answer, if you posted your
current code.

Hopes it helps.
...
Per

On 4 Sep., 03:20, NDBC wrote:
I have a worksheet_change subroutine that copies selected cells to another
worksheet as they are entered. This all works fine.

My problem occurs when I try and delete data from the original worksheet. If
I only delete one cell it works fine and clears the cell in the second sheet.
If I select a range and hit delete then it only clears the activecell off the
second sheet.

Can I use code to force it to do the range.

Thanks

Selection.Address is returning a string, so you should use:

Dim RngToDelete As String

Regards,
Per

On 4 Sep., 04:08, NDBC wrote:
Thanks, I can make that work.

My trouble now is I'm getting an error on this line

RngToDelete=Selection.Address

I'm using excel 2003 and have dim RngToDelete as range.



"Per Jessen" wrote:
Hi,

Maybe something like this:

RngToDelete=Selection.Address
Sheets("Sheet2").Range(RngToDelete).ClearContents

As always, it is eaisier to make an exact answer, if you posted your
current code.

Hopes it helps.
...
Per

On 4 Sep., 03:20, NDBC wrote:
I have a worksheet_change subroutine that copies selected cells to another
worksheet as they are entered. This all works fine.

My problem occurs when I try and delete data from the original worksheet. If
I only delete one cell it works fine and clears the cell in the second sheet.
If I select a range and hit delete then it only clears the activecell off the
second sheet.

Can I use code to force it to do the range.

Thanks- Skjul tekst i anførselstegn -

- Vis tekst i anførselstegn -