Delete Buttons Made From Shapes When Copying Sheet To New Workbook?
Jan 27, 2014
I have a code that copies a sheet into a new workbook. The copied sheet is for information only. On the original sheet I have various macro's assigned to buttons made from using Insert Shape command. I assume if I can find away to remove the buttons then the functionality of the macro's would be lost which is what I want?
I have a workbook in which certain shape objects (2 command buttons and a combobox) can be present on a worksheet if another macro has been run. When a worksheet is closed and another opened, or the workbook closed, I need the shapes to be cut if they are present. There are other shapes on the sheet which must not be deleted.
Each shape has a defined name which is the worksheet name followed by DD, GetStats and Rfrsh
I have tried the code below but get 'The item with the specified name was not found' error message if the one or more of the shapes are not present. The code works for any of the specified shapes that are present.
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Range("f5:i17").ClearContents If Not Sh.Shapes(Sh.Name & "DD") Is Nothing Then Sh.Shapes(Sh.Name & "DD").Cut If Not Sh.Shapes(Sh.Name & "GetStats") Is Nothing Then Sh.Shapes(Sh.Name & "GetStats").Cut If Not Sh.Shapes(Sh.Name & "Rfrsh") Is Nothing Then Sh.Shapes(Sh.Name & "Rfrsh").Cut
End Sub
I am sure I am not using the 'If Not' and 'Is Nothing' properly but can't figure out how it should be.
I have an active x control command button on the same sheet as some shapes (lines,circles) which are generated from some parameters. I want to be able to delete the current shapes so I can plot the next shape. Below is the delete shapes part of the code, not sure how to complete the code.
Currently, the box is getting deleted as well as the shapes
Code:
Private Sub CommandButton1_Click() Dim line1_Beginx As Single, line1_beginy As Single, line1_endx As Single, line1_endy As Single Dim line2_Beginx As Single, line2_beginy As Single, line2_endx As Single, line2_endy As Single
I have a macro that saves a sheet to another workbook. However, that sheet contains buttons with macros, so when saving to a new workbook, the macros get copied over.
Is there a VBA code to delete all of the buttons on a sheet? I can't name them individually, because for some reason, excel changes the name of the button between the sheet and the new workbook.
I was re-reading Chnadoo's thread below on using a hyper link to drive a formula, and was wondering if there was a way to do the same thing with shapes. Interactive Dashboard in Excel using Hyperlinks | Chandoo.org - Learn Microsoft Excel Online I tried doing it where I used a hyper link on each shape to link to a cell containing a number, that in turn would be picked up by the cell that I would want to be incororated in to an INDEX function.
Let's say cells A2 to D2 contain the numbers 1 to 4. Cells B3 to D3 have an oval shape which are each linked to the cell above it by a hyperlink.
Upon selecition of any of the shapes I was trying to get the corresponding number to appear in cell P1 by way of very basic VBA. I was trying to get it to pick up the number by way of referring to the ActiveCell, but cell P1 wouldn't update automatically upon each selection of a new shape.
I know there are other ways to get what I want with scroll bars, spin buttons etc but I'm interested to know if it can be done with shapes.
I created some excel 2003 spreadsheets to use for Fire/Police dispatchers. I have a series of yes/no option buttons that were created using the control toolbox. I have a macro that clears all the blanks where text is added, but want to add a line that clears the option buttons also.
1. Sheet1.xlsx (regular excel sheet as the extension is .xlsx)
2. Consolidated.xlsm (macro enabled sheet as its extension is .xlsm)
1. Copy both the files on your system under a particular folder.
2. Now make 9 replica's of Sheet1.xlsx and name them as Sheet2, Sheet3, Sheet4, .......... Sheet10
3. Open the sheet Consolidated.xlsm and see the button i have added called "Pull Data".
Now write down the code by adding a Module in that excel sheet from the code window.
4. Write a code that will open each of these sheets (Sheet1, Sheet2, Sheet3, Sheet4, .......... so on) one at a time and will copy the data from these sheets to the Consolidated.xlsm sheet.
5. Make sure that the data is appended(and not overwritten) from the multiple sheets (Sheet1, Sheet2, Sheet3). that is once you paste the data from sheet1 to Consolidated.xlsm then the Sheet2 data will be pasted at the end and after that sheet3 data will be pasted and so on..
6. In this way at the end we will have all the data from Sheet1, Sheet2, Sheet3...in the consolidated sheet.
7. The Division column in the Consolidated sheet will have the value of first row in these multiple sheets. So after making the replicas of Sheet1, please change the value in first row (Range A1) to any other value to avoid the confusion.
8. I have highlighted the data for two sheets in yellow and grey color in the consolidated sheet.
I have a userform which clones the latest sheet and produces copy of it on the next sheet. The first sheet they will be cloning is the sheet called 'template', I however want this to be hidden since I do not want anybody to modify a sheet which basically serves purpose of a template. And once cloned, it is no longer needed.
On the click of the command button, the macro will create sheet1 taking the info from sheet named 'Template' in the same workbook . And now on the next click of the command button, Sheet 2 is created taking the info from sheet1 and Sheet 3 is created taking the info from Sheet 2 and so on. Here is what I currently have, so how can i modify it in order for my scnerio to work?
How to copy datas or scores from one sheet to another by using Formulas & Functions.
I tried to attached excel file as an example, but it couldn't.
Let me explain briefly: The file contains 11 Sheets, the first 4 Sheets has students Continuous Assessment of various subjects (about 7 subjects) in 4 different classes.
What I want is, the formulas or functions to use on how to copy the total score in all subjects for each student in various classes (Primary 1A, Pri 1B, Pri 1C, Pri 1D) to Sheets (1st Term, 2nd Term, 3rd Term) as class summary.
And thirdly, the total scores, position, grade & average to also appear in the Result Sheets for each student of various classes (Result Sheet 1A, Result Sheet 1B, Result Sheet 1C, Result Sheet 1D).
I have an electronic meter (Fluke AirCheck) that provides me with reports in the form of excel documents. I need to combine those documents and have a page/worksheet that contains a legend and some notes etc. for reporting to management.
Given: I have a folder with nearly identical workbooks. All contain 4 worksheets: Document map Sheet2 Sheet3 Sheet4
Goal: 1. Copy and combine, either specific sheet(s) or all the sheets from multiple workbooks into a new workbook (with prompting) 2. Rename the worksheets as the workbook file names and existing worksheet names combined.
Example: Workbook name is "101B.xls" Worksheet 1 would be = "101B - Document Map" Worksheet 2 would be = "101B - Sheet2" Worksheet 3 would be= "101B - Sheet3" Worksheet 4 would be= "101B - Sheet4"
Results thus far: Okay so I managed to find a script that does most of what I need:
[Code] .....
For renaming the worksheets I have tinkered with:
[Code] .....
But alas none of that works. I can also only copy 1 sheet at a time currently.
Another issue which seems to have reared its ugly head in the copy and paste function as the text on my new worksheets is white on white when the originals are black text on white. I can select the new worksheet and select all cells and hit "Automatic" on text and it fixes it but that's a pain on 100+ worksheets. So I need some sort of copy /paste special command, I think to make that work too.
In a folder i have a large number of files all formatted the same but with different data in, basically what i want to do is have a mastersheet in each folder that when you run code it will open the first workbook, copy sheet 1 and paste it to sheet 1 in the mastersheet. then open the next workbook again copy sheet 1 find the next empty row in sheet 1 of the mastersheet and paste below, then basically repeat through all the files. There are changing number of files in the folder so it needs to be able to loop and open every workbook. at the moment the sheets are called ME1, ME2 etc etc and the mastersheet called mastersheet.
I am trying to set up a macro so that when I receive updates (via email), I can simply hit a button and the information is copied into my workbook.
This is what I have however i get a 'Runtime error 9' which I believe means the references don't exist, I have double checked all my workbook/sheet naming and all is correct.
With Workbooks("Database").Sheets("Database").Range("A1:AP5000").Copy ThisWorkbook.Sheets("Database").Range("A1:AP5000").PasteSpecial Paste:=xlPasteAll End With
I be addressing the copy method in a different way.
I'm trying to find a way to save a single sheet of an excel workbook and in the same process delete all vba code and shapes from the new single sheet workbook. I was looking around and found this code which does save only the single sheet to a new one sheet workbook but doesn't delete the vba and shape that I have used to assign macros to in the original.
Code: Sub SaveSheetAsNewBook() Dim wb As Workbook Dim InitFileName As String Dim fileSaveName As String Dim wshape As Shape InitFileName = ThisWorkbook.Path & Format(Date, "mm.dd.yy")
I have some drop down control boxes in rows that I want to be able to delete using a macro. If highlight the rown and use Edit, Delete, the data is gone but the controls are still there. How can I delete this using a macro?
I Have a macro which combines five excel sheets from five workbook into single worbook with five tabs containing five excel sheets.Everything is fine except that color of all five excel sheets is totally changed in the combined excel workbook.I tried this manually i.e copying excel sheet from each workbook and pasting the same in the new work book.
Here also color comes correct in only one excel sheet and rest all sheets color is lost.Please any one knowing solution to this problem explain. macro is used is shown below
Sub CopySheets() Dim fileFolder As String Dim fso, fsoFiles, f1 Dim w1 As Workbook Dim w2 As Workbook Dim ws As Worksheet Dim i As Integer Dim flag As Integer Set w1 = Application.Workbooks.Add Application.DisplayAlerts = False Application.ScreenUpdating = False
I have been researching how to create a macro (that will attach to a button), that will delete ALL Shapes and Pictures in a range of cells. So far I have only met with limited results. The Range can be hard coded into the script as it will not change. Does anyone have a script written already they would care to post? I am using Excel 2003.
I've written a macro that plots a graph directly in a white painted sheet, using lines and arrows figures. The problem is that everytime I plot something, the xls-file gets larger, and the size doesn't change if I delete the figures. Since there's a lot of lines and arrows in my plot, I use 'Select All' and Edit-> Remove and this removes all figures, or at least for the eye. I suspect they are still left there somewhere, since the size grows with every new plot and since that sheet seems to have gotten a bit slower, when moving between cells.
Am I correct, or is there another reason for the size/ speed issue? If I my theory is correct, how do you permanently delete these "invisible" figures?
I am trying to write some code that will copy the worksheets from one workbook (wkbSource) to another (wkbTarget), but I need it to maker sure the worksheets being copied from wkbSource don't already exist in wkbTarget. If they do exist, it just skips and moves to the next worksheet. Here is the code I have already, I thought that by adding the On Error Resume Next to the code it would just skip it, but for some reason it is still copying the first duplicate workbook, then it skips.
Code: Dim wkbSource As Workbook Dim wkbTarget As Workbook Dim WorkbookName As String WorkbookName = ThisWorkbook.Name
For Each wShape In ActiveSheet.Shapes wShape.Delete Next wShape
This works great to delete the buttons and rectangles I have on my worksheet, but it is also deleting charts. Is there any way to avoid the chart deletion?
I have made some changes to a workbook and now every time I want to close it I'm asked if I want to save the changes, even when I have made no changes. If I click 'Yes' to save changes the problem still occurs the next time it's opened & closed.
I have checked external connections and there are none. I have done a 'find' to check that there are no formulas looking at another sheet, which I cannot find.
This document has to have a live calculation function - I have read some suggestions around turning off auto calculations but this isn't a possibility and I'm not sure that this is where the problem lies.
The previous version does not have this problem, so it is something I have done between v2.2 and v2.3. I have attached both for reference. Note that they were originally xltm's not xlsx's - I could not upload macro-enabled templates, but the same problem occurs in v2.3 in this format.
I have a button on a sheet that runs a macro to unhide another sheet. That works, but I want the sheet made visible to remain forward. Instead, the button unhides the sheet and the sheet the button is on comes forward again. I am unable to figure how to keep the sheet made visible forward. Here is the macro 'as recorded'.
i have a macro which is executing some cleaning up and then copying information from project sheets to a summary sheet. the individual project sheets are (currently still manually) copied/moved into the big(ger) overview workbook. to support the work with the individual project sheets they contain a macro that is assigned to some (three) shapes. one part of the cleanup is stripping the macros off the individual project sheets:
' remove the traffic-light macros of the project sheets from all sheets in case of unwanted or uncontrolled "infection" For CurrentWS = 1 To SheetCount Worksheets(CurrentWS).Select ActiveSheet.Shapes.SelectAll Selection.OnAction = "" Worksheets(CurrentWS). Range("A1").Select Next CurrentWS
on the line "ActiveSheet.Shapes.SelectAll" i get frequently (not always... ) a run time error '7': out of memory. it happens on at least two computers. i closed all other SW. according to the windows task manager information there should be plenty of memory free.
questions: - how to get rid of the error message? OR: - is there another (more smart) way to strip the ("imported") macros, while keeping the "main" marco alive that does not lead to an error message?
I have a command button set up to gather information, then create a new sheet, and paste a copied button from another location to the new sheet. The command button that shows up on the new sheet is offset and not centered in the cell. It is centered in the cell where it comes from and the cells are the same size.
I noticed that if I copy a command button and simply paste it to a new sheet, it is offset just like this. I need it to not do this. If I have to make it write in a new command button and assign a macro to it, that is fine. I went with the copy/paste option to save time.
[Code] .....
Now, before it becomes an issue, this is only a part of the full code, but it is running in it's own conditional loop. The other part works fine. And I tried changing the alignment in the cell to see if that was the issue. It was not.
Copied command buttons are offset in the cells they are pasted to.
I have built a template worksheet from which I have developed a macro to copy and rename a new worksheet for each month. When the macro executes, it duplicates the macro buttons on the sheet. That is it copies the original macro buttons over (good) then adds "new" buttons in the same locations. The original macro button have been labelled with their function (eg Copy and Paste).The new buttons continue to go up in sequential order e.g. Button 71, Button 72... How do I remove these additional "new" buttons without deleting all of the buttons on the sheet?
Im trying to create shapes Rectangles and Squares with different colours within an excel sheet, where the length and height of the shapes is generated by input values.
Also is it possible to create 3D shapes, again where the size of the shap is generated by input cell values.
I have a VBA script that works great when run each day, as it's intended. But if a user skips a day, we end up with an error when deleting an old worksheet. The old worksheet to be deleted has a date as the sheet name (i.e. "2014-May-23").
We've developed some code to find the most recent FILE if there wasn't one created on the previous business date, but what VBA code can I enter to correctly identify and delete the old, outdated worksheet? My final spreadsheet should contain just two dates worksheets - one each for the past 2 business dates.
Here's a snippet of my current coding:
Code: Sub Master_3D_Macro() ' ' Master_3D_Macro Macro ' ' Keyboard Shortcut: Ctrl+j ' Dim CurrDate As Date Dim Holidays(1 To 9) As Date