Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy sheet with buttons
I have a sheet with buttons and i want to copy this sheet to a new sheet
using a macro. I use this code: If Not SheetExists(ListBox1.Value) Then Sheets(ActiveSheet.Name).Visible = False Worksheets.Add.Move After:=Worksheets(Worksheets.Count) Set Cursheet = ActiveSheet Cursheet.Name = ListBox1.Value Sheets("Orgineel").Visible = True Sheets("Orgineel").Select Cells.Select Selection.Copy Sheets(ListBox1.Value).Select Range("A1").Select ActiveSheet.Buttons.Add(377.25, 44.25, 71.25, 26.25).Select ActiveSheet.Buttons.Add(377.25, 82.5, 71.25, 26.25).Select ActiveSheet.Buttons.Add(377.25, 133.5, 71.25, 26.25).Select ActiveSheet.Paste Range("A3").Select Sheets("Orgineel").Visible = False ActiveWindow.DisplayZeros = False Else The listboxvalue is the name of the sheet. But it looks like all text from the original sheet is super imposed on the new sheet, Can someone help. Greetings Hans |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
What keyboard has buttons of cut, copy and paste on it? | Excel Discussion (Misc queries) | |||
Copy buttons by rows | New Users to Excel | |||
How to copy a workbook so the buttons run the macros? | Excel Discussion (Misc queries) | |||
Can I copy radio buttons so that the second set is independent of. | Excel Discussion (Misc queries) | |||
Do not copy buttons or macros | Excel Programming |