Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
problem coping data from 1 sheet to new sheet
User clicks a button to add a new vehicle. This macro is suppose to
copy all of the data in sheet "Vehicle template", then create a new sheet and paste to that sheet.Then it opens up a UserForm. Later I want to figure out how to have it name the new sheet based on data in one of the sheets. But 1st, I want this part to work. It creates a new sheet ok, but it only pastes the contents of cell A1. Can anyone see why the entire sheet does not paste to the new sheet? Thanks jeff Sub NewSheet() Sheets("Vehicle template").Select ActiveCell.Cells.Select Selection.Copy Sheets.Add ActiveSheet.Paste UserForm1.TextBox1.SetFocus UserForm1.Show End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
problem coping data from 1 sheet to new sheet
It's your line:
ActiveCell.Cells.Select ActiveCell refers to one cell only. Better to have a named range for your template. For this example I named the range MyTemplate. Then this would be your code: Sheets.add Range("MyTemplate").copy range("a1") " wrote: User clicks a button to add a new vehicle. This macro is suppose to copy all of the data in sheet "Vehicle template", then create a new sheet and paste to that sheet.Then it opens up a UserForm. Later I want to figure out how to have it name the new sheet based on data in one of the sheets. But 1st, I want this part to work. It creates a new sheet ok, but it only pastes the contents of cell A1. Can anyone see why the entire sheet does not paste to the new sheet? Thanks jeff Sub NewSheet() Sheets("Vehicle template").Select ActiveCell.Cells.Select Selection.Copy Sheets.Add ActiveSheet.Paste UserForm1.TextBox1.SetFocus UserForm1.Show End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Coping a whole row to another sheet | Excel Programming | |||
Coping whole row to new sheet | Excel Programming | |||
WHY DOES COPING FROM SHEET TO SHEET INCREASE SIZE DRAMATICALLY? | Excel Discussion (Misc queries) | |||
Need help coping a range of data from sheet 1 to the next empty cell in sheet2 | Excel Programming | |||
Coping a sheet | Excel Programming |