ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   copying worksheet to another workbook with a macro more than once (https://www.excelbanter.com/excel-programming/401034-copying-worksheet-another-workbook-macro-more-than-once.html)

rt

copying worksheet to another workbook with a macro more than once
 
I want to copy a worksheet to another workbook and break the link on the
orginal worksheet. I recorded a macro. but I can only do it once.
How can I did it several times?

Gary''s Student

copying worksheet to another workbook with a macro more than once
 
Try something like:

Sub Macro1()
Windows("Book1").Activate
Sheets("rt").Copy Befo=Workbooks("Book2").Sheets(1)
Windows("Book1").Activate
Sheets("rt").Copy Befo=Workbooks("Book2").Sheets(1)
Windows("Book1").Activate
Sheets("rt").Copy Befo=Workbooks("Book2").Sheets(1)
Windows("Book1").Activate
Sheets("rt").Copy Befo=Workbooks("Book2").Sheets(1)
End Sub

--
Gary''s Student - gsnu200755


"RT" wrote:

I want to copy a worksheet to another workbook and break the link on the
orginal worksheet. I recorded a macro. but I can only do it once.
How can I did it several times?


ewan7279

copying worksheet to another workbook with a macro more than once
 
Hi RF,

I used this recently, which I found in another posting:

With ActiveWorkbook
Links = .LinkSources(xlExcelLinks)
If Not IsEmpty(Links) Then
For i = 1 To UBound(Links)
.BreakLink Links(i), xlLinkTypeExcelLinks
Next i
End If
End With

"RT" wrote:

I want to copy a worksheet to another workbook and break the link on the
orginal worksheet. I recorded a macro. but I can only do it once.
How can I did it several times?



All times are GMT +1. The time now is 07:03 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com