| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add sheet to end
Hello. How do I get this to add the new sheet to the end of my workbook:
Sub CopyRange() Dim wsMain As Worksheet, wsNew As Worksheet Set wsMain = Sheets("test") Set wsNew = Sheets.Add wsMain.Range("A:B").Copy wsNew.Range("A1") wsNew.Name = InputBox("Enter New Worksheet Name") End Sub Thanks, Patti |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Add sheet to end
Worksheets.Add after:=Worksheets(Worksheets.C*ount)
-- Don Guillett SalesAid Software "Patti" wrote in message ... Hello. How do I get this to add the new sheet to the end of my workbook: Sub CopyRange() Dim wsMain As Worksheet, wsNew As Worksheet Set wsMain = Sheets("test") Set wsNew = Sheets.Add wsMain.Range("A:B").Copy wsNew.Range("A1") wsNew.Name = InputBox("Enter New Worksheet Name") End Sub Thanks, Patti |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Add sheet to end
Hi Patti,
ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count) moves the newly created sheet to the end. Hope this helps!! "Patti" wrote in message ... Hello. How do I get this to add the new sheet to the end of my workbook: Sub CopyRange() Dim wsMain As Worksheet, wsNew As Worksheet Set wsMain = Sheets("test") Set wsNew = Sheets.Add wsMain.Range("A:B").Copy wsNew.Range("A1") wsNew.Name = InputBox("Enter New Worksheet Name") End Sub Thanks, Patti |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Add sheet to end
That does help - thanks. Both suggestions work. If anyone has the time to
explain, I am curious as to why I cannot add the sheet to the end when using Set: Set wsNew = Worksheets.Add after:=Worksheets(Worksheets.Count) ' doesn't work wsNew.Name = InputBox("Enter New Worksheet Name") Regards, Patti "Paul" wrote: Hi Patti, ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count) moves the newly created sheet to the end. Hope this helps!! "Patti" wrote in message ... Hello. How do I get this to add the new sheet to the end of my workbook: Sub CopyRange() Dim wsMain As Worksheet, wsNew As Worksheet Set wsMain = Sheets("test") Set wsNew = Sheets.Add wsMain.Range("A:B").Copy wsNew.Range("A1") wsNew.Name = InputBox("Enter New Worksheet Name") End Sub Thanks, Patti |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Add sheet to end
Sure it does if you write it correctly
Set wsNew = Worksheets.Add( after:=Worksheets(Worksheets.Count)) demo'd from the immediate window: Set wsNew = Worksheets.Add( after:=Worksheets(Worksheets.Count)) ? wsNew.Name Sheet2 -- Regards, Tom Ogilvy "Patti" wrote in message ... That does help - thanks. Both suggestions work. If anyone has the time to explain, I am curious as to why I cannot add the sheet to the end when using Set: Set wsNew = Worksheets.Add after:=Worksheets(Worksheets.Count) ' doesn't work wsNew.Name = InputBox("Enter New Worksheet Name") Regards, Patti "Paul" wrote: Hi Patti, ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count) moves the newly created sheet to the end. Hope this helps!! "Patti" wrote in message ... Hello. How do I get this to add the new sheet to the end of my workbook: Sub CopyRange() Dim wsMain As Worksheet, wsNew As Worksheet Set wsMain = Sheets("test") Set wsNew = Sheets.Add wsMain.Range("A:B").Copy wsNew.Range("A1") wsNew.Name = InputBox("Enter New Worksheet Name") End Sub Thanks, Patti |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Add sheet to end
Thanks Tom!
"Tom Ogilvy" wrote: Sure it does if you write it correctly Set wsNew = Worksheets.Add( after:=Worksheets(Worksheets.Count)) demo'd from the immediate window: Set wsNew = Worksheets.Add( after:=Worksheets(Worksheets.Count)) ? wsNew.Name Sheet2 -- Regards, Tom Ogilvy "Patti" wrote in message ... That does help - thanks. Both suggestions work. If anyone has the time to explain, I am curious as to why I cannot add the sheet to the end when using Set: Set wsNew = Worksheets.Add after:=Worksheets(Worksheets.Count) ' doesn't work wsNew.Name = InputBox("Enter New Worksheet Name") Regards, Patti "Paul" wrote: Hi Patti, ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count) moves the newly created sheet to the end. Hope this helps!! "Patti" wrote in message ... Hello. How do I get this to add the new sheet to the end of my workbook: Sub CopyRange() Dim wsMain As Worksheet, wsNew As Worksheet Set wsMain = Sheets("test") Set wsNew = Sheets.Add wsMain.Range("A:B").Copy wsNew.Range("A1") wsNew.Name = InputBox("Enter New Worksheet Name") End Sub Thanks, Patti |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| excel sheet bootom half sheet goes behind top part of sheet | Excel Worksheet Functions | |||
| Duplicate sheet, autonumber sheet, record data on another sheet | Excel Worksheet Functions | |||
| How do I select price from sheet.b where sheet.a part no = sheet.b | Excel Worksheet Functions | |||
| relative sheet references ala sheet(-1)!B11 so I can copy a sheet. | Excel Discussion (Misc queries) | |||
| Inserting a row in sheet A should Insert a row in sheet B, removing a row in Sheet A should remove the corresponding row in sheet B | Excel Programming | |||
Linear Mode
