Is it possible in a macro/vba to copy an entire WorkSheet from an Addin to a
workbook?
--
Trefor

Temporarily change the .isaddin to false, copy the sheet, and then change
..isaddin back to true.

dim myAddin as workbook
set myaddin = workbooks("something.xla")
myaddin.isaddin = false
myaddin.worksheets(1).copy _
befo=myotherworkbook.worksheets(1)
myaddin.isaddin = true




Trefor wrote:

Is it possible in a macro/vba to copy an entire WorkSheet from an Addin to a
workbook?
--
Trefor

--

Dave Peterson

Dave,

Thanks for the reply. I have two questions for you.

1. Can the code reside in the addin?
2. If the addin is password protected will your code work?

--
Trefor


"Dave Peterson" wrote:

Temporarily change the .isaddin to false, copy the sheet, and then change
..isaddin back to true.

dim myAddin as workbook
set myaddin = workbooks("something.xla")
myaddin.isaddin = false
myaddin.worksheets(1).copy _
befo=myotherworkbook.worksheets(1)
myaddin.isaddin = true




Trefor wrote:

Is it possible in a macro/vba to copy an entire WorkSheet from an Addin to a
workbook?
--
Trefor

--

Dave Peterson

What happens when you tried it?

And if the code is in the same addin with the sheet to be copied, you can drop
the myAddin variable and just use ThisWorkbook.


Trefor wrote:

Dave,

Thanks for the reply. I have two questions for you.

1. Can the code reside in the addin?
2. If the addin is password protected will your code work?

--
Trefor

"Dave Peterson" wrote:

Temporarily change the .isaddin to false, copy the sheet, and then change
..isaddin back to true.

dim myAddin as workbook
set myaddin = workbooks("something.xla")
myaddin.isaddin = false
myaddin.worksheets(1).copy _
befo=myotherworkbook.worksheets(1)
myaddin.isaddin = true




Trefor wrote:

Is it possible in a macro/vba to copy an entire WorkSheet from an Addin to a
workbook?
--
Trefor

--

Dave Peterson


--

Dave Peterson

try this in the immediate window:

workbooks("funcres.xla").Sheets(1).copy

sure you have to make it not an addin?

--
Regards,
Tom Ogilvy


"Dave Peterson" wrote:

Temporarily change the .isaddin to false, copy the sheet, and then change
..isaddin back to true.

dim myAddin as workbook
set myaddin = workbooks("something.xla")
myaddin.isaddin = false
myaddin.worksheets(1).copy _
befo=myotherworkbook.worksheets(1)
myaddin.isaddin = true




Trefor wrote:

Is it possible in a macro/vba to copy an entire WorkSheet from an Addin to a
workbook?
--
Trefor

--

Dave Peterson

Er, nope.

I must have been thinking of something else (or not thinking at all!)

Tom Ogilvy wrote:

try this in the immediate window:

workbooks("funcres.xla").Sheets(1).copy

sure you have to make it not an addin?

--
Regards,
Tom Ogilvy

"Dave Peterson" wrote:

Temporarily change the .isaddin to false, copy the sheet, and then change
..isaddin back to true.

dim myAddin as workbook
set myaddin = workbooks("something.xla")
myaddin.isaddin = false
myaddin.worksheets(1).copy _
befo=myotherworkbook.worksheets(1)
myaddin.isaddin = true




Trefor wrote:

Is it possible in a macro/vba to copy an entire WorkSheet from an Addin to a
workbook?
--
Trefor

--

Dave Peterson


--

Dave Peterson

I know what I was thinking.

If I'm copying a worksheet from an addin to an addin (maybe the same addin),
then the receiving addin can't be an addin. Good gawd. That's a terrible
sentence.

The workbook receiving the new sheet can't be an addin.

But that really comes down to the receiving workbook has to be visible (not
really a problem with the .isaddin property).





Dave Peterson wrote:

Er, nope.

I must have been thinking of something else (or not thinking at all!)

Tom Ogilvy wrote:

try this in the immediate window:

workbooks("funcres.xla").Sheets(1).copy

sure you have to make it not an addin?

--
Regards,
Tom Ogilvy

"Dave Peterson" wrote:

Temporarily change the .isaddin to false, copy the sheet, and then change
..isaddin back to true.

dim myAddin as workbook
set myaddin = workbooks("something.xla")
myaddin.isaddin = false
myaddin.worksheets(1).copy _
befo=myotherworkbook.worksheets(1)
myaddin.isaddin = true




Trefor wrote:

Is it possible in a macro/vba to copy an entire WorkSheet from an Addin to a
workbook?
--
Trefor

--

Dave Peterson


--

Dave Peterson

--

Dave Peterson

Tom,

Thankyou for your reply.

I was trying to copy a sheet from an Addin to a workbook and I thought this
was going to be a lot more tricky, but in fact it works fine with making my
addin a workbook.

--
Trefor


"Tom Ogilvy" wrote:

try this in the immediate window:

workbooks("funcres.xla").Sheets(1).copy

sure you have to make it not an addin?

--
Regards,
Tom Ogilvy


"Dave Peterson" wrote:

Temporarily change the .isaddin to false, copy the sheet, and then change
..isaddin back to true.

dim myAddin as workbook
set myaddin = workbooks("something.xla")
myaddin.isaddin = false
myaddin.worksheets(1).copy _
befo=myotherworkbook.worksheets(1)
myaddin.isaddin = true




Trefor wrote:

Is it possible in a macro/vba to copy an entire WorkSheet from an Addin to a
workbook?
--
Trefor

--

Dave Peterson

Dave,

Thankyou for your reply.

I was trying to copy a sheet from an Addin to a workbook and I thought this
was going to be a lot more tricky, but in fact it works fine withOUT making
my addin a workbook.

--
Trefor


"Dave Peterson" wrote:

I know what I was thinking.

If I'm copying a worksheet from an addin to an addin (maybe the same addin),
then the receiving addin can't be an addin. Good gawd. That's a terrible
sentence.

The workbook receiving the new sheet can't be an addin.

But that really comes down to the receiving workbook has to be visible (not
really a problem with the .isaddin property).





Dave Peterson wrote:

Er, nope.

I must have been thinking of something else (or not thinking at all!)

Tom Ogilvy wrote:

try this in the immediate window:

workbooks("funcres.xla").Sheets(1).copy

sure you have to make it not an addin?

--
Regards,
Tom Ogilvy

"Dave Peterson" wrote:

Temporarily change the .isaddin to false, copy the sheet, and then change
..isaddin back to true.

dim myAddin as workbook
set myaddin = workbooks("something.xla")
myaddin.isaddin = false
myaddin.worksheets(1).copy _
befo=myotherworkbook.worksheets(1)
myaddin.isaddin = true




Trefor wrote:

Is it possible in a macro/vba to copy an entire WorkSheet from an Addin to a
workbook?
--
Trefor

--

Dave Peterson


--

Dave Peterson

--

Dave Peterson